Отображение связей в определенном диапазоне - VBA

Формулировка задачи:

Добрый день. Подскажите ответ на вопрос. У меня есть макрос отображающий связи на листе - при открытии книги.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Workbook_Open()
Dim cl As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each cl In ActiveSheet.UsedRange
    With cl
        .ShowPrecedents
        .ShowDependents
    End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Как заставить отображать связи - только в определенном диапазоне (я выделил этот диапазон желтым цветом) ?

Решение задачи: «Отображение связей в определенном диапазоне»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Workbook_Open()
Dim cl As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set cl = Range("J3:Q10")
cl.Select
For Each cl In Selection
    With cl
        .ShowPrecedents
        .ShowDependents
    End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Оцени полезность:

10 голосов , оценка 3.9 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы