Làm cách nào để tìm và thay thế văn bản trong tiêu đề biểu đồ trong Excel?

Biểu đồ rất hữu ích cho chúng tôi trong Excel và chúng tôi thường cung cấp cho chúng một số tiêu đề để xác định chúng. Nhưng bạn đã thử tìm và thay thế giá trị văn bản trong tiêu đề biểu đồ trong nhiều biểu đồ chưa? Hôm nay, tôi sẽ nói về cách tìm một văn bản cụ thể trong nhiều ô biểu đồ và thay thế chúng bằng giá trị khác trong Excel.

Tìm và thay thế văn bản trong tiêu đề biểu đồ trong Excel bằng mã VBA

Tìm và thay thế văn bản trong tiêu đề biểu đồ trong Excel bằng mã VBA

Giả sử bạn có một trang tính chứa các biểu đồ như ảnh chụp màn hình sau đây và bạn chỉ muốn thay thế văn bản Tháng Giêng bằng Tháng Hai trong tất cả các tiêu đề biểu đồ. Tất nhiên, bạn có thể thay đổi thủ công từng cái một, nhưng việc này sẽ tốn thời gian nếu có nhiều biểu đồ. Vì vậy, ở đây, mã VBA sau có thể giúp bạn giải quyết công việc này. </ P>

1. Kích hoạt trang tính của bạn có chứa các biểu đồ bạn muốn tìm và thay thế trong tiêu đề của chúng.

2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Tìm và thay thế văn bản trong tiêu đề biểu đồ trong trang tính đang hoạt động

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. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ xuất hiện để nhắc bạn nhập văn bản cũ mà bạn muốn thay thế, xem ảnh chụp màn hình:

5. Và sau đó nhấp vào OK và một hộp nhắc khác bật lên, bạn cần nhập giá trị văn bản mới mà bạn muốn thay thế giá trị cũ, xem ảnh chụp màn hình:

6. Tiếp tục nhấp OK để đóng hộp nhắc và các văn bản cũ của bạn đã được thay thế bằng tin tức tại một thời điểm trong trang tính hiện tại như ảnh chụp màn hình sau:

Chú thích: Nếu bạn cần tìm và thay thế giá trị văn bản của tiêu đề biểu đồ trong tất cả các trang tính trong sổ làm việc, bạn nên áp dụng mã VBA sau: (Quy trình tương tự như trên)

Mã VBA: Tìm và thay thế văn bản trong tiêu đề biểu đồ trong tất cả các trang tính

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

Các bài liên quan:

Làm cách nào để tìm và thay thế văn bản trong các nhận xét trong Excel?

Làm cách nào để tìm và thay thế văn bản cụ thể trong nhiều hộp văn bản của Excel?

Làm cách nào để thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong Excel?