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]