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