In diesem Artikel erfahren Sie, wie Sie Makros aufzeichnen und dann ändern und das Lernen erleichtern.

Wie schreibe ich ein Makro für die Summenformel in VBE Wir haben Excel-Daten im Bereich A1: C14, in denen Spalte A Namen enthält, Spalte B die Noten von Subjekt 1 und Spalte C die Noten von Subjekt 2. In Spalte D, I. möchte die Gesamtpunktzahl zurückgeben.

Führen Sie die folgenden Schritte aus, um eine Summenformel mit VBA in Microsoft Excel einzufügen: – * Öffnen Sie Excel-Daten.

  • Zuerst zeichnen Sie das Makro für die Rückgabe der Gesamtpunktzahl in Zelle D2 auf.

  • Wählen Sie auf der Registerkarte „Entwickler“ aus der Gruppe „Code“ die Option „Makro aufzeichnen“.

  • Das Dialogfeld „Makro aufnehmen“ wird angezeigt.

  • Geben Sie im Feld „Makroname“ den Namen des Makros ein, ohne Leerzeichen und Sonderzeichen zu verwenden.

  • Geben Sie die Tastenkombination ein, je nachdem, was Sie möchten.

  • Und schreiben Sie die Beschreibung des Makros in das Beschreibungsfeld.

  • Die Aufnahme beginnt jetzt.

  • Schreiben Sie die Summenformel in Zelle D2.

  • Fügen Sie die Formel in den Bereich D3: D14 ein.

Klicken Sie auf „Aufnahme beenden“. Um die aufgezeichneten Makros anzuzeigen, drücken Sie die Taste „ALT + F11“.

  • Der aufgezeichnete Code würde folgendermaßen aussehen: –

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

Wie Sie sehen, ist der oben erwähnte VBA-Code zu lang, um Gesamtnoten zurückzugeben, und er ist auch nicht leicht zu verstehen. Daher ändern wir die Codierung.

Sub SUM()

Dim X As Integer

X = Application.WorksheetFunction.CountA(Range("A:A"))

Range("D2:D" & X).Value = "=Sum(B2:C2)"

End Sub

Wie schreibe ich ein Makro für die Durchschnittsformel in VBE

Wir haben Excel-Daten im Bereich A1: C14, in denen Spalte A Namen enthält, Spalte B die Noten von Subjekt 1 und Spalte C die Noten von Subjekt 2. In Spalte D möchte ich die Durchschnittsnoten zurückgeben.

Führen Sie die folgenden Schritte aus, um eine Durchschnittsformel mit VBA in Microsoft Excel 2010 und 2013 einzufügen: – * Öffnen Sie Excel-Daten.

  • Zuerst zeichnen Sie das Makro für die Rückgabe von Durchschnittsnoten in der Zelle D2 auf.

  • Wählen Sie auf der Registerkarte „Entwickler“ aus der Gruppe „Code“ die Option „Makro aufzeichnen“.

  • Das Dialogfeld „Makro aufnehmen“ wird angezeigt.

  • Geben Sie im Feld „Makroname“ den Namen des Makros ein, ohne Leerzeichen und Sonderzeichen zu verwenden.

  • Geben Sie die Tastenkombination ein – je nachdem, was Sie möchten.

  • Und schreiben Sie die Beschreibung des Makros in das Beschreibungsfeld.

  • Die Aufnahme beginnt jetzt.

  • Schreiben Sie die Formel „DURCHSCHNITTLICH“ in Zelle D2.

  • Fügen Sie die Formel in den Bereich D3: D14 ein.

  • Klicken Sie auf „Aufnahme beenden“.

  • Um die aufgezeichneten Makros anzuzeigen, drücken Sie die Taste „ALT + F11“.

  • Der aufgezeichnete Code würde folgendermaßen aussehen: –

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

Wie Sie sehen, ist der oben erwähnte VBA-Code zu lang, um Gesamtnoten zurückzugeben, und er ist auch nicht leicht zu verstehen. Daher ändern wir den Code.

Sub Average()

Dim X As Integer

X = Application.WorksheetFunction.CountA(Range("A:A"))

Range("E2:E" & X).Value = "=Average(B2:C2)"

End Sub

Auf diese Weise können wir lernen, wie man Makros aufzeichnet und dann ändert.

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Sie können uns auch auf Twitter und Facebook folgen.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns an [email protected]