Excel'de grafik başlıklarında metin nasıl bulunur ve değiştirilir?

Excel'de grafikler bizim için çok kullanışlıdır ve genellikle onları tanımlamak için onlara bazı başlıklar veririz. Peki birden çok grafikteki grafik başlıklarındaki metin değerini bulup değiştirmeyi denediniz mi? Bugün, birden çok grafik döşemesinde belirli bir metni nasıl bulacağım ve bunları Excel'deki başka bir değerle nasıl değiştireceğim hakkında konuşacağım.

Excel'deki grafik başlıklarındaki metni VBA kodu ile bulun ve değiştirin

Excel'deki grafik başlıklarındaki metni VBA kodu ile bulun ve değiştirin

Aşağıdaki ekran görüntüsü gibi grafikleri içeren bir çalışma sayfanız olduğunu ve yalnızca tüm grafik başlıklarında Ocak ayına kadar metni değiştirmek istediğinizi varsayalım. Elbette bunları manuel olarak tek tek değiştirebilirsiniz, ancak birden fazla grafik varsa bu zaman alıcı olacaktır. Yani burada, aşağıdaki VBA kodu bu görevin üstesinden gelmenize yardımcı olabilir. </ P>

1. Bulmak ve değiştirmek istediğiniz grafikleri başlıklarında içeren çalışma sayfanızı etkinleştirin.

2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Etkin çalışma sayfasındaki grafik başlıklarındaki metni bulun ve değiştirin

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve değiştirmek istediğiniz eski metninizi girmenizi hatırlatan bir komut kutusu açılır, ekran görüntüsüne bakın:

5. Ve sonra tıklayın OK düğmesi ve başka bir istem kutusu açılırsa, eskisini değiştirmek istediğiniz yeni metin değerinizi yazmanız gerekir, ekran görüntüsüne bakın:

6. Tıklamaya git OK bilgi istemi kutusunu kapatmak için ve aşağıdaki ekran görüntüsü gösterildiği gibi mevcut çalışma sayfasında eski metinleriniz bir defada haberlerle değiştirildi:

not: Bir çalışma kitabındaki tüm çalışma sayfalarında grafik başlıklarının metin değerini bulmanız ve değiştirmeniz gerekirse, aşağıdaki VBA kodunu uygulamalısınız: (Prosedür yukarıdakiyle aynıdır)

VBA kodu: Tüm çalışma sayfalarında grafik başlıklarındaki metni bulun ve değiştirin

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 yazılar:

Excel'deki yorumlarda metin nasıl bulunur ve değiştirilir?

Excel'in birden çok metin kutusunda belirli bir metni nasıl bulur ve değiştiririm?

Excel'de aynı anda birden çok köprü yolu nasıl değiştirilir?