วิธีค้นหาและแทนที่ในส่วนหัวหรือส่วนท้ายใน Excel
การค้นหาค่าเฉพาะและแทนที่ด้วยค่าอื่นเป็นงานทั่วไปใน Excel แต่ฟังก์ชันค้นหาและแทนที่มาตรฐานจะทำงานได้เฉพาะในส่วนที่เลือก แผ่นงาน และเวิร์กบุ๊กเท่านั้น ไม่ทำงานบนส่วนหัวและส่วนท้าย ในบทความนี้ ฉันจะแนะนำโค้ดแมโครสำหรับค้นหาและแทนที่ค่าในส่วนหัวและส่วนท้าย
ค้นหาและแทนที่ในส่วนหัวหรือส่วนท้ายด้วย VBA
ค้นหาและแทนที่ในส่วนหัวหรือส่วนท้ายด้วย VBA
1. เปิดใช้งานชีตที่คุณต้องการค้นหาและแทนที่ข้อความในส่วนหัวและส่วนท้าย กด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ด VBA ด้านล่างลงในโมดูล ดูภาพหน้าจอ:
VBA: ค้นหาและแทนที่ในส่วนหัวและส่วนท้าย
Sub FnR_HF()
'UpdateByExtendoffice20160623
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
With ActiveSheet.PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
End Sub
3. จากนั้นกด F5 เพื่อเรียกใช้รหัสจากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณป้อนข้อความที่คุณต้องการค้นหา ดูภาพหน้าจอ:
4 คลิก OKและกล่องโต้ตอบอื่นจะปรากฏขึ้นเพื่อป้อนข้อความที่คุณต้องการแทนที่ด้วย ดูภาพหน้าจอ:
5 คลิก OK. ตอนนี้ค่า “ KTE” ถูกแทนที่ด้วย “ Kutools สำหรับ Excel” ในส่วนหัวและส่วนท้าย
ปลาย:หากคุณต้องการนำสิ่งนี้ไปใช้กับเวิร์กบุ๊กทั้งหมด คุณสามารถใช้โค้ดแมโครด้านล่างนี้ได้
Sub FnR_HF()
'UpdateByExtendoffice20171122
Dim I As Long
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
For I = 1 To ActiveWorkbook.Sheets.Count
With Sheets(I).PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
Next
End Sub
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!