Защита от дурака. Ввод в форму только цифр.

Дата: Суббота, 25.10.2014, 18:43 | Сообщение № 1

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

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

Сообщений: 38

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

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

Excel 2010

Доброго времени суток. Прошелестел инет и не нашел решения моей проблемы. Требуется организовать в нескольких формах документа возможность ввода только цифр. Организовать в каждой по отдельности удалось следующим SUB-ом.
[vba]

Код

Private Sub Полки_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

[/vba]

А вот сделать одним SUB-ом для нескольких не удалось. Кто чем...помогите.

Работа с модулями классов

krosav4ig

Дата: Суббота, 25.10.2014, 19:27 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Дата: Суббота, 25.10.2014, 19:36 | Сообщение № 3

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

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

Сообщений: 38

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

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

Excel 2010

krosav4ig,

А тё и так мона!
Спасибо. Буду учиться дальше

Дата: Суббота, 25.10.2014, 19:41 | Сообщение № 4

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

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

Сообщений: 5660

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

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

2010

Угощаю.

К сообщению приложен файл: 5380423.xls (84.0 Kb)

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

Дата: Суббота, 25.10.2014, 20:26 | Сообщение № 5

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

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

Сообщений: 38

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

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

Excel 2010

RAN, Спасибо. А вот это наглядненько и доступненько yes

Дата: Суббота, 25.10.2014, 20:44 | Сообщение № 6

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

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

Сообщений: 5660

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

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

2010

Цитата sorcerer, 25.10.2014 в 18:43, в сообщении № 1

Прошелестел инет и не нашел решения моей проблемы

однако, сей файл был выложен не единожды.

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

Alex_ST

Дата: Суббота, 25.10.2014, 21:41 | Сообщение № 7

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

Цитата RAN, 25.10.2014 в 19:41, в сообщении № 4

Угощаю

Спасибо. Очень вкусно. Кто шеф-повар? Или сам готовил?
(хочу к себе в заначку положить, так не плохо было бы копирайт со ссылочкой записать)

С уважением,
Алексей
MS Excel 2003 - the best!!!

Дата: Суббота, 25.10.2014, 21:56 | Сообщение № 8

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

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

Сообщений: 5660

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

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

2010

Цитата Alex_ST, 25.10.2014 в 21:41, в сообщении № 7

Кто шеф-повар?

Моя была

С миру по нитке, голому рубаха.

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

Сообщение отредактировал RAN - Суббота, 25.10.2014, 22:01

Alex_ST

Дата: Суббота, 25.10.2014, 22:30 | Сообщение № 9

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

Цитата RAN, 25.10.2014 в 21:56, в сообщении № 8

голому рубаха

а голодному - верёвка

Спасибо. Пригодится.
(Пример, конечно, а верёвка у меня если что и своя есть)

С уважением,
Алексей
MS Excel 2003 - the best!!!

Дата: Понедельник, 27.10.2014, 14:09 | Сообщение № 10

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

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

Сообщений: 38

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

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

Excel 2010

С модулями разобрался. Но появилась еще проблема. При изменении значения, меняется программно и количество TextBox-ов. И тут начинает материться проверка. Создал ей динамический архив чтобы учитывались и те TextBox что задал программно и те что нарисовал на форме. Пытался сделать подсчет всех TextBox. При введении значения в TextBox - Вылетает "Could not find the specified object. Может я не туда пихаю. Уже везде пробовал поставить

Помогите пожалуйста

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

Дата: Понедельник, 27.10.2014, 14:39 | Сообщение № 11

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

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

Сообщений: 5660

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

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

2010

Задать вопрос по коду, который тянет данные со второго листа, и выложить файл с 1 листом???

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