startCell = ActiveCell.Address
endCell = ActiveCell.Offset(0, 8).Address
Range(startCell, endCell).Select
Как выделить ряд ячеек, начиная от текущей?
Как выделить следующие 8 ячеек вправо, начиная от активной ячейки (на которой стоит курсор)?
Спасибо.
Спасибо.
Цитата: Dmitry2064
Как выделить следующие 8 ячеек вправо, начиная от активной ячейки (на которой стоит курсор)?
Например, так:
Код:
или так:
Код:
Set endCell = ActiveCell.Offset(0, 8)
Range(ActiveCell, endCell).Select
Range(ActiveCell, endCell).Select
Спасибо, немножко покумекал и получилось (мне надо было, что бы это выделение потом не захватывало первую ячейку.
Получилось так:
[COLOR="Navy"] Set endCell = ActiveCell.Offset(0, 8)
Range(ActiveCell, endCell).Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 1
Set StCell = ActiveCell.Offset(0, 1)
Range(StCell, endCell).Select
...[/COLOR]
Умственный прогресс налицо! :cool:
Получилось так:
[COLOR="Navy"] Set endCell = ActiveCell.Offset(0, 8)
Range(ActiveCell, endCell).Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 1
Set StCell = ActiveCell.Offset(0, 1)
Range(StCell, endCell).Select
...[/COLOR]
Умственный прогресс налицо! :cool:
А еще вопрос. Как перегнать ActiveCell (т.е. курсор) на первую ячейку в ряду? Это надо, чтобы не ставить курсор именно на первую ячейку (долго), а достаточно было бы просто поставить курсор в интересующий ряд, а оно уже само бы...
Цитата: Dmitry2064
А еще вопрос. Как перегнать ActiveCell (т.е. курсор) на первую ячейку в ряду? Это надо, чтобы не ставить курсор именно на первую ячейку (долго), а достаточно было бы просто поставить курсор в интересующий ряд, а оно уже само бы...
Непонятно о чём речь: о макросе или о работе с листом вручную.
Если первое, то так, например: [color=blue]Cells(ActiveCell.Row, 1).Activate[/color].
Если второе, то советую пользоваться клавишей <Home>.
Кстати, совершенно необязательно выделять ячейку, для того чтобы что-нибудь с ней сделать.
Вместо вот этого:
лучше писать вот это:
или вот это
Вместо вот этого:
Код:
Range(ActiveCell, endCell).Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 1
лучше писать вот это:
Код:
Range(ActiveCell, endCell).Interior.ColorIndex = xlNone
Range(ActiveCell, endCell).Font.ColorIndex = 1
Range(ActiveCell, endCell).Font.ColorIndex = 1
или вот это
Код:
With Range(ActiveCell, endCell)
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 1
End With
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 1
End With
Речь шла о макросе. Приписал и все заработало как в сказке. А вообще, где узнать инструкции перемещения курсора? Для Ворда ведь есть похожие команды, типа
[COLOR="Navy"]Selection.MoveDown Unit:=wdParagraph, Count:=1[/COLOR]
и т.д.
[COLOR="Navy"]Selection.MoveDown Unit:=wdParagraph, Count:=1[/COLOR]
и т.д.
Очень полезной во многих вопросах оказывается инструкция
Application.Goto [ячейка], [перемещать ли окно]
прочитай про неё в хелпе, она во-первых позволяет сразу переключаться на ячейки в других книгах и листах, а во-вторых, позволяет прокручивать окно к нужному месту (если второй параметр поставить True).
Application.Goto [ячейка], [перемещать ли окно]
прочитай про неё в хелпе, она во-первых позволяет сразу переключаться на ячейки в других книгах и листах, а во-вторых, позволяет прокручивать окно к нужному месту (если второй параметр поставить True).
Хорошо, обязательно почитаю. Спасибо за помощь.