Excel에서 차트 제목의 텍스트를 찾고 바꾸는 방법은 무엇입니까?

차트는 Excel에서 매우 유용하며, 우리는 종종 이를 식별하기 위해 몇 가지 제목을 부여합니다. 하지만 여러 차트 내의 차트 제목에 있는 텍스트 값을 찾아서 바꿔본 적이 있나요? 오늘은 Excel에서 여러 차트 제목에서 특정 텍스트를 찾고 다른 값으로 바꾸는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 Excel에서 차트 제목의 텍스트를 찾고 바꾸기

VBA 코드를 사용하여 Excel에서 차트 제목의 텍스트를 찾고 바꾸기

다음 스크린샷과 같이 차트가 포함된 워크시트가 있다고 가정해 보겠습니다. 그리고 모든 차트 제목에서 '1월'이라는 텍스트를 '2월'로 바꾸고 싶습니다. 물론 하나씩 수동으로 변경할 수 있지만, 차트가 여러 개 있다면 시간이 많이 걸릴 것입니다. 따라서 다음 VBA 코드가 이 작업을 처리하는 데 도움이 될 수 있습니다.< /p>

1. 제목에서 찾고 바꾸려는 차트가 포함된 워크시트를 활성화하세요.

2. ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

3. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣으세요.

VBA 코드: 활성 워크시트 내 차트 제목에서 텍스트 찾기 및 바꾸기

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. 그런 다음 이 코드를 실행하기 위해 F5 키를 누르면 교체하려는 기존 텍스트를 입력하라는 메시지 상자가 나타납니다. 아래 스크린샷 참조:

5. 확인 버튼을 클릭하면 또 다른 메시지 상자가 나타나며, 여기에 기존 텍스트를 대체할 새 텍스트 값을 입력해야 합니다. 아래 스크린샷 참조:

6. 계속해서 확인을 클릭하여 메시지 상자를 닫으면 현재 워크시트에서 기존 텍스트가 새 텍스트로 한 번에 모두 교체됩니다. 아래 스크린샷 참조:

참고: 워크북의 모든 워크시트에서 차트 제목의 텍스트 값을 찾아 바꿔야 하는 경우, 다음 VBA 코드를 적용해야 합니다. (절차는 위와 동일함)

VBA 코드: 모든 워크시트 내 차트 제목에서 텍스트 찾기 및 바꾸기

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

관련 기사:

Excel에서 코멘트 내 텍스트를 찾고 바꾸는 방법은 무엇입니까?

Excel의 여러 텍스트 상자에서 특정 텍스트를 찾고 바꾸는 방법은 무엇입니까?

Excel에서 여러 하이퍼링크 경로를 한 번에 변경하려면 어떻게 해야 합니까?