Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разрешить в определенные поля текстбоксов всех символов (Макросы/Sub)
Разрешить в определенные поля текстбоксов всех символов
parovoznik Дата: Понедельник, 16.01.2017, 16:33 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

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

Автор - parovoznik
Дата добавления - 16.01.2017 в 16:33
_Boroda_ Дата: Понедельник, 16.01.2017, 17:41 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеА если в этой строке
[vba]
Код
Set aoTxtBxes(i).oTxtBx = Me.Controls("TextBox" & i + 12)
[/vba]
заменить 12 на 6?
Сразу скажу - в код не вникал, это первое, что в голову пришло.
Но вроде сработало

Автор - _Boroda_
Дата добавления - 16.01.2017 в 17:41
parovoznik Дата: Понедельник, 16.01.2017, 17:50 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, спасибо сработало. Дело мастера боится. hands
 
Ответить
Сообщение_Boroda_, спасибо сработало. Дело мастера боится. hands

Автор - parovoznik
Дата добавления - 16.01.2017 в 17:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разрешить в определенные поля текстбоксов всех символов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!