| Вопрос: .OnAction = функция с параметром | Добавлено: 04.02.08 19:31 |
Автор вопроса:  NovaC
|
|
Доброе время суток !
Помогите пожалуйста разобраться : в VBA создаётся кнопка меню : (пример во вложении) Dim pop As Office.CommandBarPopup Dim btn As Office.CommandBarButton Set pop = Application.CommandBars.Item("Worksheet Menu bar").Controls.Add(msoControlPopup) With pop .Caption = "SAMPLE" .Tag = "sample" .BeginGroup = True End With Set btn = pop.Controls.Add(msoControlButton) With btn .Caption = "Function sample" .Tag = "sample" .OnAction = "sample" ' .OnAction = "sample(1)" End With если .OnAction = "sample" - то всё ОК проблема в том, что если задавать .OnAction = "sample(1)", т.е. передавать параметр (на деле необходимо создать двенадцать кнопок (на каждый месяц) и в функцию передавать номер месяца) то функция sample(1) - выполняется два раза - в ней не отрабатывает очистка листа : Workbooks("sample.xls").Worksheets("Лист1").Cells.Clear - В строке WS.Cells(i, j) = CDbl(rec(f.Name)) начинает ругаться на : CDbl() Заранее спасибо за ответ . . . |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  NovaC Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 04.02.08 20:02 |
|
пример можно посмотреть здесь :
http://slil.ru/25435147 |
||
Страница: 1 |