Перемещение активной ячейки на первую колонку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение активной ячейки на первую колонку (Макросы/Sub)

rever27

Дата: Понедельник, 18.05.2015, 12:22 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Понимаю, что вопрос дилетанта, но все же.
Мне нужно сделать функцию перемещения значения Активной в данный момент ячейки на первую колонку.
Т.е. если я выбрал Q12, то должно выбраться A12.

Пользуюсь этим кодом, но он не всегда работает. уверен, что есть что то попроще
[vba]

Код

ActiveSheet.Range(ActiveCell, Selection.End(xlToLeft).End(xlToLeft).End(xlToLeft).End(xlToLeft).End(xlToLeft).End(xlToLeft)).Select

[/vba]

Ответить

Manyasha

Дата: Понедельник, 18.05.2015, 12:32 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

rever27, здравствуйте. Попробуйте так:
[vba]

Код

ActiveSheet.Cells(ActiveCell.Row, 1).Select

[/vba]
[p.s.]End(xlToLeft) - имитирует нажатие ctrl+shift+стрелка влево. Попробуйте на разных данных по нажимать это сочетание, и Вы поймете, почему такой способ работает некорректно.[/p.s.]

ЯД: 410013299366744 WM: R193491431804

Ответить

rever27

Дата: Понедельник, 18.05.2015, 12:54 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

да, работает, спасибо ))
Про End(xlToLeft) знал, просто не придумал ничего изощреннее )

Можно закрывать тему, спасибо

Сообщение отредактировал rever27 - Понедельник, 18.05.2015, 14:29

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение активной ячейки на первую колонку (Макросы/Sub)

Страница 1 из 1
1