Прескочи на основното съдържание

Как да проследя прецеденти или зависими за диапазон от / множество клетки в Excel?

Автор: Xiaoyang Последна промяна: 2020-06-04

В Excel можем да проследим прецедентите или зависимите клетки с вградената функция в Excel, като щракваме върху клетки една по една. Но ако има стотици клетки, които искате да проследите прецедентите или зависимите едновременно, как бихте могли да се справите с тази задача бързо и лесно в Excel?

Проследяване на прецеденти за диапазон от клетки с помощна формула

Проследяване на зависими за диапазон от клетки с VBA код

Проследете прецеденти или зависими за диапазон от клетки с Kutools за Excel


За да проследите прецеденти за множество клетки, следните стъпки могат да ви помогнат:

1. Въведете знак за равенство = в празна клетка и след това щракнете върху горния ляв ъгъл на работния лист, за да изберете целия лист, вижте екранната снимка:

doc trace зависим 1

2. След това натиснете Въведете ключ и ще изскочи предупредително съобщение, вижте екранната снимка:

doc trace зависим 2

3, И натиснете OK за да го затворите и в клетката се показва 0, изберете го и след това щракнете формули и кликнете Проследяване на прецеденти два пъти, всички прецеденти на съответните клетки са проследени наведнъж, вижте екранната снимка:

doc trace зависим 3

4. Най-накрая можете да изтриете помощната формула, както ви е необходимо.


За да проследите зависимите за множество клетки, следният VBA код може да ви помогне, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

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 : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазона от данни, който искате да проследите прецедентите или зависимите.

2, След това кликнете Kutools > Повече > Мониторинг на прецеденти на диапазони / Наблюдение на зависими от диапазони, вижте екранна снимка:

3. Проследяване на прецедентните клетки, изберете Наблюдавайте прецеденти на диапазони за да получите следния резултат:

doc trace зависим 7

Проследяване на зависимите клетки, моля, изберете Наблюдение на зависими от диапазони за да получите следния резултат:

doc trace зависим 8

Забележки:

1. Тази функция е динамична, тя ще бъде променена според вашия избор.

2. Можете също да приложите тази функция, като щракнете Kutools плюс > Дизайн на работен лист, По силата на Дизайн кликнете върху Монитор Прецеденти и зависими лица.

3. Просто трябва да щракнете отново върху помощната програма, за да деактивирате проследяването.

Изтеглете и изпробвайте безплатно Kutools за Excel сега!


Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, 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