Bagaimana menemukan dan mengganti teks dalam judul grafik di Excel?

Grafik sangat berguna bagi kami di Excel, dan kami sering memberi mereka beberapa judul untuk mengidentifikasinya. Tetapi apakah Anda pernah mencoba mencari dan mengganti nilai teks pada judul grafik dalam beberapa grafik? Hari ini, saya akan berbicara tentang cara menemukan teks tertentu di beberapa ubin bagan dan menggantinya dengan nilai lain di Excel.

Temukan dan ganti teks dalam judul bagan di Excel dengan kode VBA

Temukan dan ganti teks dalam judul bagan di Excel dengan kode VBA

Misalkan Anda memiliki lembar kerja yang berisi grafik seperti gambar berikut yang ditampilkan, dan Anda ingin mengganti teks Januari dengan Februari di semua judul grafik saja. Tentu saja, Anda dapat mengubahnya secara manual satu per satu, tetapi ini akan memakan waktu jika ada beberapa bagan. Jadi di sini, kode VBA berikut dapat membantu Anda menangani tugas ini. </ P>

1. Aktifkan lembar kerja Anda yang berisi grafik yang ingin Anda temukan dan ganti di judulnya.

2. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Temukan dan ganti teks dalam judul bagan dalam lembar kerja aktif

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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memasukkan teks lama yang ingin Anda ganti, lihat tangkapan layar:

5. Dan kemudian klik OK tombol, dan kotak prompt lain muncul, Anda perlu mengetikkan nilai teks baru Anda yang ingin Anda ganti yang lama, lihat tangkapan layar:

6. Lanjutkan mengklik OK untuk menutup kotak prompt, dan teks lama Anda telah diganti dengan berita pada satu waktu di lembar kerja saat ini seperti gambar berikut yang ditampilkan:

Note: Jika Anda perlu mencari dan mengganti nilai teks dari judul bagan di semua lembar kerja di buku kerja, Anda harus menerapkan kode VBA berikut: (Prosedurnya sama seperti di atas)

Kode VBA: Temukan dan ganti teks dalam judul bagan dalam semua lembar kerja

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

Artikel terkait:

Bagaimana menemukan dan mengganti teks dalam komentar di Excel?

Bagaimana menemukan dan mengganti teks tertentu di beberapa kotak teks Excel?

Bagaimana cara mengubah beberapa jalur hyperlink sekaligus di Excel?