Добавление VBA CommandButton с соответствующим кодом

Добавление CommandButton VBA с соответствующим кодом не является сложной задачей. Это просто требует немного знаний Excel и макросов. С VBA кнопки могут вызывать макросы, отображать сообщения и выполнять другие функции. Используйте порядок VBA, чтобы добавить больше функциональности к рабочим листам Excel, не обладая знаниями о технических деталях свойств CommandButton VBA или таких функциях, как нажатие кнопки VBA CommandButton . Скопируйте код в соответствующий модуль и убедитесь, что кнопка работает. Можно повысить функциональность рабочих таблиц, добавив VBA CommandButton с соответствующим кодом . Офисное ПО явно более развито, чем когда-либо прежде.

Вставьте эти два раздела кода в общий модуль (например, Module1).

 Sub CreateButton () Dim Obj As Dim Code объекта в виде строковых листов («Sheet1»). Выберите кнопку «Создать» Установите Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Link: = False, DisplayAsIcon : = False, слева: = 200, сверху: = 100, ширина: = 100, высота: = 35) текстовое имя кнопки «TestButton» ActiveSheet.OLEObjects (1) .Object.Caption = «кнопка тестирования» ' макрос текст Code = "Sub ButtonTest_Click ()" & vbCrLf Code = Code & "Call Tester" & vbCrLf Code = Code & "End Sub" 'добавить макрос в конце модуля листа с ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name ) .CodeModule .insertlines .CountOfLines + 1, Код заканчивается End Sub Sub Tester () MsgBox "Вы нажали на кнопку тестирования" End Sub

Скачать: