วิธีค้นหาและแทนที่ข้อความในชื่อแผนภูมิใน Excel
แผนภูมิมีประโยชน์มากสำหรับเราใน Excel และเรามักให้ชื่อเรื่องเพื่อระบุชื่อ แต่คุณได้พยายามค้นหาและแทนที่ค่าข้อความในชื่อแผนภูมิภายในหลายแผนภูมิแล้วหรือยัง วันนี้ฉันจะพูดถึงวิธีการค้นหาข้อความเฉพาะในแผนภูมิหลายแผ่นและแทนที่ด้วยค่าอื่นใน Excel
ค้นหาและแทนที่ข้อความในชื่อแผนภูมิใน Excel ด้วยรหัส VBA
- ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
- คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
- ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
- แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
- วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
- ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
- คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ
ค้นหาและแทนที่ข้อความในชื่อแผนภูมิใน 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
เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
- นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
- Super Formula Bar (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
- ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
- เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
- สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
- แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
- ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
- รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
- คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
