Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս գտնել նախադեպերը կամ կախյալները Excel- ում մի շարք / բազմաթիվ բջիջների համար:

Excel- ում մենք կարող ենք որոնել բջիջների նախադեպերը կամ կախյալները Excel- ում ներկառուցված առանձնահատկությամբ ՝ մեկ առ մեկ կտտացնելով բջիջներին: Բայց եթե կան հարյուրավոր բջիջներ, որոնք դուք ցանկանում եք միևնույն ժամանակ գտնել նախադեպերը կամ կախվածությունը, ինչպե՞ս կարող եք արագ և հեշտությամբ գործ ունենալ այս խնդրի հետ Excel- ում:

Հետապնդում են նախադեպերը օգնականի բանաձևով մի շարք բջիջների համար

Կախված անձանց հետագծում VBA կոդով մի շարք բջիջների համար

Excel- ի համար նախատեսված Kutools- ի հետ մի շարք բջիջների համար հետագծեք նախադեպերը կամ նրանց կախվածությունը


Բազմաթիվ բջիջների նախադեպերը հետևելու համար հետևյալ քայլերը կարող են օգնել ձեզ.

1, Մուտքագրեք հավասար նշան = դատարկ բջիջի մեջ և այնուհետև կտտացրեք աշխատանքային թերթի վերևի ձախ անկյունին ՝ ամբողջ թերթը ընտրելու համար, տե՛ս նկարը.

doc հետքի կախված 1

2, Դրանից հետո սեղմեք Մտնել ստեղնը, և նախազգուշական հաղորդագրություն դուրս կգա, տես նկարի նկարը.

doc հետքի կախված 2

3, եւ սեղմեք OK այն փակելու կոճակը, և բջիջում ցուցադրվում է 0-ը, ընտրեք այն, ապա կտտացրեք Բանաձեւեր եւ սեղմեք Հետքի նախադեպեր երկու անգամ, միանգամից հետևել են համապատասխան բջիջների բոլոր նախադեպերը, տե՛ս նկարը.

doc հետքի կախված 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 հետքի կախված 4

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր կախված բջիջները միանգամից հետագծվում են, տեսեք,

doc հետքի կախված 5


Վերը նշված մեթոդներով ցավոտ լինելու համար ես կներկայացնեմ մի հարմար գործիք `Excel- ի համար նախատեսված գործիքներԻր Վերահսկեք տիրույթների նախադեպերը և Մոնիտոր Կախյալներ լեռնաշղթաների կոմունալ ծառայություններ, դուք կարող եք արագ և հեշտությամբ լուծել այս խնդիրը:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք գտնել նախադեպերը կամ կախվածությունը:

2. Այնուհետեւ կտտացրեք Կուտոլս > ավելի շատ > Վերահսկեք տիրույթների նախադեպերը / Վերահսկեք տիրույթներից կախվածությունը, տես նկարի նկարը.

3, Հետևելով նախադեպային բջիջներին ՝ ընտրեք Վերահսկեք տիրույթների նախադեպերը ստանալ հետեւյալ արդյունքը.

doc հետքի կախված 7

Հետևելով կախված բջիջներին ՝ ընտրեք Վերահսկեք տիրույթներից կախվածությունը ստանալ հետեւյալ արդյունքը.

doc հետքի կախված 8

Նշումներ:

1. Այս հատկությունը դինամիկ է, այն կփոխվի, քանի որ ձեր ընտրությունն է:

2. Կարող եք նաև կիրառել այս հնարավորությունը ՝ կտտացնելով Kutools Plus > Աշխատաթերթի ձևավորում, Տակ Դիզայն էջանշանը, սեղմեք Մոնիտոր Նախադեպեր և կախյալներ

3. Անհրաժեշտ է պարզապես կրկին սեղմել կոմունալը ՝ հետագծումն անջատելու համար:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 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