Skip to main content

Kutools for Office — 하나의 패키지. 다섯 가지 도구. 더 많은 일을 처리하세요.

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

Author Xiaoyang Last modified

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

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


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

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

a screenshot of original charts

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

a screenshot of entering the old chart title

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

a screenshot of entering the new chart title

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

a screenshot of the result

참고: 워크북의 모든 워크시트에서 차트 제목의 텍스트 값을 찾아 바꿔야 하는 경우, 다음 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에서 여러 하이퍼링크 경로를 한 번에 변경하려면 어떻게 해야 합니까?


최고의 오피스 생산성 도구

🤖 Kutools AI 도우미: 데이터 분석에 혁신을 가져옵니다. 방법: 지능형 실행   |  코드 생성  |  사용자 정의 수식 생성  |  데이터 분석 및 차트 생성  |  Kutools Functions 호출
인기 기능: 중복 찾기, 강조 또는 중복 표시   |  빈 행 삭제   |  데이터 손실 없이 열 또는 셀 병합   |   반올림(수식 없이) ...
슈퍼 LOOKUP: 다중 조건 VLOOKUP    다중 값 VLOOKUP  |   다중 시트 조회   |   퍼지 매치 ....
고급 드롭다운 목록: 드롭다운 목록 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭다운 목록 ....
열 관리자: 지정한 수의 열 추가  |  열 이동  |  숨겨진 열의 표시 상태 전환  |  범위 및 열 비교 ...
추천 기능: 그리드 포커스   |  디자인 보기   |   향상된 수식 표시줄    통합 문서 & 시트 관리자   |  자동 텍스트 라이브러리   |  날짜 선택기   |  데이터 병합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터(굵게/이탤릭/취소선 필터 등) ...
15대 주요 도구 세트12 가지 텍스트 도구(텍스트 추가, 특정 문자 삭제, ...)  |  50+ 종류의 차트(간트 차트, ...)  |  40+ 실용적 수식(생일을 기반으로 나이 계산, ...)  |  19 가지 삽입 도구(QR 코드 삽입, 경로에서 그림 삽입, ...)  |  12 가지 변환 도구(단어로 변환하기, 통화 변환, ...)  |  7 가지 병합 & 분할 도구(고급 행 병합, 셀 분할, ...)  |  ... 등 다양
Kutools는 사용자가 선호하는 언어로 이용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40개 이상의 언어 지원!

Kutools for Excel과 함께 엑셀 능력을 한 단계 끌어 올리고, 이전에 없던 효율성을 경험하세요. Kutools for Excel은300개 이상의 고급 기능으로 생산성을 높이고 저장 시간을 단축합니다.  가장 필요한 기능을 바로 확인하려면 여기를 클릭하세요...


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 더욱 간편하게 만듭니다

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기를 활성화합니다.
  • 새 창 대신 같은 창의 새로운 탭에서 여러 파일을 열고 생성할 수 있습니다.
  • 생산성이50% 증가하며, 매일 수백 번의 마우스 클릭을 줄여줍니다!

모든 Kutools 추가 기능. 한 번에 설치

Kutools for Office 제품군은 Excel, Word, Outlook, PowerPoint용 추가 기능과 Office Tab Pro를 한 번에 제공하여 Office 앱을 활용하는 팀에 최적입니다.

Excel Word Outlook Tabs PowerPoint
  • 올인원 제품군 — Excel, Word, Outlook, PowerPoint 추가 기능 + Office Tab Pro
  • 설치 한 번, 라이선스 한 번 — 몇 분 만에 손쉽게 설정(MSI 지원)
  • 함께 사용할 때 더욱 효율적 — Office 앱 간 생산성 향상
  • 30일 모든 기능 사용 가능 — 회원가입/카드 불필요
  • 최고의 가성비 — 개별 추가 기능 구매 대비 절약