Выделение текста в textbox

[konstantin1990]

Всем доброго дня, работая с экселем и VBA создавая текстбоксы я не нахожу операции click, есть doubleclick. как можно реализовать выделение всего текста в текстбокс одним кликом мыши???
В Visual basic это делалось так:

Private Sub Text1_click()
Text1.SelStart = 0
Text1.SelLength = 4
End Sub

как быть с экселем 2010 т.е. VBA???
Заранее спасибо!!!

[Watcher_1]

Событие TextBox1_MouseDown не подойдет?

[konstantin1990]

Сообщение от Watcher_1

Событие TextBox1_MouseDown не подойдет?

Попробовал но работает как то странно, на некоторых текстбоксах выделяет сразу как нажмешь на других нужно искать определенную точку. с чем это может быть связано?

[konstantin1990]

при изменении свойства hideselection на false ничего не происходит.
Выложил свое творение, выберите "взлет" и введите номер рейса от 1 до 9999 все остальные поля разблокируются и в поле давления посмотрите как работает MouseDown((( и как он работает в поле где надо ввести температуру и сам номер рейса!

[The_Prist]

Private Sub TextBox1_Enter()
    TextBox1.SelStart = 0
    TextBox1.SelLength = 4
End Sub

[konstantin1990]

Сообщение от Шалом

у меня макрос даже не отображается в списке макросов. с чего бы так.

Потому, что макроса как такового нет, есть только формы. Через исходный текст заходите.

[konstantin1990]

Видимо ни поцедура enter ни mousedown мне сюда не подходит

[The_Prist]

Сообщение от konstantin1990

Видимо ни поцедура enter ни mousedown мне сюда не подходит

Почему? enter срабатывает при переходе в текстбокс. Какой функционал хотите видеть Вы? Мне кажется неверно пытаться при каждом клике на элементе выделять весь текст - это весьма неудобно для пользователя.

[konstantin1990]

Сообщение от Шалом

Как я понял моя помощь Вам не нужна. Что ж, дело хозяйское. Срок действия аккаунта закончился, я ухожу.

Видимо я отходил и не читал ваши сообщения, для того чтобы войти в VBA в моем случае нужно выбрать клапан любого листа, щелкнуть по нему правой кнопкой мыши и выбрать исходный текст и в этом случае появится бэйсик

ТО The_Prist у меня магическая фигня не работает эта процедура enter при клике на текстбокс левой кнопкой мыши

[The_Prist]

Что именно не работает? Процедура не выполняется? Или выполняется, но текст не выделяется?