ไปยังเนื้อหาหลัก

วิธีการติดตามก่อนหน้าหรือผู้อยู่ในอุปการะสำหรับช่วง / หลายเซลล์ใน Excel

ใน Excel เราสามารถติดตามตัวอย่างก่อนหน้าหรือส่วนที่อยู่ในอุปการะของเซลล์ด้วยคุณสมบัติ build-in ใน Excel โดยคลิกทีละเซลล์ แต่ถ้ามีเซลล์หลายร้อยเซลล์ที่คุณต้องการติดตามอดีตหรือผู้อยู่ในอุปการะในเวลาเดียวกันคุณจะจัดการกับงานนี้ได้อย่างรวดเร็วและง่ายดายใน Excel ได้อย่างไร?

ติดตามก่อนหน้าสำหรับช่วงของเซลล์ด้วยสูตรตัวช่วย

ติดตามผู้ติดตามสำหรับช่วงของเซลล์ด้วยรหัส VBA

ติดตามอดีตหรือผู้อยู่ในอุปการะสำหรับช่วงของเซลล์ด้วย Kutools for Excel


ในการติดตามก่อนหน้าสำหรับหลายเซลล์ขั้นตอนต่อไปนี้สามารถช่วยคุณได้:

1. ใส่เครื่องหมายเท่ากับ = ลงในเซลล์ว่างจากนั้นคลิกที่มุมบนซ้ายของแผ่นงานเพื่อเลือกทั้งแผ่นดูภาพหน้าจอ:

doc trace ขึ้นอยู่กับ 1

2. จากนั้นกด เข้าสู่ และข้อความเตือนจะปรากฏขึ้นดูภาพหน้าจอ:

doc trace ขึ้นอยู่กับ 2

3. และคลิก OK เพื่อปิดและ 0 จะแสดงในเซลล์เลือกจากนั้นคลิก สูตร และคลิก ร่องรอยก่อน สองครั้งก่อนหน้านี้ทั้งหมดของเซลล์ที่เกี่ยวข้องได้รับการตรวจสอบพร้อมกันดูภาพหน้าจอ:

doc trace ขึ้นอยู่กับ 3

4. ในที่สุดคุณสามารถลบสูตรตัวช่วยได้ตามต้องการ


ในการติดตามผู้อยู่ในอุปการะสำหรับหลายเซลล์รหัส VBA ต่อไปนี้สามารถช่วยคุณได้โปรดทำดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ติดตามผู้ติดตามสำหรับช่วงของเซลล์:

Sub TraceDependents()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Union(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xCell.ShowDependents
    Next
End Sub

3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงที่คุณต้องการใช้ดูภาพหน้าจอ:

doc trace ขึ้นอยู่กับ 4

4. จากนั้นคลิก OK ปุ่มเซลล์ที่ขึ้นอยู่ทั้งหมดจะถูกตรวจสอบพร้อมกันดูภาพหน้าจอ:

doc trace ขึ้นอยู่กับ 5


หากต้องการเจ็บปวดด้วยวิธีการข้างต้นฉันจะแนะนำเครื่องมือที่มีประโยชน์ -Kutools สำหรับ Excelเดียวกันกับที่ ตรวจสอบแบบอย่างของช่วง และ การตรวจสอบ ผู้อยู่ในอุปการะ ของช่วง ยูทิลิตี้คุณสามารถแก้ปัญหานี้ได้อย่างรวดเร็วและง่ายดาย

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เลือกช่วงข้อมูลที่คุณต้องการติดตามอดีตหรือผู้อยู่ในอุปการะ

2. จากนั้นคลิก Kutools > More > ตรวจสอบแบบอย่างของช่วง / ตรวจสอบผู้อยู่ในอุปการะของช่วงดูภาพหน้าจอ:

3. ติดตามเซลล์ก่อนหน้าให้เลือก ตรวจสอบแบบอย่างของช่วง เพื่อให้ได้ผลลัพธ์ต่อไปนี้:

doc trace ขึ้นอยู่กับ 7

ติดตามเซลล์ที่อ้างอิงโปรดเลือก ตรวจสอบผู้อยู่ในอุปการะของช่วง เพื่อให้ได้ผลลัพธ์ต่อไปนี้:

doc trace ขึ้นอยู่กับ 8

หมายเหตุ:

1. คุณลักษณะนี้เป็นแบบไดนามิกซึ่งจะเปลี่ยนแปลงตามการเลือกของคุณ

2. คุณยังสามารถใช้คุณสมบัตินี้ได้โดยคลิก Kutools พลัส > การออกแบบแผ่นงานภายใต้ ออกแบบ คลิกแท็บ การตรวจสอบ แบบอย่างและผู้อยู่ในอุปการะ

3. คุณต้องคลิกยูทิลิตี้อีกครั้งเพื่อปิดใช้งานการติดตาม

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The reason that Excel hangs is due to the time. There is an error in the macro. It is showing application.union but what it should be doing is using application.intersect. The reason it's hanging is because it's working to trace dependents on the entire worksheet instead of the specified area.
This comment was minimized by the moderator on the site
Hi, jchumley,Yes, as you said, the code works for entire worksheet, if you need the code works for a selected range, please apply the below code:<div data-tag="code">Sub TraceDependents()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xCell.ShowDependents
Next
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
I've found this macro very useful, thank you. I do have one rather large issue - the macro will cause excel to stop responding and I have to close out and restart the program each time I run it. Any fixes/recommendations? Thank you!
This comment was minimized by the moderator on the site
When running the macro version, it causes excel to stop responding. I then have to restart excel. Has anyone else encountered this and have a fix? This is a very helpful macro, thank you. Hoping I can resolve this issue.
This comment was minimized by the moderator on the site
Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations