Excel'de grafik başlıklarındaki metni Bul ve Değiştir ile nasıl değiştirebilirim?
Grafikler, Excel’de bizim için son derece kullanışlıdır ve genellikle tanımlamak amacıyla üzerlerine başlık ekleriz. Peki, birden fazla grafikteki **Grafik Başlıkları** içindeki metni **Bul ve Değiştir** ile denediniz mi? Bugün, Excel’de birden fazla grafik başlığında belirli bir metni nasıl bulup başka bir değerle nasıl değiştireceğinizi göstereceğim.
Excel'de VBA kodu ile Grafik Başlıkları içindeki Bul ve Değiştir metni
Excel'de VBA kodu ile Grafik Başlıkları içindeki Bul ve Değiştir metni
Diyelim ki aşağıdaki ekran görüntüsünde gösterildiği gibi grafikler içeren bir çalışma sayfanız var ve yalnızca tüm Grafik Başlıklarındaki “Ocak” metnini “Şubat” ile değiştirmek istiyorsunuz. Elbette bunu tek tek manuel olarak yapabilirsiniz; ancak çok sayıda grafik söz konusuysa bu işlem oldukça zaman alıcı olur. İşte tam da bu noktada aşağıdaki VBA kodu, görevinizi kolayca halledebilir.
1. Başlıklarındaki metni Bul ve Değiştir kullanmak istediğiniz grafikleri içeren çalışma sayfanızı etkinleştirin.
2. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
3. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Etkin çalışma sayfası içindeki Grafik Başlıkları içindeki Bul ve Değiştir metni
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4. Ardından bu kodu çalıştırmak için F5 tuşuna basın; ardından değiştirmek istediğiniz Eski Metin’i girmenizi isteyen bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
5. Ardından Tamam düğmesine tıklayın; başka bir uyarı kutusu açılacak ve eski değeri değiştirmek için yeni **Yeni Metin** değerini girmeniz gerekecektir. Ekran görüntüsüne bakın:
6. Uyarı kutusunu kapatmak için Tamam seçeneğine tıklamaya devam edin; böylece Eski Metin, aşağıdaki ekran görüntüsünde gösterildiği gibi Geçerli Çalışma Sayfası’nda aynı anda yeni metinle değiştirilecektir:
Not: Bir çalışma kitabındaki tüm çalışma sayfalarındaki Grafik Başlıkları metin değerini Bul ve Değiştir gerekiyorsa, aşağıdaki VBA kodunu uygulamanız gerekir: (Yukarıdakiyle aynı adımları izleyin)
VBA kodu: Tüm çalışma sayfaları içindeki Grafik Başlıkları içindeki Bul ve Değiştir metni
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
İlgili makaleler:
Excel'de yorumlar içindeki metni nasıl Bul ve Değiştir yapabilirim?
Excel'de birden fazla Metin Kutusu içindeki belirli metni nasıl Bul ve Değiştir yapabilirim?
Excel'de birden fazla köprü yolunu aynı anda nasıl değiştirebilirsiniz?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız 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 bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- 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 kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar