Спасибо за подсказку. Завтра попробую.
Я пошел более безумным путем: сделал около 300 кнопок. расположил их на мультиформах разбив их на "смысловые группы".
Каждую кнопку обозвал сообразно номеру идентификатора.
Например: CommandButton_В007
Затем на в VBA на форме дважды щелкнул все кнопки, при этом образовалась длинная колонка макросов:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Private Sub CommandButton_В007_Click()
End Sub
Private Sub CommandButton_В009_Click()
End Sub
Private Sub CommandButton_Г001_Click()
End Sub
Private Sub CommandButton_Г006_Click()
End Sub
Private Sub CommandButton_Д001_Click()
End Sub
Private Sub CommandButton_Д005_Click()
End Sub
Private Sub CommandButton_Д008_Click()
End Sub
Затем я их скопировал на лист ExceL
и через формулы получил колонку требуемых макросов:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub CommandButton_В007_Click()
UserForm1.TextBox1.Text = "В007"
ОБНОВЛЕНИЕ_КНОПКИ
End Sub
Private Sub CommandButton_В009_Click()
UserForm1.TextBox1.Text = "В009"
ОБНОВЛЕНИЕ_КНОПКИ
End Sub
Private Sub CommandButton_Г001_Click()
UserForm1.TextBox1.Text = "Г001"
ОБНОВЛЕНИЕ_КНОПКИ
End Sub
Private Sub CommandButton_Г006_Click()
UserForm1.TextBox1.Text = "Г006"
ОБНОВЛЕНИЕ_КНОПКИ
End Sub
Сложность была только в одном - как получить кавычки в формуле.
Сделал просто:
="UserForm1.TextBox1.Text = "&"''"&ПСТР(G89;27;4)&"''"
использовал в формуле одинарные кавычки, а потом скопировал диапазон, вставил значения и сразу заменил ' на "
В итоге менеджерам понравилось. Получилось реально удобнее чем в 1С...
Хотя конечно надо доводить до ума...
