Бойтесь АктивХ Кнопок! - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы