Ajout d'un bouton de commande VBA avec son code respectif

L'ajout d'un bouton de commande VBA avec son code respectif n'est pas une tâche compliquée. Cela nécessite juste un peu de connaissance d'Excel et des macros. Avec la VBA, les boutons peuvent invoquer les macros, afficher les messages et exécuter d'autres fonctions. Utilisez VBA afin d'ajouter plus de fonctionnalités aux feuilles de calcul Excel sans avoir la connaissance des détails techniques des propriétés du bouton de commande VBA ni des fonctions telles que le clic du bouton de commande VBA . Copiez le code dans le module respectif et confirmez que le bouton est en action. On peut augmenter la fonctionnalité des feuilles de calcul en ajoutant un bouton de commande VBA avec son code respectif . Le logiciel Office est clairement plus développé que jamais.

Collez ces deux sections de code dans un module général (Module1 par exemple).

 Sous CreateButton () Dim Obj As Object Dim Code As String Sheets ("Sheet1"). Bouton Sélectionner 'Set. Définir Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.CommandButton.1", _ Lien: = False, DisplayAsIcon : = False, Left: = 200, Top: = 100, Largeur: = 100, Hauteur: = 35) Obj.Name = "TestButton" "au bout du texte ActiveSheet.OLEObjects (1) .Object.Caption =" Bouton de test "" Texte de la macro Code = "Sub ButtonTest_Click ()" & Code vbCrLf = Code & "Testeur d'appels" & Code vbCrLf = Code & "End Sub" 'ajoute une macro à la fin du module de feuille Avec ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name ) .CodeModule .insertlines .CountOfLines + 1, Code End With End Sub Tester () MsgBox "Vous avez cliqué sur le bouton du test" End Sub

Télécharger: