Додавання VBA CommandButton з відповідним кодом

Додавання CommandButton VBA з відповідним кодом не є складним завданням. Вона просто вимагає трохи знання Excel і макросів. За допомогою VBA кнопки можуть викликати макроси, відображати повідомлення та виконувати інші функції. Використовуйте VBA для того, щоб додати більше функцій до робочих таблиць Excel, не маючи знання технічних деталей властивостей VBA CommandButton або таких функцій, як VBA CommandButton . Скопіюйте код у відповідний модуль і переконайтеся, що кнопка знаходиться в дії. Можна збільшити функціональність робочих листів, додавши CommandButton VBA з відповідним кодом . Програмне забезпечення Office значно більш розвинене, ніж будь-коли.

Вставте ці два розділи коду в загальний модуль (наприклад, модуль1).

 Sub CreateButton () Dim Obj Як об'єкт Dim Code As String Sheets ("Sheet1"). Виберіть "створити кнопку" Set Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Link: = False, DisplayAsIcon : = False, Left: = 200, Top: = 100, Width: = 100, Height: = 35) Obj.Name = "TestButton" 'textn text ActiveSheet.OLEObjects (1) .Object.Caption = "Кнопка тестування" macro text Code = "Sub ButtonTest_Click ()" & vbCrLf Код = Код & "Тест виклику" & vbCrLf Код = Код & "Закінчити Sub" "додати макрос в кінці модуля аркуша ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name Код. Модуль .insertlines .CountOfLines + 1, Закінчення коду з закінченням Sub Sub Tester () MsgBox "Ви клацнули на тестовій кнопці" End Sub

Завантажити: