วิธีค้นหาและแสดงรายการลิงก์ทั้งหมด (การอ้างอิงภายนอก) ใน Excel
ใน Excel คุณอ้างอิงเนื้อหาของเซลล์ในเวิร์กบุ๊กอื่นด้วยการสร้างการอ้างอิงภายนอก แต่เมื่อคุณต้องการแสดงรายการลิงก์ทั้งหมดของเวิร์กบุ๊กใน Excel การค้นหาและแสดงรายการข้อมูลอ้างอิงภายนอกทั้งหมด (ลิงก์) เป็นเรื่องยาก วิธีที่ซับซ้อนในบทความนี้จะช่วยให้คุณค้นหาและแสดงรายการลิงก์ทั้งหมดในสมุดงานได้อย่างรวดเร็ว
ค้นหาและแสดงรายการลิงก์ทั้งหมดด้วยคำสั่ง Find
ค้นหาและแสดงรายการลิงก์ทั้งหมดด้วยมาโคร VB
ค้นหาและแสดงรายการลิงก์ทั้งหมดด้วย Kutools for Excel
ค้นหาและแสดงรายการลิงก์ทั้งหมดด้วยคำสั่ง Find
เนื่องจากลิงก์ภายนอกมีวงเล็บ [ ลงชื่อเราสามารถค้นหาลิงก์ภายนอกหากเราสามารถรับเครื่องหมายวงเล็บทั้งหมดในสมุดงานทั้งหมดได้
1. คลิก หน้าแรก > ค้นหาและเลือก > หา เพื่อเปิด ค้นหาและแทนที่ กล่องโต้ตอบ คุณยังสามารถเปิดไฟล์ ค้นหาและแทนที่ กล่องโต้ตอบด้วยการกด Ctrl + F กุญแจ
2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร หาอะไร: ให้ป้อนส่วนซ้ายของเครื่องหมายวงเล็บ "[".
3. คลิก Optionsใน ภายใน รายการแบบเลื่อนลงเลือก แผ่น or สมุดงาน ที่คุณต้องการค้นหาลิงก์จาก ดูภาพหน้าจอ:
4. จากนั้นคลิก ค้นหาทั้งหมด ปุ่ม. จากนั้นจะแสดงรายการอ้างอิงภายนอกทั้งหมดในไฟล์ ค้นหาและแทนที่ โต้ตอบทันที กด Ctrl + เพื่อเลือกเซลล์ลิงค์ทั้งหมดดังภาพ screeshot ต่อไปนี้:
ส่วนด้านซ้ายของเครื่องหมายวงเล็บสามารถค้นหาลิงก์ภายนอกในสมุดงานทั้งหมด หากคุณต้องการค้นหาลิงก์ทุกประเภทรวมถึงลิงก์ภายในและลิงก์ภายนอกคุณสามารถป้อนเครื่องหมายอัศเจรีย์ "!" ใน สิ่งที่ค้นหา: กล่อง
ค้นหาและแสดงรายการลิงก์ทั้งหมดด้วยมาโคร VB
แมโคร VBA ต่อไปนี้สามารถช่วยให้เราแสดงรายการสมุดงานแหล่งที่มาที่เชื่อมโยงทั้งหมดในแผ่นงานใหม่ของสมุดงานปัจจุบัน
1. ค้างไว้ ALT + F11 คีย์และจะเปิดหน้าต่าง Microsoft Visual Basic for Applications
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล
VBA: แสดงรายการลิงก์ทั้งหมดใน Excel
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. กด F5 กุญแจสำคัญในการเรียกใช้แมโครนี้ จากนั้นจะสร้างแผ่นงานใหม่ชื่อเป็น ลิงค์ชีต และแสดงรายการตำแหน่งลิงก์ทั้งหมดและชื่อสมุดงานแหล่งที่มาที่เชื่อมโยงและบันทึกเส้นทางในครั้งเดียว ดูภาพหน้าจอ:
ค้นหาและแสดงรายการลิงก์ทั้งหมดด้วย Kutools for Excel
กับ Kutools สำหรับ Excel's ค้นหาและทำลายลิงค์ที่เสียคุณสามารถค้นหาลิงก์ภายนอกทั้งหมดของแผ่นงานที่ใช้งานได้ในเวลาเดียวกันคุณสามารถทำลายลิงก์ที่ต้องการได้ตามต้องการ
ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:
1. เปิดใช้งานแผ่นงานที่คุณต้องการค้นหาลิงก์แล้วคลิก Kutools > ลิงค์ > ค้นหาและทำลายลิงค์เสียดูภาพหน้าจอ:
2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร ค้นหาและทำลายลิงค์ที่เสีย คลิกตกลง ตัวกรอง รายการแบบเลื่อนลงเพื่อเลือก ลิงค์ทั้งหมดและลิงก์ทั้งหมดในแผ่นงานที่ใช้งานอยู่จะแสดงรายการคุณสามารถดูสถานะลิงก์ได้เช่นกัน OK หมายถึงลิงค์ถูกต้อง ความผิดพลาด หมายความว่าลิงก์เสีย
หมายเหตุ / รายละเอียดเพิ่มเติม:
1 หาก ดูเซลล์ ตัวเลือกจะถูกเลือกเมื่อคุณคลิกที่ลิงค์ในรายการ จะค้นหาและไปที่เซลล์เฉพาะซึ่งมีลิงค์ในแผ่นงาน
2. และหากคุณต้องการทำลายลิงก์คุณสามารถเลือกลิงก์จากรายการจากนั้นคลิก ทำลายลิงค์.
คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!
หากคุณต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้โปรดคลิก ค้นหาและทำลายลิงค์ที่เสีย.
ค้นหาและแสดงรายการลิงก์ทั้งหมดด้วย Kutools for Excel
Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดทดลองใช้ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
