Выделить ячейки, расположенные с определённым интервалом — Visual Basic(Бейсик)


Application.Goto Reference:=Worksheets(3).Range("A1") 

Application.Goto Reference:=Worksheets("Manager").Range("A1")
Используя этот метод, мы также можем выделить диапазон ячеек, в том числе и несмежных :

Application.Goto Reference:=Worksheets(3).Range("A1:C10") 
Application.Goto Reference:=Worksheets(3).Range("A1,C3,D5:F10")

Application.Goto Reference:=Worksheets("Manager").Range("A1:C10") 
Application.Goto Reference:=Worksheets("Manager").Range("A1,C3,D5:F10")
Предполагается, что : 3 - это индекс рабочего листа Manager - это имя рабочего листа Также допускается выделение ячеек неактивной рабочей книги :

Application.Goto _ 
Reference:=Workbooks("Report.xls").Worksheets("Sales").Range("M13")

Application.Goto _ 
Reference:=Workbooks("Report.xls").Worksheets(1).Range("M13")

Application.Goto _ 
Reference:=Workbooks(2).Worksheets("Sales").Range("M13")

Application.Goto _ 
Reference:=Workbooks(2).Worksheets(1).Range("M13")
Предполагается, что : 2 - это индекс открытой рабочей книги Report.xls - это имя открытой рабочей книги 1 - это индекс рабочего листа Sales - это имя рабочего листа Также допускается выделение именованных ячеек и диапазонов :

Application.Goto Reference:=Range("Дата") 
Application.Goto "Дата" 
Application.Goto [Дата] 
Application.Goto Reference:="Дата" 
Application.Goto Reference:=[Дата]
Предполагается, что : Дата - это имя ячейки или диапазона ячеек уровня рабочей книги Для выделения именованных ячеек уровня рабочего листа, необходимо : либо добавить ссылку на рабочий лист, либо указать полное имя

Application.Goto _ 
Reference:=Worksheets(3).Range("Дата") 
Application.Goto _ 
Reference:=Worksheets("Manager").Range("Дата") 
 
Application.Goto Reference:=Range("Manager!Дата") 
Application.Goto [Manager!Дата] 
Application.Goto Reference:="Manager!Дата"
Для выделения именованных ячеек неактивной рабочей книги, нужно добавить ссылку на эту книгу. Совет : Используя свойство .PreviousSelections можно узнать диапазон, который был выделен перед применением метода .GoTo

With Application 
     If IsArray(.PreviousSelections) = True Then 
        For Each iSelection In .PreviousSelections 
            MsgBox iSelection.Address(External:=True) 
        Next 
     End If 
End With

Leave a Comment