Adicionando um CommandButton VBA com seu respectivo código

Adicionar um CommandButton VBA com seu respectivo código não é uma tarefa complicada. Apenas requer um pouco de conhecimento do Excel e das macros. Com o VBA, os botões podem invocar as macros, exibir as mensagens e executar outras funções. Use VBA inorder para adicionar mais funcionalidade para planilhas do Excel sem possuir conhecimento de detalhes técnicos das propriedades de CommandButton VBA ou as funções, como o clique CommandButton VBA . Copie o código para o respectivo módulo e confirme se o botão está em ação. Pode-se aumentar a funcionalidade das planilhas adicionando um CommandButton VBA com seu respectivo código . O Office Software é claramente mais desenvolvido do que nunca.

Cole essas duas seções de código em um módulo geral (Module1 por exemplo).

 Sub CreateButton () Dim Obj Como Objeto Dim Código Como String Sheets ("Sheet1"). Selecione "Criar botão Definir Obj = ActiveSheet.OLEObjects.Add (ClassType: =" Forms.CommandButton.1 ", _ Link: = False, DisplayAsIcon : = False, Esquerda: = 200, Superior: = 100, Largura: = 100, Altura: = 35) Obj.Name = "TestButton" 'buttonn texto ActiveSheet.OLEObjects (1) .Object.Caption = "Botão de Teste"' Texto de macro Code = "Sub ButtonTest_Click ()" & vbCrLf Código = código & "Call Tester" & vbCrLf código = código & "End Sub" 'adicionar macro no final do módulo de planilha Com ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name ) .CodeModule .insertlines .CountOfLines + 1, Code End Com End Sub Sub Tester () MsgBox "Você clicou no botão de teste" End Sub

Download: