메인 컨텐츠로 가기

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

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

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


화살표 블루 오른쪽 거품 VBA 코드를 사용하여 Excel의 차트 제목에서 텍스트 찾기 및 바꾸기

다음 스크린 샷과 같은 차트가 포함 된 워크 시트가 있고 모든 차트 제목 내에서만 XNUMX 월을 XNUMX 월로 대체하려고한다고 가정합니다. 물론 하나씩 수동으로 변경할 수 있지만 차트가 여러 개인 경우 시간이 많이 걸립니다. 따라서 여기에서 다음 VBA 코드가이 작업을 처리하는 데 도움이 될 수 있습니다. </ p>

문서-교체-차트-제목1

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 키를 눌러이 코드를 실행하면 교체 할 이전 텍스트를 입력하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

문서-교체-차트-제목1

5. 그런 다음 OK 버튼을 클릭하고 다른 프롬프트 상자가 나타나면 이전 텍스트 값을 대체하려는 새 텍스트 값을 입력해야합니다. 스크린 샷을 참조하십시오.

문서-교체-차트-제목1

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

문서-교체-차트-제목1

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

최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Just want to say thanks for this. Saved me hours of time.
This comment was minimized by the moderator on the site
I want to do this for text in the legend and axis labels as well. What's the VBA name for the Legend? I tried to edit the module by replacing "ChartTitle" with "Legend" "LegendEntry" "ChartLegend" none work.
This comment was minimized by the moderator on the site
Some of my chart titles contain multiple font sizes. When I run the macro above, it converts all of the fonts to the same size and I have to go back through and manually re-size them. Is there a way to modify the VBA code so that it maintains the original font sizes? (I'm still a VBA newb, so any help would be appreciated!)
This comment was minimized by the moderator on the site
Thank you!!! It helped me so much!!!
This comment was minimized by the moderator on the site
This one works for me, because otherwise the variables are not declared : Sub ChartLabelReplace() 'Update 20141017 Dim xFindStr As String Dim xReplace As String Dim ws As Worksheet Dim ch As ChartObject xFindStr = InputBox("Find:") xReplace = InputBox("Replace:") For Each ws In Worksheets For Each ch In ws.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
This comment was minimized by the moderator on the site
How does one change the VBA macro to only apply the change to selected charts (and not all the charts on the worksheet)?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations