Очистить содержимое Текстбокса при клике на него

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

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

Очистить содержимое Текстбокса при клике на него (Макросы/Sub)

akobir

Дата: Пятница, 16.10.2015, 21:53 | Сообщение № 1

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

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

Сообщений: 201

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

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

Excel 2010

Приветствую всех!

Очередная сложность, с которой столкнулся - ох тяжко идут формы пока что. :))
Есть текстбокс. Изначально в нем текст, дабы люди понимали, что туда вводить. При клике на текстбокс текст никуда не исчезает - оно и понятно.
Как сделать так, чтобы исчезал? :)

Думаю, пример тут не нужен, но если надо, могу набросать.

Буду признателен!

e-mail: akobir.ismailov@gmail.com

Ответить

RAN

Дата: Пятница, 16.10.2015, 22:02 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Ох, дурная голова ногам??? покоя не дает!

[vba]

Код

Private Sub TextBox1_Enter()
TextBox1.Text = ""
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Саня

Дата: Пятница, 16.10.2015, 22:13 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

[vba]

Код

Private Sub TextBox1_Enter()
TextBox1.Text = ""
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = "введите значение"
End Sub

[/vba]

Ответить

akobir

Дата: Пятница, 16.10.2015, 23:06 | Сообщение № 4

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

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

Сообщений: 201

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

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

Excel 2010

Благодарю, товарищи!
RAN, так точно! :))

e-mail: akobir.ismailov@gmail.com

Ответить

Очистить содержимое Текстбокса при клике на него (Макросы/Sub)

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