Добавяне на VBA CommandButton със съответния код

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

Поставете тези два раздела на код в общ модул (например Модул1).

 Sub CreateButton () Dim Obj Като обект Dim Code Като String Sheets ("Sheet1"). Изберете 'create button Задайте 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 Код = Код & "Край Под" "добави макрос в края на модула на лист С ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name .CodeModule .insertlines .CountOfLines + 1, Code End С End Sub Sub Tester () MsgBox "Кликнете върху тестовия бутон" End Sub 

Изтегли:

  • Сървър 1: Пример.xls
Предишна Статия Следваща Статия

Топ Съвети