วิธีลบไฮเปอร์ลิงก์โดยไม่ต้องลบการจัดรูปแบบ
ใน Excel เมื่อเราลบไฮเปอร์ลิงก์ที่มีการจัดรูปแบบบางอย่างเช่นสีพื้นหลังแบบอักษรขนาดและอื่น ๆ การจัดรูปแบบจะถูกลบออกเช่นเดียวกับภาพหน้าจอที่แสดงต่อไปนี้ แต่บางครั้งเราจำเป็นต้องคงรูปแบบเซลล์ไว้เมื่อลบไฮเปอร์ลิงก์ออก มีวิธีใดบ้างที่จะช่วยเราแก้ปัญหาที่น่ารำคาญนี้
 |
 |
 |
ลบไฮเปอร์ลิงก์โดยไม่ต้องลบการจัดรูปแบบด้วยรหัส VBA
ลบไฮเปอร์ลิงก์โดยไม่ต้องลบการจัดรูปแบบด้วยรหัส VBA
ใน Excel ไม่มีวิธีโดยตรงในการจัดการกับงานนี้ แต่คุณสามารถใช้รหัส VBA ต่อไปนี้เพื่อรักษาการจัดรูปแบบเซลล์เมื่อลบไฮเปอร์ลิงก์ออก
1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: ลบการเชื่อมโยงหลายมิติโดยไม่ต้องลบการจัดรูปแบบ
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่มีการเชื่อมโยงหลายมิติดูภาพหน้าจอ:
4. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบไฮเปอร์ลิงก์จะถูกลบออก แต่การจัดรูปแบบของไฮเปอร์ลิงก์ (รวมถึงขีดเส้นใต้) ยังคงอยู่
บทความที่เกี่ยวข้อง:
วิธีเปลี่ยนเส้นทางการเชื่อมโยงหลายมิติพร้อมกันใน Excel
วิธีแยกที่อยู่จริงจากไฮเปอร์ลิงก์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
