1 Тема від Юрій_

  • Юрій_
  • Користувач
  • Поза форумом
  • Дата реєстрації: 15.05.2015
  • Повідомлень: 40
    • Репутація: 5

Тема: Перевірка на правильність внесення даних в поле InputBox

Доброго дня.
На формі розміщені  2 листбокс. Вибіраємо товар і зявляється InputBox,  куди потрібно внести інформацію про кількіть відвантаженого товару. Після внесення даних інформація відображається в листбокс.
Як підкоректувати код ,щоб в поле InputBox можно було вносити тільки цифри через кому(,).

Post's attachments

Приклад.xlsm 21.1 kb, 521 downloads since 2016-03-29 

2 Відповідь від Григорій2 Востаннє редагувалося Григорій2 (08.04.2016 12:52:09)

  • Дата реєстрації: 09.02.2015
  • Повідомлень: 44
    • Репутація: 35

Re: Перевірка на правильність внесення даних в поле InputBox

див.файл
(вибачайте, може вже не актуальне)

Post's attachments

Приклад 1.xls 47 kb, 600 downloads since 2016-04-08 

Подякували: Юрій_1

3 Відповідь від Юрій_

  • Юрій_
  • Користувач
  • Поза форумом
  • Дата реєстрації: 15.05.2015
  • Повідомлень: 40
    • Репутація: 5

Re: Перевірка на правильність внесення даних в поле InputBox

Григорій2 дякую за відповідь. Можливо такий вариан: заборона введення усіх символів окрім  цифр через кому.
Дякую . Питання актуальне.

4 Відповідь від Григорій2

  • Дата реєстрації: 09.02.2015
  • Повідомлень: 44
    • Репутація: 35

Re: Перевірка на правильність внесення даних в поле InputBox

Юрій_ написав:

Григорій2 дякую за відповідь. Можливо такий вариан: заборона введення усіх символів окрім  цифр через кому.
Дякую . Питання актуальне.

Можлива, але я займусь цим з понеділка

5 Відповідь від Григорій2 Востаннє редагувалося Григорій2 (12.04.2016 05:35:38)

  • Дата реєстрації: 09.02.2015
  • Повідомлень: 44
    • Репутація: 35

Re: Перевірка на правильність внесення даних в поле InputBox

В файлі змінено тільки

lUnits = Application.InputBox(vbCr & vbCr & vbCr & vbCr & "Ціна товару...", "Поле для вводу", Type:=1)

Внаслідок цього при вводі не сприймаються букви, в т.ч і крапка

Юрій, а тут помогли (-ло)?
http://www.planetaexcel.ru/forum/index. … sage641439

Post's attachments

Приклад 1.xls 51.5 kb, 429 downloads since 2016-04-11