Comment enregistrer macro et comment modifier le code
Dans cet article, nous allons apprendre comment enregistrer une macro puis comment la modifier et la rendre plus facile à apprendre.
Comment écrire une macro pour la formule de somme dans VBE Nous avons une donnée Excel dans la plage A1: C14, dans laquelle la colonne A contient les noms, la colonne B ayant les marques du sujet 1 et la colonne C les marques du sujet 2. Dans la colonne D, I veulent renvoyer le total des points.
Pour insérer une formule de somme à l’aide de VBA dans Microsoft Excel, suivez les étapes ci-dessous: – * Ouvrez les données Excel.
-
Vous enregistrez d’abord la macro pour renvoyer les notes totales dans la cellule D2.
-
Dans l’onglet «Développeur», sélectionnez «Enregistrer une macro» dans le groupe de «Code».
-
La boîte de dialogue «Enregistrer une macro» apparaîtra.
-
Dans la case «Nom de la macro», écrivez le nom de la macro sans utiliser d’espace ni de caractère spécial.
-
Tapez la touche de raccourci comme vous le souhaitez.
-
Et écrivez la description de la macro dans la zone de description.
-
L’enregistrement va commencer maintenant.
-
Écrivez la formule de somme dans la cellule D2.
-
Collez la formule dans la plage D3: D14.
Cliquez sur «Arrêter l’enregistrement» Pour voir les macros enregistrées, appuyez sur la touche «ALT + F11».
-
Le code enregistré serait comme ceci: –
Sub SUM() ' 'SUM Macro 'Total marks obtain ' ' Keyboard Shortcut: Ctrl+Shift+S ' Range("D2").Select ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" Selection.Copy Range("C2").Select Selection.End(xlDown).Select Range("D14").Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste Range("D2").Select End Sub
Comme vous pouvez le voir, le code VBA mentionné ci-dessus est trop long pour renvoyer des notes totales, et il n’est pas non plus facile à comprendre. Ainsi, nous modifions le codage.
Sub SUM() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("D2:D" & X).Value = "=Sum(B2:C2)" End Sub
Comment écrire une macro pour la formule moyenne dans VBE
Nous avons une donnée Excel dans la plage A1: C14, dans laquelle la colonne A contient des noms, la colonne B ayant les marques du sujet 1 et la colonne C ayant les marques du sujet 2. Dans la colonne D, je veux renvoyer les notes moyennes.
Pour insérer une formule moyenne à l’aide de VBA dans Microsoft Excel 2010 et 2013, suivez les étapes ci-dessous: – * Ouvrez les données Excel.
-
Vous enregistrez d’abord la macro pour renvoyer les notes moyennes dans la cellule D2.
-
Dans l’onglet «Développeur», sélectionnez «Enregistrer une macro» dans le groupe de «Code».
-
La boîte de dialogue «Enregistrer une macro» apparaîtra.
-
Dans la case «Nom de la macro», écrivez le nom de la macro sans utiliser d’espace ni de caractère spécial.
-
Tapez la touche de raccourci – celle que vous voulez.
-
Et écrivez la description de la macro dans la zone de description.
-
L’enregistrement va commencer maintenant.
-
Écrivez la formule «MOYENNE» dans la cellule D2.
-
Collez la formule dans la plage D3: D14.
-
Cliquez sur «Arrêter l’enregistrement».
-
Pour voir les macros enregistrées, appuyez sur la touche «ALT + F11».
-
Le code enregistré serait comme ceci: –
Sub AVERAGE() ' 'AVERAGE Macro 'Total marks obtain ' ' Keyboard Shortcut: Ctrl+Shift+A 'ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-2])" Selection.Copy Range("E2").Select Selection.Copy Range("D2").Select Selection.End(xlDown).Select Range("E14").Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste Range("E13").Select Selection.End(xlUp).Select End Sub
Comme vous pouvez le voir, le code VBA mentionné ci-dessus est trop long pour renvoyer des notes totales et il n’est pas non plus facile à comprendre; ainsi, nous modifions le code.
Sub Average() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("E2:E" & X).Value = "=Average(B2:C2)" End Sub
De cette façon, nous pouvons apprendre à enregistrer une macro puis à la modifier.
Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez aussi nous suivre sur Twitter et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer, compléter ou innover notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]