จะค้นหาและแทนที่ข้อความเฉพาะในกล่องข้อความได้อย่างไร?
ค้นหาและแทนที่เป็นเครื่องมือที่มีประโยชน์สำหรับเราในการค้นหาและแทนที่เนื้อหาของเซลล์หรือสูตรอย่างรวดเร็วและสะดวกในแผ่นงาน แต่ตอนนี้ฉันมีกล่องข้อความหลายกล่องในแผ่นงานของฉันและฉันต้องการค้นหาข้อความที่ระบุและแทนที่ด้วยค่าอื่นในกล่องข้อความเหล่านี้เท่านั้น คุณมีวิธีที่ดีในการจัดการกับปัญหานี้หรือไม่?
ค้นหาและแทนที่ข้อความเฉพาะในกล่องข้อความหลายกล่อง
ค้นหาและแทนที่ข้อความเฉพาะในกล่องข้อความหลายกล่อง
คุณสามารถค้นหาและแทนที่ข้อความที่คุณต้องการได้ด้วยตนเองทีละกล่อง แต่ถ้ามีกล่องข้อความหลายกล่องสิ่งนี้จะน่าเบื่อและเหนื่อย ดังนั้นรหัส 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
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
