Excel'de sayfa sekmesi adlarını nasıl bulup değiştirirsiniz?

Excel'de hücrelerdeki değerleri bulmak ve değiştirmek kolaydır. Ancak Excel'de sayfa adlarını bulup değiştirmenin bir yolu var mı? Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, sayfa adında “KTE(Satış) xxx” içeren birden fazla çalışma sayfasınız var ve şimdi tüm “KTE(Satış)” ifadelerini ilgili tüm sayfa adlarında “KTE” ile değiştirmeniz gerekiyor, ne yapabilirsiniz? Bu makale, bunu gerçekleştirmek için bir VBA yöntemini tanıtmaktadır.

VBA kodu ile sayfa sekmesi adlarını bulup değiştirin

VBA kodu ile sayfa sekmesi adlarını bulup değiştirin

Lütfen Excel'de sayfa sekmesi adlarını bulup değiştirmek için aşağıdaki VBA kodunu uygulayın. Lütfen şu adımları izleyin.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından, aşağıdaki VBA kodunu kod penceresine kopyalayın.

VBA kodu: Excel'de sayfa sekmesi adlarını bulup değiştirin

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın.

4. Ardından bir Kutools for Excel iletişim kutusu açılır, lütfen değiştireceğiniz sayfa adlarının kelimelerini girin ve Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

5. İkinci Kutools for Excel iletişim kutusunda, değiştireceğiniz kelimeyi girin ve ardından Tamam düğmesine tıklayın.

Ardından, sayfa sekmesi adlarındaki tüm ilgili kelimeler aşağıdaki ekran görüntüsünde gösterildiği gibi belirtilenle değiştirilir.

Not: Yukarıdaki kod büyük/küçük harf duyarlıdır.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler:

• Excel'de tüm boş hücreleri belirli bir sayı veya metinle nasıl bulup değiştirirsiniz?
• Excel'de hücrelerde virgülleri yeni satırlarla (Alt + Enter) nasıl değiştirirsiniz?
• Excel'de metin bulma ve değiştirme işlemini gerçekleştirmek için bir makro kodu nasıl oluşturursunuz?
• Excel'de virgülle ayrılmış liste içeren bir hücrede değeri nasıl bulursunuz?
• Excel'de iki sütun listesinin kesişimini nasıl bulursunuz?