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

차트는 Excel에서 매우 유용하며 종종 차트를 식별하기위한 제목을 제공합니다. 하지만 여러 차트 내의 차트 제목에서 텍스트 값을 찾아서 바꾸려고 했습니까? 오늘은 여러 차트 타일에서 특정 텍스트를 찾고 Excel에서 다른 값으로 바꾸는 방법에 대해 설명하겠습니다.

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

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

다음 스크린 샷과 같은 차트가 포함 된 워크 시트가 있고 모든 차트 제목 내에서만 XNUMX 월을 XNUMX 월로 대체하려고한다고 가정합니다. 물론 하나씩 수동으로 변경할 수 있지만 차트가 여러 개인 경우 시간이 많이 걸립니다. 따라서 여기에서 다음 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. 그런 다음 OK 버튼을 클릭하고 다른 프롬프트 상자가 나타나면 이전 텍스트 값을 대체하려는 새 텍스트 값을 입력해야합니다. 스크린 샷을 참조하십시오.

6. 클릭으로 이동 OK 프롬프트 상자를 닫으려면 다음 스크린 샷과 같이 현재 워크 시트에서 이전 텍스트가 한 번에 뉴스로 대체되었습니다.

주의 사항: 통합 문서의 모든 워크 시트에서 차트 제목의 텍스트 값을 찾아서 바꿔야하는 경우 다음 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에서 한 번에 여러 하이퍼 링크 경로를 변경하는 방법은 무엇입니까?