จะค้นหาและแทนที่ข้อความเฉพาะในกล่องข้อความได้อย่างไร?

ค้นหาและแทนที่เป็นเครื่องมือที่มีประโยชน์สำหรับเราในการค้นหาและแทนที่เนื้อหาของเซลล์หรือสูตรอย่างรวดเร็วและสะดวกในแผ่นงาน แต่ตอนนี้ฉันมีกล่องข้อความหลายกล่องในแผ่นงานของฉันและฉันต้องการค้นหาข้อความที่ระบุและแทนที่ด้วยค่าอื่นในกล่องข้อความเหล่านี้เท่านั้น คุณมีวิธีที่ดีในการจัดการกับปัญหานี้หรือไม่?

ค้นหาและแทนที่ข้อความเฉพาะในกล่องข้อความหลายกล่อง

ค้นหาและแทนที่ข้อความเฉพาะในกล่องข้อความหลายกล่อง

คุณสามารถค้นหาและแทนที่ข้อความที่คุณต้องการได้ด้วยตนเองทีละกล่อง แต่ถ้ามีกล่องข้อความหลายกล่องสิ่งนี้จะน่าเบื่อและเหนื่อย ดังนั้นรหัส 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