Πώς να καταγράψετε μακροεντολή και στη συνέχεια πώς να τροποποιήσετε τον κώδικα

Anonim

Σε αυτό το άρθρο, θα μάθουμε πώς να καταγράφουμε μακροεντολή και στη συνέχεια πώς να την τροποποιούμε και να διευκολύνουμε την εκμάθηση.

Πώς να γράψετε μακροεντολή για τον τύπο Sum στο VBE

Έχουμε δεδομένα Excel στο εύρος A1: C14, στα οποία η στήλη A περιέχει ονόματα, η στήλη Β έχει τα σήματα του θέματος 1 και η στήλη C που έχει τα σήματα του θέματος 2. Στη στήλη Δ, θέλω να επιστρέψω τα συνολικά σήματα.

Για να εισαγάγετε τον τύπο αθροίσματος χρησιμοποιώντας VBA στο Microsoft Excel, ακολουθήστε τα παρακάτω βήματα:-

  • Ανοίξτε τα δεδομένα του Excel.
  • Αρχικά καταγράφετε τη μακροεντολή για την επιστροφή των συνολικών βαθμών στο κελί D2.
  • Στην καρτέλα "Προγραμματιστής", επιλέξτε "Εγγραφή μακροεντολής" από την ομάδα "Κωδικός".
  • Θα εμφανιστεί το παράθυρο διαλόγου "Εγγραφή μακροεντολής".
  • Στο πλαίσιο "Όνομα μακροεντολής" γράψτε το όνομα της μακροεντολής χωρίς να χρησιμοποιήσετε κενό και ειδικό χαρακτήρα.
  • Πληκτρολογήστε το κλειδί συντόμευσης όποιο θέλετε.
  • Και γράψτε την περιγραφή για τη μακροεντολή στο πλαίσιο περιγραφής.
  • Η εγγραφή θα ξεκινήσει τώρα.
  • Γράψτε τον τύπο αθροίσματος στο κελί D2.
  • Επικολλήστε τον τύπο στο εύρος D3: D14.
  • Κάντε κλικ στο "Διακοπή εγγραφής"
  • Για να δείτε τις καταγεγραμμένες μακροεντολές, πατήστε το πλήκτρο "ALT+F11".
  • Ο εγγεγραμμένος κώδικας θα είναι ο εξής:-
Sub SUM () '' SUM Macro 'Συνολικές βαθμολογίες αποκτήθηκαν' 'Συντόμευση πληκτρολογίου: 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 " ). Επιλέξτε Τέλος υπο

Όπως μπορείτε να δείτε ότι ο προαναφερθείς κώδικας VBA είναι πολύ μακρύς για να επιστρέψει συνολικές βαθμολογίες και επίσης δεν είναι εύκολο να κατανοηθεί. Έτσι, τροποποιούμε την κωδικοποίηση.

Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X). Value = "= Sum (B2: C2)" End Sub

Πώς να γράψετε μακροεντολή για τον μέσο τύπο στο VBE

Έχουμε δεδομένα Excel στο εύρος A1: C14, στα οποία η στήλη A περιέχει ονόματα, η στήλη Β έχει τα σήματα του θέματος 1 και η στήλη C έχει τα σήματα του θέματος 2. Στη στήλη D, θέλω να επιστρέψω τους μέσους βαθμούς.

Για να εισαγάγετε τον μέσο τύπο χρησιμοποιώντας VBA στο Microsoft Excel 2010 και 2013, ακολουθήστε τα παρακάτω βήματα:-

  • Ανοίξτε τα δεδομένα του Excel.
  • Αρχικά καταγράφετε τη μακροεντολή για την επιστροφή των μέσων βαθμών στο κελί D2.
  • Στην καρτέλα "Προγραμματιστής", επιλέξτε "Εγγραφή μακροεντολής" από την ομάδα "Κωδικός".
  • Θα εμφανιστεί το παράθυρο διαλόγου "Εγγραφή μακροεντολής".
  • Στο πλαίσιο "Όνομα μακροεντολής", γράψτε το όνομα της μακροεντολής χωρίς να χρησιμοποιήσετε κενό και ειδικό χαρακτήρα.
  • Πληκτρολογήστε το κλειδί συντόμευσης -όποιο θέλετε.
  • Και γράψτε την περιγραφή για τη μακροεντολή στο πλαίσιο περιγραφής.
  • Η εγγραφή θα ξεκινήσει τώρα.
  • Γράψτε τον τύπο "AVERAGE" στο κελί D2.
  • Επικολλήστε τον τύπο στο εύρος D3: D14.
  • Κάντε κλικ στο "Διακοπή εγγραφής".
  • Για να δείτε τις καταγεγραμμένες μακροεντολές, πατήστε το πλήκτρο "ALT+F11".
  • Ο εγγεγραμμένος κωδικός θα ήταν ο εξής:-
Sub AVERAGE () '' AVERAGE Macro 'Συνολικοί βαθμοί που λαμβάνονται' 'Συντόμευση πληκτρολογίου: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= AVERAGE (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Επιλέξτε Επιλογή. Εύρος αντιγραφής (" D2 "). Επιλέξτε Επιλογή. Τέλος (xlDown). Επιλέξτε Εύρος (" E14 "). Επιλέξτε Εύρος (Επιλογή, Επιλογή. Τέλος (xlUp)). Επιλέξτε ActiveSheet. Εύρος Επικόλλησης ( "E13"). Επιλέξτε Selection.End (xlUp). Επιλέξτε End Sub

Όπως μπορείτε να δείτε ότι ο προαναφερθείς κώδικας VBA είναι πολύ μακρύς για την επιστροφή συνολικών βαθμών και επίσης δεν είναι εύκολο να το καταλάβετε. Έτσι, τροποποιούμε τον κώδικα.

Sub Average () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("E2: E" & X). Value = "= Average (B2: C2)" End Sub

Με αυτόν τον τρόπο, μπορούμε να μάθουμε πώς να καταγράφουμε μακροεντολή και στη συνέχεια πώς να την τροποποιούμε.

Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email