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?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!
