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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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