Astuces Excel
  1. Astuces Excel
  3. Défi: MS Excel VBA Programming for the Absolute Beginner
Intereting Posts
Numéro de version Excel VBA du numéro séquentiel Modification des arrays pour établir des liens directs avec VBA Impossible d'appeler une macro Excel 2016 Supprimez plusieurs tabs qui changent de nom à mesure que l'année change Python Tentative d'écrasement de l'erreur de cellule Requêtes Sql dans le code VBA – comment commenter après la string Sql Changer la taille de HorizontalScrollBar avec VBA Ligne de première cellule avec text, search en bas Comment imprimer un pdf double face dans vba excel? Comment filterr un nombre commence par un numéro spécial Cellule définie utilisée en reference à la plage VBA get le nombre maximum selon l'état Si "a1" contient "plusieurs strings, ici", affiche "my-text" mais si "a1" contient "other, ssortingngs, here" afficher "different-text" mais si Comment utiliser Lucene Query Parser / NLTK pour effectuer le PNL sur des documents Excel Comment changer un nombre dans une cellule à cette valeur la plus petite?

Défi: MS Excel VBA Programming for the Absolute Beginner

J'apprends VBA en utilisant une combinaison de VBA For Dummies et le livre mentionné ci-dessus. Le dernier, présente un défi simple (Défi 2, chapitre 2) auquel j'aimerais vous poser quelques remarques.

Le défi est le suivant:

Placez un contrôle de button de command sur une feuille de calcul et écrivez un programme dans la procédure d'événement Click () qui augmente une variable par 5 à chaque clic de la souris. Sortez la valeur de cette variable dans une boîte de message.

J'ai rassemblé l'extrait de code suivant en réponse: 

Sub CommandButton1_Click() Dim AddClick As Integer AddClick = Range("A1").Value AddClick = AddClick + 5 Range("A1").Value = AddClick MsgBox AddClick End Sub

Bien que le code fonctionne, je suis bien sûr qu'il existe un moyen d'éliminer l'utilisation de 'Range ("A1"). Valeur' ​​pour baser la variable 'AddClick' sur. Comment pourrais-je faire cela?

* Mise à jour: Grâce à la suggestion de Cody Gray (http://articles.techrepublic.com.com/5100-10878_11-5854605.html), j'ai révisé le code à la suite – qui fonctionne maintenant très bien (édité pour plus d'informations sur la simplicité ): * 

 Sub CommandButton1_Click() Static AddClick As Integer AddClick = AddClick + 5 MsgBox AddClick End Sub

Simples. Merci encore Cody.

Les deux échantillons précédents sont faux je pense. La version correcte est la suivante: 

 Sub CommandButton1_Click() Static AddClick As Integer AddClick = AddClick + 5 MsgBox AddClick End Sub

Définissez la variable au niveau du module.
Cela augmentera la scope de la variable de la procédure au module.

Remplacez le code existant par celui-ci. 

 Option Explicit Dim AddClick As Integer Sub CommandButton1_Click() AddClick = 0 AddClick = AddClick + 5 MsgBox (AddClick) End Sub

Remarque: La définition de la variable au niveau de la procédure limitera sa durée de vie.
c'est-à-dire que la variable ne sera pas accessible en dehors du cadre de la procédure.