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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 | Range("B5").Select Range(" $B $5 ").Select Range("Дата").Select Range("B" & 5 ).Select [B5].Select [Дата].Select Range("A5").Next . Select Range("C5").Previous . Select Range("A5").Range("B1").Select Range("B1").Range("A5").Select Application . Goto Range("B5") Application . Goto Reference:=Range("B5") Application . Goto Reference:=Range("Дата") Application . Goto "Дата" Application . Goto [Дата] Application . Goto Reference:="Дата" Application . Goto Reference:=[Дата] Range(Names!Дата).Select Range(ThisWorkbook . Names!Дата).Select Range(Application . Names!Дата).Select Range(Names("Дата")).Select Range(ThisWorkbook . Names("Дата")).Select Range(Application . Names("Дата")).Select Names!Дата.RefersToRange . Select ThisWorkbook . Names!Дата.RefersToRange . Select Application . Names!Дата.RefersToRange . Select Names("Дата").RefersToRange . Select ThisWorkbook . Names("Дата").RefersToRange . Select Application . Names("Дата").RefersToRange . Select Range("B5:B10").Item( 1 ).Select Range("B5:B10").Item( 1 , 1 ).Select Range("A5:CM5").Item( 1 , 2 ).Select Range("B1:B10").Item( 5 ).Select Range("B1:B10").Item( 5 , 1 ).Select Range("C1:D10").Item( 5 , 0 ).Select Range("D1:H50").Item( 5 , - 1 ).Select Range("A17:E15").Item(- 9 , 2 ).Select Range("D10:E15").Item(- 4 , - 1 ).Select Range("B5:B10")( 1 ).Select Range("B5:B10")( 1 , 1 ).Select Range("D1:H50")( 5 , - 1 ).Select Range("A17:E15")(- 9 , 2 ).Select Range("D10:E15")(- 4 , - 1 ).Select Range("B5:B10").Cells( 1 ).Select Range("B5:B10").Cells( 1 , 1 ).Select Range("A5:CM5").Cells( 1 , 2 ).Select Range("B1:B10").Cells( 5 ).Select Range("B1:B10").Cells( 5 , 1 ).Select Range("C1:D10").Cells( 5 , 0 ).Select Range("D1:H50").Cells( 5 , - 1 ).Select Range("A17:E15").Cells(- 9 , 2 ).Select Range("D10:E15").Cells(- 4 , - 1 ).Select Range("B:B").Item( 5 ).Select Range("B:B").Cells( 5 ).Select Range("B:B").Rows( 5 ).Select Range("B:B").Rows(" 5 : 5 ").Select Range(" 5 : 5 ").Item( 2 ).Select Range(" 5 : 5 ").Cells( 2 ).Select Range(" 5 : 5 ").Columns( 2 ).Select Range(" 5 : 5 ").Columns("B").Select Range(" 5 : 5 ").Columns("B:B").Select Range("B:B 5 : 5 ").Select Range("B:B" & " " & " 5 : 5 ").Select Range("B1").Offset( 4 ).Select Range("C1").Offset( 4 , - 1 ).Select Range("C10").Offset(- 5 , - 1 ).Select Range("B5,B5").Select [B5:B5].Select [B5 . B5].Select Range("B5 . B5").Select Range("B5:B5").Select Range("B5:B5:B5").Select Range("B5", "B5").Select Range(" $B $5 ", " $B $5 ").Select Range("B5", Range("B5")).Select Range(Range("B5"), "B5").Select Range(Range("B5"), Range("B5")).Select Range(Cells( 1026 ), Cells( 1026 )).Select Range(Cells( 5 , 2 ), Cells( 5 , 2 )).Select Range(Cells( 5 , "B"), Cells( 5 , "B")).Select Range(Cells( 5 , "B:B"), Cells( 5 , "B:B")).Select Cells( 5 , 2 ).Select Cells( 5 , "B").Select Cells( 5 , "B:B").Select Cells( 1026 ).Select Rows( 5 ).Cells( 2 ).Select Rows( 5 ).Columns( 2 ).Select Rows( 5 ).Columns("B").Select Rows( 5 ).Columns("B:B").Select Rows(" 5 : 5 ").Columns("B").Select Rows(" 5 : 5 ").Columns("B:B").Select Columns( 2 ).Cells( 5 ).Select Columns( 2 ).Rows( 5 ).Select Columns( 2 ).Rows(" 5 : 5 ").Select Columns("B").Cells( 5 ).Select Columns("B").Rows( 5 ).Select Columns("B").Rows(" 5 : 5 ").Select Columns("B:B").Cells( 5 ).Select Columns("B:B").Rows( 5 ).Select Columns("B:B").Rows(" 5 : 5 ").Select Выделение ячейки используется только для наглядности, в действительности же, реальная необходимость в активации и выделении, возникает крайне редко. |