полезные макросы в таблице

[Окоча Юра]

Привет знатоки, могли бы вы помочь создать макросы и присвоить им следущие сочетание клавиш (файл я додал):
CTRL+J - перемещение на одну ячейку вправо
CTRL+H - на одну влево
CTRL+L - выделение на одну ячейку вправо
CTRL+K - выделение на одну ячейку влево ( если можно чтобы не отпуская кнопку CTRL и нажав несколько раз (например три раза) "+K" выделелись последущие 3 ячейки, тоже самое и с другими выделениями (вправо, вверх, вниз), тоисть по аналогии когда мы зажав CTRL и не отпуская ее нажимаем стрелку влево столько раз сколько нам необходимо выделить ячеек.)
CTRL+U - перемещение на одну ячейку вверх
CTRL+N - перемещение на одну ячейку вниз
CTRL+I - выделение на одну ячейку вверх
CTRL+M - выделение на одну ячейку вниз
CTRL+O - сделать активной ячейку для редактирования (так если бы я счелкнул два раза лев. кнопкой мыши по ячейке)
CTRL+Y - удалить содержимое активной ячейки .
Если можно что-бы эти настройки поместились автоматически во все файлы екселя…Спасибо.

[EducatedFool]

Запишите указанные действия макрорекордером - и получите нужные функции.
При создании макросов укажите, что их надо поместить в личную книгу макросов.

'CTRL+J - перемещение на одну ячейку вправо
ActiveCell.Next.Select
' PS: бредовая идея - куда уж проще нажать стрелку на клавиатуре...


'CTRL+H - на одну влево
ActiveCell.Previous.Select
' PS: см. коммент выше.


'CTRL+L - выделение на одну ячейку вправо
'CTRL+K - выделение на одну ячейку влево
'( если можно чтобы не отпуская кнопку CTRL и нажав несколько раз
'(например три раза) "+K" выделелись последущие 3 ячейки,
'тоже самое и с другими выделениями (вправо, вверх, вниз),
'тоисть по аналогии когда мы зажав CTRL и не отпуская ее н
'ажимаем стрелку влево столько раз сколько нам необходимо выделить ячеек.)

даже код писать не буду...
просто УДЕРЖИВАЙТЕ клавишу SHIFT, когда нажимаете стрелку вправо\влево


'CTRL+U - перемещение на одну ячейку вверх
'CTRL+N - перемещение на одну ячейку вниз
'CTRL+I - выделение на одну ячейку вверх
'CTRL+M - выделение на одну ячейку вниз

то же самое - используем стрелки


'CTRL+O - сделать активной ячейку для редактирования
'(так если бы я счелкнул два раза лев. кнопкой мыши по ячейке)
Application.SendKeys "{f2}"


'CTRL+Y - удалить содержимое активной ячейки
ActiveCell.ClearContents

PS: Название темы имеет смысл немного изменить - фраза "бесполезные макросы" куда лучше отражает суть вопроса...

[Окоча Юра]

На счет бесполезных макросов - не совсем согласен!!!!! Если я работаю 10 пальцевым набором текста, очень не удобно отрывать руку от букв и искать стрелки чтобы спуститься в нужную ячейку - это уже проверено. выигрываю кучу времени однозначно. Помоги лучше добить эти макросы: если бы я их мог бы записать просто макросорекордером, то я это бы сделал сам и раньше, но эти кода не совсем те получаються . Помоги с кодами: например CTRL+J - перемещение на одну ячейку вправо, так что бы неотрывая CTRL и нажимая каждый раз +J (нажав два раза +J при зажатом CTRL я переместился бы например на две ячейки, нажав еще раз еще на одну правее, еще раз - еще на 1 правее и т.д. и мог это сделать с любой ячейки) . Тоже самое с перемещением влево, вверх, вниз. Что касается выделения ячеек, то, например, зажав CTRL и нажимая +L (столько раз докуда необходимо выделить ) - с каждым нажатием выделялось на одну ячейку больше и чтобы я это смог сделать с любой ячейки. Тоже самое с выделением влево, вверх, вниз. СПАСИБО.