Agregando un CommandButton VBA con su respectivo código

Agregar un CommandButton VBA con su código respectivo no es una tarea complicada. Solo requiere un poco de conocimiento de Excel y las macros. Con el VBA, los botones pueden invocar las macros, mostrar los mensajes y realizar otras funciones. Use VBA para agregar más funcionalidad a las hojas de cálculo de Excel sin tener conocimiento de los detalles técnicos de las propiedades del botón de control de VBA o las funciones como el botón de control de VBA . Copie el código en el módulo correspondiente y confirme que el botón está en acción. Uno puede aumentar la funcionalidad de las hojas de trabajo agregando un botón de comando VBA con su código respectivo . Office Software está claramente más desarrollado que nunca.

Pegue estas dos secciones de código en un módulo general (Módulo 1 por ejemplo).

 Sub CreateButton () Dim Obj As Object Dim Code As String Sheets ("Sheet1"). Seleccione 'crear botón Establecer Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Link: = False, DisplayAsIcon : = Falso, Izquierda: = 200, Arriba: = 100, Ancho: = 100, Altura: = 35) Obj.Name = "Botón de prueba" Botón de texto ActiveSheet.OLEObjects (1) .Object.Caption = "Botón de prueba" ' macro texto Code = "Sub ButtonTest_Click ()" & vbCrLf Code = Code & "Call Tester" & vbCrLf Code = Code & "End Sub" 'agregar macro al final del módulo de la hoja Con ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name ) .CodeModule .insertlines .CountOfLines + 1, Code End With End Sub Sub Tester () MsgBox "Haga clic en el botón de prueba" End Sub

Descargar: