Как выбрать ячейку на основе макроса - PullRequest
2 голосов
/ 23 января 2009

Это должно быть просто, не уверен, почему у меня проблемы с этим ..... В диапазоне ввода данных, который вводит пользователь, есть «левая» и «правая» части формы. Не все данные в любой данной строке должны быть заполнены. Я хочу создать макрос (и назначить его горячей клавише IE ctrl-z) так, чтобы при ударе он поместил активную ячейку в текущий строка и в столбце «Х». другими словами, нажатие ctrl-Z заставит курсор перейти к столбцу «X»

Ответы [ 5 ]

1 голос
/ 23 января 2009

Любое из следующих утверждений должно сработать. Назначьте ярлык макроса из меню «Инструменты» -> «Макросы».

Public Sub SelectStuff()
    Cells(3, 5).Select
    Rows(17).Select
End Sub
1 голос
/ 23 января 2009

Попробуйте это

Sub MoveLeftOnForm()
    Dim rn As Integer
    rn = ActiveCell.Row
    Range("B" & rn).Select
End Sub

предполагается, что B - ваш самый левый столбец в форме.

1 голос
/ 23 января 2009

В этом случае столбец "x" фактически является столбцом E:

Sub ToColE()
    Const colE = 5
    Dim offset As Integer
    offset = colE - ActiveCell.Column
    ActiveCell.offset(rowOffset:=0, columnOffset:=offset).Activate
End Sub
0 голосов
/ 13 февраля 2009

Это будет работать:

Public Sub go()
Cells(ActiveCell.Row, 5).Activate
End Sub

Просто замените "5" на любой желаемый номер столбца. Вы должны быть в состоянии назначить комбинацию клавиш Ctrl + Z из опций меню макросов.

0 голосов
/ 23 января 2009

Этот код должен сделать это для вас:

Public Sub SetUpKeyboardShortcut()
    Application.OnKey "^z", "SelectColInSelectedRow"
End Sub

Public Sub SelectColInSelectedRow()
    Const ColToSelect = "X"
    Range(ColToSelect & CStr(Selection.Row)).Select
End Sub

Просто вызовите SetUpKeyboardShortcut в событии Workbook_Open в модуле ThisWorkbook. Я считаю, что приведенный выше код необходимо хранить в стандартном модуле.

Надеюсь, это поможет ...

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...