Разрешить в определенные поля текстбоксов всех символов

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Разрешить в определенные поля текстбоксов всех символов - Мир MS Excel

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

Разрешить в определенные поля текстбоксов всех символов (Макросы/Sub)

Разрешить в определенные поля текстбоксов всех символов

parovoznik

Дата: Понедельник, 16.01.2017, 16:33 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 450

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

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

Excel 2013

Добрый день.
На форме имеются текстбоксы: Наименование(TextBox1-6 разрешен ввод всех символов)
Количество(разрешен ввод цифр через запятую TextBox 7-12)
Примечание(TextBox13-18).РАЗРЕШИТЬ Ввод всех символов.
Вопрос. Как разрешить в поля TextBox 13-18 всех символов? Сейчас возможен ввод цифр через запятую.

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

Ответить

_Boroda_

Дата: Понедельник, 16.01.2017, 17:41 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А если в этой строке
[vba]

Код

Set aoTxtBxes(i).oTxtBx = Me.Controls("TextBox" & i + 12)

[/vba]
заменить 12 на 6?
Сразу скажу - в код не вникал, это первое, что в голову пришло.
Но вроде сработало

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

parovoznik

Дата: Понедельник, 16.01.2017, 17:50 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 450

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

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

Excel 2013

_Boroda_, спасибо сработало. Дело мастера боится. hands

Ответить

Разрешить в определенные поля текстбоксов всех символов (Макросы/Sub)

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