Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

Excel'deki hücre değerlerine dayalı olarak çalışma sayfalarını nasıl yeniden adlandırabilirim?

Çalışma sayfalarını yeniden adlandırmak genellikle Excel çalışmamızda uygulanır, ancak çalışma sayfalarını hücre değerlerine göre yeniden adlandırmayı hiç denediniz mi? Elbette, çalışma sayfalarını manuel olarak yeniden adlandırabilirsiniz, ancak burada bu öğretici, çalışma sürenizi koruyabilecek hücre değerlerine göre birden çok çalışma sayfasını hızlı bir şekilde yeniden adlandırabilecek bazı hileler sunar.

Çalışma sayfalarını belirli bir hücreye göre VBA ile yeniden adlandırın

Birden Çok Çalışma Sayfasını Yeniden Adlandır ile çalışma sayfalarını belirli bir hücreye göre yeniden adlandırın iyi fikir3

Birden Çok Çalışma Sayfasını Yeniden Adlandır ile çalışma sayfalarını bir dizi hücre içeriğine göre yeniden adlandırın iyi fikir3


Aşağıdaki VBA ile, göreceli çalışma sayfasını belirli bir hücreye göre yeniden adlandırabilirsiniz.

1. Çalışma sayfasını temel alarak yeniden adlandırmak istediğiniz hücreyi seçin, bu durumda Hücre A1'i seçin. Ekran görüntüsüne bakın:

doc çalışma sayfası 1'i yeniden adlandır

2. Basın Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

3. tık Ekle > modül, ardından VBA kodunun altına yeni modül pencere.

VBA: Çalışma sayfalarını belirli bir hücre değerlerine göre yeniden adlandırın.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. Basın F5 VBA kodunu çalıştırmak için anahtar. Daha sonra tüm çalışma sayfaları, her göreceli A1 hücre değerleriyle yeniden adlandırıldı.

doc çalışma sayfası 2'i yeniden adlandır


Eğer varsa Kutools for Excel, VBA kodunu kaydetmenize gerek yoktur, Birden Çok Çalışma Sayfasını Yeniden Adlandırma tüm çalışma sayfasını göreceli hücrelerine göre hızlı bir şekilde yeniden adlandırma özelliği.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. Çalışma sayfalarının adlarını yeniden adlandırmak istediğiniz çalışma kitabını etkinleştirin.

2. tık Kutools Artı > Çalışma Sayfası > Çalışma Sayfalarını Yeniden Adlandırın. Ekran görüntüsüne bakın:

doc çalışma sayfası 11'i yeniden adlandır

3. Ardından açılan iletişim kutusunda, altında yeniden adlandırmak istediğiniz sayfaları işaretleyin. Çalışma Sayfaları bölmesine gidin ve şunlardan birini seçin: Seçeneği Yeniden Adlandır ihtiyacın var, burada sayfa adını değiştireceğim, sonra kontrol edeceğim Çalışma sayfalarını belirli bir hücreyle yeniden adlandırınve yeniden adlandırmanız gereken hücreyi seçin. Ekran görüntüsüne bakın:

doc çalışma sayfası 9'i yeniden adlandır

4. tık Ok. Artık sayfalar belirli hücre içerikleriyle yeniden adlandırıldı.

doc çalışma sayfası 2'i yeniden adlandır

Ancak bazen, ihtiyacınız olan şey, aşağıda gösterilen ekran görüntüsü gibi bir dizi hücre değerine dayalı olarak birden çok çalışma sayfasını yeniden adlandırmaktır, bu durumda seçebilirsiniz aşağıdaki yöntem.

doc çalışma sayfası 3'i yeniden adlandır


İle Birden Çok Çalışma Sayfasını Yeniden Adlandırma of Kutools for Excel, ayrıca sayfaları seçilen bir aralığa göre yeniden adlandırabilirsiniz.

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. tık Kutools Artı > Çalışma Sayfası > Çalışma Sayfalarını Yeniden Adlandırın. Ekran görüntüsüne bakın:

doc çalışma sayfası 11'i yeniden adlandır

2. içinde Birden Çok Çalışma Sayfasını Yeniden Adlandırma iletişim kutusu, ayarları şu şekilde belirtmeniz gerekir:

(1) Yeniden adlandırmanız gereken çalışma sayfalarını seçin Çalışma sayfaları listesi;

(2) Kontrol Belirli aralıktan seçeneğini tıklayın ve yeniden adlandırmanız gereken hücre değerlerini seçin;

(3) Belirtiniz Yeniden Adlandırma Seçenekleri, Kontrol edebilirsin Orijinal sayfa adının önüne ekle, Orijinal sayfa adından sonra ekleyinya da Orijinal sayfa adını değiştirinve ilgili sonucu iletişim kutusunda önizleyebilirsiniz.

doc çalışma sayfası 10'i yeniden adlandır

3. tık Okve sonra seçtiğiniz tüm çalışma sayfalarının belirtilen hücre değerlerine göre yeniden adlandırıldığını görebilirsiniz.

Orijinal sayfa adını değiştirin

doc çalışma sayfası 6'i yeniden adlandır

Orijinal sayfa adının önüne ekle

doc çalışma sayfası 7'i yeniden adlandır

Orijinal sayfa adından sonra ekleyin

doc çalışma sayfası 8'i yeniden adlandır

Çalışma Sayfalarını Yeniden Adlandır yardımcı programıyla, çalışma sayfalarını belirli bir önek veya sonekle yeniden adlandırabilirsiniz. Birden Çok Çalışma Sayfasını Yeniden Adlandırma hakkında daha fazla bilgi için burayı tıklayın.


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 4 months ago
    Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works.  It always goes into Debug on the first try.  I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 2 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.