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

찾기 및 바꾸기는 워크 시트에서 셀 내용이나 수식을 빠르고 편리하게 찾고 바꿀 수있는 유용한 도구입니다. 하지만 이제 워크 시트에 여러 개의 텍스트 상자가 있고 특정 텍스트를 찾아이 텍스트 상자에서만 다른 값으로 바꾸고 싶습니다. 이 문제를 다루는 좋은 방법이 있습니까?

여러 텍스트 상자에서 특정 텍스트 찾기 및 바꾸기

여러 텍스트 상자에서 특정 텍스트 찾기 및 바꾸기

필요한 텍스트를 하나씩 수동으로 찾아서 바꿀 수 있지만 텍스트 상자가 여러 개인 경우 지루하고 피곤합니다. 따라서 다음 VBA 코드는 한 번에 완료하는 데 도움이 될 수 있습니다.

1. 워크 시트를 활성화하고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 현재 워크 시트의 텍스트 상자에서 특정 텍스트 찾기 및 바꾸기

Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하면 바꾸려는 이전 텍스트를 입력하라는 메시지 상자가 나타납니다. 스크린 샷보기 :

4. 클릭으로 이동 OK이 프롬프트 상자에 원하는 새 텍스트 값을 입력하고 스크린 샷을 참조하십시오.

5. 그런 다음 OK 버튼을 클릭하면 이전 값이 현재 워크 시트에 입력 한 새 값으로 대체되었습니다. 스크린 샷보기 :

관련 기사 :

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

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

Excel에서 한 번에 여러 하이퍼 링크 경로를 변경하는 방법은 무엇입니까?