выделение на одну ячейку больше!

[Окоча Юра]

ПОМОГИТЕ СОЗДАТЬ МАКРОС:Я НАХОЖУСЬ В ОПРЕДЕЛЕННОЙ (она может каждый раз быть другой) ЯЧЕЙКЕ ТАБЛИЦЫ НАЖАВ МАКРОС АВТОМАТИЧЕСКИ ВЫДЕЛЯЛАСЬ СЛЕДУЩАЯ ПРАВАЯ ЯЧЕЙКА (ЧЕМ БОЛЬШЕ РАЗ Я НАЖИМАЮ МАКРОС ТЕМ БОЛЬШЕ ЯЧЕЕК С ПРАВОЙ СТОРОНЫ ВЫДЕЛЯЛОСЬ). ЕСЛИ МОЖНО ТАКИЕ ЖЕ МАКРОСЫ ВЫДЕЛЕНИЯ ПО НАПРАВЛЕНИЮ ВВЕРХ, ВЛЕВО, ВНИЗ. С ПОМОЩЬЮ МАКРОСОРЕКОРДЕРА НЕ ПОЛУЧАЕТСЯ. СПАСИБО!!!

[КаМММ]

НАЖАВ МАКРОС АВТОМАТИЧЕСКИ ВЫДЕЛЯЛАСЬ...

Для тогочтобы выделить ячейку нужно нажать Ctrl И щёлкнуть на ячейке мышкой. (даже если она не рядом с вашей ячейкой она добавится к выделению)
Если-же нажать на стрелку перемещения при нажатом Shift то выделение добавится какраз на один шаг в сторону нажатия.
Чтобы запустить макрос нужно выполнить не меньшее число действий.
В чём тогда смысл автоматизации? Для чего макрос писать?
Может я неправильно понял условия?

[javvva]

вообще то выделение идет по shift + стрелка. так что смысл в макросе нулевой.

[Окоча Юра]

СМЫСЛ В ТОМ! ЧТО Я НАБИРАЮ ТЕКСТ ДЕСЯТИПАЛЬЦЕВЫМ НАБОРОМ, И КОГДА МНЕ НАДО ВЫДЕЛИТЬ НЕСКОЛЬКО ЯЧЕЕК, ТО ПАЛЬЦЫ НАДО ОТРЫВАТЬ ОТ КЛАВЫ В СТОРОНУ СТРЕЛОК, А ТАК Я МОГ БЫ ПРИСВОИТЬ МАКРОСУ ОПРЕДЕЛЕННОЕ СОЧЕТАНИЕ КЛАВИШ И НЕ ОТРЫВАЯ РУК ВЫДЕЛЯТЬ НЕОБХОДИМОЕ КОЛИЧЕСТВО ЯЧЕЕК!

[Sh_Alex]

Sub Макрос1()
Range(ActiveCell, Cells(ActiveCell.Row, ActiveCell.Column + 1)).Select
End Sub
Выделяет вправо.
Sub Макрос2()
Range(ActiveCell, Cells(ActiveCell.Row + 1, ActiveCell.Column)).Select
End Sub
Выделяет вниз, и т.д.
С уважением, Александр.

[Окоча Юра]

Я запускаю макрос - выделяется следущая ячейка (лопустим правая), после того когда ячейка выделилась я запускаю еще раз макрос - можно ли чтобы к предыдущему выделению присоединилась еще одна выделеная ячейка, нажав после этого еще два раза макрос - еще добавилось бы две выделеных ячейки к предыдущим (по аналогии если бы я зажав SHIFT и нажимал стрелку вправу столько раз сколько надо выделить ячеек, токо мне надо я нажал 5 раз подряд макрос и выделилось 5 следущих ячеек, нажав еще два раза выделение продолжилось бы на еще две ячейки) СПАСИБО!

[SAS888]

Можно так:

Sub Вправо(): Union(Selection, Selection.Offset(, 1)).Select: End Sub
Sub Влево(): Union(Selection, Selection.Offset(, -1)).Select: End Sub
Sub Вниз(): Union(Selection, Selection.Offset(1)).Select: End Sub
Sub Вверх(): Union(Selection, Selection.Offset(-1)).Select: End Sub

Если нужно, можно добавить проверки на "зашкаливание" выделяемого диапазона за пределы листа.

[Окоча Юра]

Спасибо, вот это оно!

[romahjvf]

Здраствуйте всем.
Может это и глупый вопрос, заранее извиняюсь.

Этот код выделяет на одну ячейку больше

Sub Вправо(): Union(Selection, Selection.Offset(, 1)).Select: End Sub

а как сделать на две ячейки больше?
Спасибо.

[IgorGO]

Единственная цифра 1 в коде не навела ни на какие идеи? замените ее на 2.

Sub Вправо(): Union(Selection, Selection.Offset(, 2)).Select: End Sub