Ana içeriğe atla

Excel'de belirli bir adla yeni sayfa nasıl eklenir?

Bazen yeni bir sayfa oluşturmak ve bunu Excel'de belirli bir adla otomatik olarak adlandırmak istersiniz. Bu makalede, Excel'de yeni bir çalışma kitabında belirli bir adla bir çalışma sayfası oluşturmanın yanı sıra, geçerli çalışma kitabına belirli bir adla yeni sayfa eklemenin iki yöntemini göstereceğiz.

VBA kodu ile mevcut çalışma kitabına belirli bir adla otomatik olarak yeni sayfa ekleme
Kutools for Excel ile yeni bir çalışma kitabına belirli bir adla otomatik olarak yeni sayfa ekleme


VBA kodu ile mevcut çalışma kitabına belirli bir adla otomatik olarak yeni sayfa ekleme

Aşağıdaki VBA kodu ile mevcut çalışma kitabının sonuna belirli bir adla yeni bir sayfa ekleyebilirsiniz.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül.

3. VBA kodunu kopyalayıp modül pencere.

VBA kodu: mevcut çalışma kitabının sonuna belirli bir adla yeni sayfa ekleyin

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. Basın F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusu, lütfen bu sayfa için bir ad girin ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından, belirli bir adla yeni bir çalışma sayfası oluşturulur ve mevcut çalışma kitabının sonunda bulunur.


Kutools for Excel ile yeni bir çalışma kitabına belirli bir adla otomatik olarak yeni sayfa ekleme

Bu bölümde, Sıra Çalışma Sayfaları Oluşturun yarar Kutools for Excel. Bu yardımcı programla, yeni bir çalışma kitabına belirli bir adla kolayca yeni sayfa ekleyebilirsiniz.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Belirli bir adla yeni sayfa eklemek için, bu adı bir hücreye önceden yazmanız gerekir. Ve sonra tıklayın Kutools Artı > Çalışma Sayfası > Sıra Çalışma Sayfaları Oluşturun.

2. içinde Sıra Çalışma Sayfaları Oluşturun iletişim kutusunu seçin Boş çalışma sayfası içinde Temel Çalışma Sayfası açılan listeden VeriBelli aralıklarla seçeneğini belirleyin ve belirli çalışma sayfası adını içeren hücreyi belirtin ve son olarak OK buton. Ekran görüntüsüne bakın:

Ardından, bir hücreden bu belirli ada sahip yeni bir çalışma sayfası hemen yeni bir çalışma kitabında oluşturulur.

notlar:

1. Aynı anda belirli adlarla birden fazla yeni sayfa oluşturmak istiyorsanız, lütfen bu adları hücrelere tek tek girin ve ardından bu hücreleri Bir aralıktaki veriler kutu.
2. Bununla birlikte bir seri numarasından veya özel bir listeden sıra çalışma sayfaları oluşturabilirsiniz. Sıra Çalışma Sayfaları Oluşturun Yarar. Ekran görüntüsüne bakın:

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

Thanks
This comment was minimized by the moderator on the site
Good day,
Please try the below VBA code. Hope it can help. Thanks for your comment.

Sub CreateSheet()
Dim xName As String
Dim xSht As Object
Dim xNWS As Worksheet
On Error Resume Next
xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Exit Sub
End If
ActiveSheet.Copy after:=Sheets(Sheets.count)
Set xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations