Сложение значения и значения Textbox

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сложение значения и значения Textbox (Макросы/Sub)

Serg73

Дата: Понедельник, 09.04.2018, 09:40 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

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

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

Excel 2013

Добрый день, подскажите как правильно прописать
Необходимо что бы число забитое с клавиатуры в textbox автоматически увеличивалось на десять и отображалось в этом же Textbox

К сообщению приложен файл: 3979980.xlsm (16.0 Kb)

Ответить

RAN

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

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

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

Сообщений: 5660

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

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

2010

так
[vba]

Код

Dim x#
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    x = x & Chr(KeyAscii)
    KeyAscii = 0
    TextBox1.Text = x + 10
End Sub

[/vba]

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

Сообщение отредактировал RAN - Понедельник, 09.04.2018, 13:58