Excel'de sayfa sekme adlarını nasıl Bul ve Değiştir yapabilirsiniz?
Excel'de hücrelerdeki değerleri Bul ve Değiştir ile değiştirmek oldukça kolaydır. Peki ya Excel'de sayfa adlarını Bul ve Değiştir ile değiştirmek mümkün mü? Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, “KTE(Sales) xxx” biçiminde birden fazla çalışma sayfanız varsa ve tüm bu sayfa adlarındaki “KTE(Sales)” ifadesini “KTE” ile değiştirmeniz gerekiyorsa ne yaparsınız? Bu makale, bu işlemi gerçekleştirmek için size etkili bir VBA yöntemi sunacaktır.
VBA koduyla sayfa sekme adlarını Bul ve Değiştir
VBA koduyla sayfa sekme adlarını Bul ve Değiştir
Lütfen aşağıdaki VBA kodunu Excel'de sayfa sekme adlarını Bul ve Değiştir amacıyla uygulayın. Bunun için aşağıdaki adımları izleyin.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu kod penceresine kopyalayın.
VBA kodu: Excel'de sayfa sekme adlarını Bul ve Değiştir
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 Sub3. F5 tuşuna basarak kodu çalıştırın.
4. Ardından bir Kutools for Excel iletişim kutusu açılır; değiştirmek istediğiniz sayfa adını 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ştirmek istediğiniz kelimeyi girin ve ardından Tamam düğmesine tıklayın.
Böylece, aşağıdaki ekran görüntüsünde gösterildiği gibi, sayfa sekme adlarındaki tüm ilgili kelimeler belirtilen kelimeyle değiştirilir.
Not: Yukarıdaki kod büyük/küçük harf duyarlıdır.
Excel'in sihrini KUTOOLS AI ile keşfedin
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tüm bunlar basit komutlarla yönetilir.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri bir çırpıda anlayın.
- Metin Çevirisi: Elektronik tablolarınızdaki dil bariyerlerini aşın.
İlgili makaleler:
- Excel'de tüm boş hücreleri belirli bir sayı veya metinle nasıl Bul ve Değiştir yapabilirim?
- Excel'de hücrelerdeki virgülleri yeni satırlara (Alt + Enter) nasıl dönüştürebilirsiniz?
- Excel'de Bul ve Değiştir işlemini gerçekleştirmek için nasıl bir makro kodu yazılır?
- Excel'de virgülle ayrılmış değerler içeren bir hücrede belirli bir değeri nasıl bulabilirim?
- Excel'de iki sütunun kesişim noktasını nasıl bulabilirim?
En İyi Office Verimlilik Araçları
Excel becerilerinizi Kutools for Excel ile güçlendirin ve verimlilikte hiç yaşanmamış bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir—bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi-bir-arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında verimliliği akıcı hale getirir
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi değer— ayrı ayrı eklenti satın almaya göre tasarruf sağlar