Бойтесь АктивХ Кнопок! - VBA
Формулировка задачи:
Люди, здравствуйте.
Это не конкретный вопрос для решения, а вопрос для того, чтобы поделиться наблюдениями.
Итак:
АктивХ кнопки просто неадекватно себя ведут. Они могут просто поменяться местами - в смысле обработчиками - просто от операции закрыть-открыть книгу Экселя. А программное создание несет в себе столько геморроя, что лучше с этим не связываться.
У кого такое было, что кнопки жили своей жизнью?
Решение задачи: «Бойтесь АктивХ Кнопок!»
textual
Листинг программы
Public Sub DoIt() TotalClear.TotalClear SetGreedBackGround Range(Cells(1, 1), Cells(4, 4)) MakeButton BTTN_RESETTOOL, Range(Cells(2, 2), Cells(3, 3)) SetGreedBackGround Range(Cells(6, 1), Cells(9, 4)) Set btn = MakeButton(BTTN_GEETDSNS, Range(Cells(7, 2), Cells(8, 3))) SetGreedBackGround Range(Cells(6, 1), Cells(9, 4)) Set btn = MakeButton(BTTN_SETCNCTN, Range(Cells(7, 2), Cells(8, 3))) btn.Visible = False SetGreedBackGround Range(Cells(6, 1), Cells(9, 4)) Set btn = MakeButton(BTTN_ANALYSE, Range(Cells(7, 2), Cells(8, 3))) btn.Visible = False SetGreedBackGround Range(Cells(6, 1), Cells(9, 4)) Set btn = MakeButton(BTTN_CREATEPVT, Range(Cells(7, 2), Cells(8, 3))) btn.Visible = False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д