Множество кнопок

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

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

Множество кнопок

Izuver

Дата: Среда, 03.04.2013, 15:36 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 9

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

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

На форме существует множество однотипных элементов, кнопок, текстовых полей или полей со списками
И у них код тоже однотипный. Так вот каждому писать Private Sub ComboBox47_Change() проблематично.
Как можно это дело укоротить?

Ответить

Матраскин

Дата: Среда, 03.04.2013, 15:56 | Сообщение № 2

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

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

Сообщений: 375

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

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

20xx

посмотреть логику и укоротить... возможно 1 кнопка будет выполнять разные действия в зависимости от ситуации, как вариант

в интернете опять кто-то не прав

Ответить

Serge_007

Дата: Среда, 03.04.2013, 16:01 | Сообщение № 3

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (Izuver)

писать Private Sub ComboBox47_Change() проблематично.
Как можно это дело укоротить?

За несколько секунд любое кол-во:
В А1 пишете

Код

="Private Sub ComboBox"&ЦЕЛОЕ(СТРОКА()/4)+1&"_Change()"

В А2 код
В А3 End Sub
и протягиваете вниз
Потом копируете в VBA

Во вложении шаблон для 250-ти комбобоксов, заполнил (вместе с написанием формулы) за 20 секунд

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Izuver

Дата: Среда, 03.04.2013, 16:02 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 9

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

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

Сейчас это выглядит так:
[vba]

Код

Private Sub TB11_Change()
Sa(ScrollBar1 + 1, 0, 1) = TB11
End Sub
Private Sub TB12_Change()
Sa(ScrollBar1 + 1, 0, 2) = TB12
End Sub
Private Sub TB13_Change()
Sa(ScrollBar1 + 1, 0, 3) = TB13
End Sub
Private Sub TB21_Change()
Sa(ScrollBar1 + 2, 0, 1) = TB21
End Sub
Private Sub TB22_Change()
Sa(ScrollBar1 + 2, 0, 2) = TB22
End Sub
Private Sub TB23_Change()
Sa(ScrollBar1 + 2, 0, 3) = TB23
End Sub

[/vba]

Ответить

Izuver

Дата: Среда, 03.04.2013, 16:11 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 9

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

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

Цитата (Serge_007)

За несколько секунд любое кол-во

Я знаю такой способ создания кода, но он не только на какие-нибудь 100 идеинтичных кнопок, а допустим 10 кнопок для одного кода, 10 для второго .... 10 для десятого кода и вот когда проходит какое-нибудь изменение, это все создавать приходтся заново, да даже просто в я теряюсь в коде.

Ответить

Serge_007

Дата: Среда, 03.04.2013, 16:15 | Сообщение № 6

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (Izuver)

10 кнопок для одного кода, 10 для второго.... 10 для десятого кода

Сделайте 10 заготовок и пользуйте их smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Izuver

Дата: Среда, 03.04.2013, 16:21 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 9

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

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

т.е. я думал можно либо заключить их в цикл или определить имя элемента в событии change или clik
а так задача не выполнима в этой среде?

Ответить

Матраскин

Дата: Среда, 03.04.2013, 16:33 | Сообщение № 8

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

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

Сообщений: 375

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

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

20xx

я то думал афтар хочет сократить кол-во кода...а оказалось, что хочет много кода smile

создание эл-ов вроде как можно заключить в цикл...там жмёшь на кнопку, а вылазит ещё 10 happy

в интернете опять кто-то не прав

Ответить

RAN

Дата: Среда, 03.04.2013, 16:46 | Сообщение № 9

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

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

Сообщений: 5660

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

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

2010

Цитата (Izuver)

определить имя элемента

Можно. А можно
[vba]

Код

Private Sub TB11_Change()
       i = 1: j = 0: k = 1: n = 11
       Call ScrollB(i, j, k, n)
End Sub
Private Sub TB12_Change()
       i = 1: j = 0: k = 2: n = 12
       Call ScrollB(i, j, k, n)
End Sub
Private Sub TB13_Change()
       i = 1: j = 0: k = 3: n = 13
       Call ScrollB(i, j, k, n)
End Sub
Private Sub ScrollB(i, j, k, n)
       Sa(ScrollBar1 + i, j, k) = Controls("TB" & n)
End Sub

[/vba]