VBA Cheat Sheets - Commands & Syntax Lists

VBA Cheat Sheet PDF (Δωρεάν λήψη)

Κατεβάστε το δωρεάν Excel Excel VBA Cheat Sheet για γρήγορη αναφορά!

Κατεβάστε

VBA Cheat Sheets

Ανατρέξτε σε αυτήν τη σελίδα για λίστες όλων των κοινών εντολών και σύνταξης VBA. Θα βρείτε πολλές βασικές εντολές (π.χ. εισαγωγή φύλλου) και κάποια σύνθετη σύνταξη (π.χ. εργασία με πίνακες).

Συμβουλές:

Χρησιμοποιήστε CTRL + F για αναζήτηση σε αυτήν τη σελίδα.

Σελιδοδείκτης αυτής της σελίδας (CTRL + D στο Chrome)!

Φύλλα

ΠεριγραφήΚωδικός VBAΕνεργοποίηση με όνομα καρτέλαςΦύλλα ("Εισαγωγή"). ΕνεργοποιήστεΕνεργοποίηση με κωδικό όνομα VBAΦύλλο 1. ΕνεργοποιήστεΕνεργοποίηση κατά θέση ευρετηρίουΦύλλα (1). ΕνεργοποιήστεΕπόμενο φύλλοActiveSheet.Next.ActivateΑποκτήστε το ActiveSheetMsgBox ActiveSheet.NameΕπιλέξτε ΦύλλοΦύλλα ("Εισαγωγή"). ΕπιλέξτεΟρίστε σε ΜεταβλητήDim ws ως φύλλο εργασίας
Ορισμός ws = ActiveSheetΌνομα / ΜετονομασίαActiveSheet.Name = "NewName"Προσθήκη φύλλουΦύλλα. ΠροσθήκηΠροσθήκη φύλλου και ονόματοςSheets.Add.Name = "NewSheet"Προσθήκη φύλλου στη μεταβλητήDim ws Ως φύλλο εργασίας
Ορισμός ws = Φύλλα. ΠροσθήκηΑντιγραφή φύλλουΦύλλα ("Sheet1"). Αντιγραφή πριν: = Φύλλα ("Sheet2")Απόκρυψη φύλλουΦύλλα ("Φύλλο1"). Ορατό = Λάθος
ή
Φύλλα ("Φύλλο1"). Ορατό = xlSheetHiddenΑποκάλυψη φύλλουΦύλλα ("Φύλλο1"). Ορατό = Αληθινό
ή
Φύλλα ("Sheet1"). Visible = xlSheetVisibleΠολύ απόκρυψη φύλλουΦύλλα ("Sheet1"). Visible = xlSheetVeryHiddenΔιαγραφή φύλλουΦύλλα ("Sheet1"). ΔιαγραφήΔιαγραφή φύλλουΦύλλα ("Sheet1"). Cells.ClearΑπροστασία (Χωρίς κωδικό πρόσβασης)Φύλλα ("Φύλλο1"). ΑπροστασίαΑπροστασία (Κωδικός πρόσβασης)Φύλλα ("Sheet1"). Απροστασία "Κωδικός πρόσβασης"Προστασία (Χωρίς κωδικό πρόσβασης)Φύλλα ("Sheet1"). ΠροστατέψτεΠροστασία (Κωδικός πρόσβασης)Φύλλα ("Sheet1"). Προστατέψτε το "Password"Προστατέψτε αλλά επιτρέψτε την πρόσβαση VBAΦύλλα ("Sheet1"). Προστατεύστε το UserInterface Μόνο: = True

Επιστροφή στην κορυφή

Cells & Ranges

ΠεριγραφήΚωδικός VBAΕνεργοποίηση κελιούΕύρος ("B3"). Ενεργοποιήστε
Κελιά (3,2). ΕνεργοποιήστεΕπιλέξτε ΕύροςΕύρος ("a1: a3"). Επιλέξτε
Εύρος (Εύρος («a1»), Εύρος («a3»)). Επιλέξτε
Εύρος (Κελιά (1, 1), Κελιά (3, 1)). ΕπιλέξτεΑλλαγή μεγέθουςΕύρος ("B3"). Αλλαγή μεγέθους (2, 2). ΕπιλέξτεΑντισταθμίζεταιΕύρος ("B3"). Offset (2, 2). ΕπιλέξτεαντίγραφοΕύρος ("A1: B3"). Εύρος αντιγραφής ("D1")ΤομήΕύρος ("A1: B3"). Εύρος κοπής ("D1")ΔιαγράφωΕύρος ("A1: B3"). Διαγραφή
Εύρος ("A1: B3"). Διαγραφή αλλαγής: = xlShiftToLeftΣαφήΕύρος («A1: A3»)
Εύρος ("A1: A3"). ClearContents
Εύρος ("A1: A3"). ClearFormatμετρώΕύρος ("A1: A3"). ΜετρήστεΟρίστε σε ΜεταβλητήDim rng ως Range
Ρύθμιση rng = Εύρος ("A1")Συγχώνευση/UnMergeΕύρος ("A1: A3"). Συγχώνευση
Εύρος ("A1: A3"). UnMergeLoop Through Cellls

Dim cell As Range

Για κάθε κελί εντός εμβέλειας ("A1: C3")
MsgBox cell.Value
Επόμενο κελί

Επιστροφή στην κορυφή

Σειρές

ΠεριγραφήΚωδικός VBAΘέτω εις ενέργειανΣειρές (1). Ενεργοποιήστε
Γραμμές ("1: 1"). Ενεργοποιήστε
Εύρος ("a1"). EntireRow.ActivateΥψος πλάτοςΕύρος ("A1"). EntireRow.RowHeight = 30ΔιαγράφωΕύρος ("A1"). EntireRow.DeleteμετρώRange ("A1"). Rows.CountΕισάγετεΕύρος ("A1"). EntireRow.Insertτελευταίοςdim lRow όσο καιρό
lRow = Cells (Rows.Count, 1). End (xlUp). RowαντίγραφοΕύρος ("1: 1"). Εύρος αντιγραφής ("5: 5")ΕισάγετεΕύρος ("1: 1"). Αντιγραφή
Εύρος ("5: 5"). Εισαγωγή

Επιστροφή στην κορυφή

Στήλες

ΠεριγραφήΚωδικός VBAΘέτω εις ενέργειανΣτήλες (1). Ενεργοποιήστε
Στήλες ("a: a"). Ενεργοποιήστε
Εύρος ("a1"). EntireColumn.ActivateΥψος πλάτοςΕύρος ("A1"). EntireColumn.ColumnWidth = 30ΔιαγράφωΕύρος ("A1"). EntireColumn.DeleteμετρώΕύρος ("A1"). Στήλες. ΑριθμόςΕισάγετεΕύρος ("A1"). Ολόκληρη στήλη. Εισαγωγήτελευταίοςdim lCol όσο καιρό
lCol = Κελιά (1, Στήλες. Αριθμός). Τέλος (xlToLeft). ΣτήληαντίγραφοΕύρος ("A: A"). Εύρος αντιγραφής ("E: E")ΕισάγετεΕύρος ("A: A"). Αντιγραφή
Εύρος ("E: E"). Εισαγωγή

Επιστροφή στην κορυφή

Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!

Τετράδια εργασίας

ΠεριγραφήΚωδικός VBAΘέτω εις ενέργειανΤετράδια εργασίας ("Book1"). ΕνεργοποιήστεΕνεργοποίηση Πρώτα ΆνοιξεΤετράδια εργασίας (1). ΕνεργοποιήστεΕνεργοποίηση Τελευταίο ΆνοιγμαΤετράδια εργασίας (Workbooks.Count). ΕνεργοποιήστεΑποκτήστε το ActivateWorkbookMsgBox ActiveWorkbook.NameΛήψη αυτού του βιβλίου εργασίας (που περιέχει κώδικα VBA)MsgBox ThisWorkbook.NameΠροσθήκηΤετράδια εργασίας. ΠροσθήκηΠροσθήκη στη μεταβλητήDim wb Ως βιβλίο εργασίας
Ρύθμιση wb = Τετράδια εργασίας. ΠροσθήκηΑνοιξεΤετράδια εργασίας. Άνοιγμα ("C: \ example.xlsm")Ανοιχτό στο VariableDim wb Ως βιβλίο εργασίας
Ρύθμιση wb = Workbooks.Open ("C: \ example.xlsm")ΚλείσεΤετράδια εργασίας ("Book1"). Κλείσιμο SaveChanges: = Λάθος
Τετράδια εργασίας ("Book1"). Κλείσιμο SaveChanges: = TrueΑποθηκεύσετεΤετράδια εργασίας ("Book1"). ΑποθήκευσηΑποθήκευση ωςΤετράδια εργασίας ("Book1"). SaveAs strFileNameΠροστασία/Μη προστασίαΤετράδια εργασίας (1). Προστατέψτε τον "κωδικό πρόσβασης"
Τετράδια εργασίας (1) .Προστασία "κωδικού πρόσβασης"Ορίστε σε ΜεταβλητήDim wb ως τετράδιο εργασίας
Ορισμός wb = Τετράδια εργασίας ("Book1")Βρόχος σε όλα τα τετράδια εργασίας σε τετράδια εργασίας

Dim wb Ως βιβλίο εργασίας

Για κάθε wb Σε βιβλία εργασίας
MsgBox wb. Όνομα
Επόμενο wb

Έλεγχος ΥπάρχειΕάν Dir ("C: \ Book1.xlsx") = "" Τότε
MsgBox "Το αρχείο δεν υπάρχει."
Τέλος εανΑντιγραφή κλειστόFileCopy "C: \ file1.xlsx", "C: \ file2.xlsx"

Επιστροφή στην κορυφή

Ρυθμίσεις

ΠεριγραφήΚωδικός VBAΕνημέρωση οθόνηςApplication.ScreenUpdating = Λάθος
Application.ScreenUpdating = TrueΕμφάνιση ειδοποιήσεωνApplication.DisplayAlerts = Λάθος
Application.DisplayAlerts = TrueΕκδηλώσειςApplication.EnableEvents = Λάθος
Application.EnableEvents = TrueΕνεργοποίηση κλειδιού ακύρωσηςApplication.EnableCancelKey = xl Απενεργοποιημένο
Application.EnableCancelKey = xlInterruptΣύγκριση κειμένου - Αγνοήστε την περίπτωσηΕπιλογή Σύγκριση κειμένουΑπαιτείται δήλωση μεταβλητήςΕπιλογή ρητήΑυτόματοι υπολογισμοίApplication.Calculation = xlManual
Εφαρμογή. Υπολογισμός = xlΑυτόματοΈλεγχος σφάλματος φόντουApplication.ErrorCheckingOptions.BackgroundChecking = Λάθος
Application.ErrorCheckingOptions.BackgroundChecking = ΑλήθειαΕμφάνιση γραμμής τύπωνApplication.DisplayFormulaBar = Λάθος
Application.DisplayFormulaBar = TrueΠαγώστε τα τζάμιαActiveWindow.FreezePanes = Λάθος
ActiveWindow.FreezePanes = TrueΠροβολή πλήρους οθόνηςApplication.DisplayFullScreen = Λάθος
Application.DisplayFullScreen = TrueΠροεπισκόπηση PageBreakActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewΕμφάνιση γραμμών κύλισηςΜε το ActiveWindow
.DisplayHorizontalScrollBar = Λάθος
.DisplayVerticalScrollBar = Λάθος
Τέλος μεWith ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Τέλος μεΓραμμή κατάστασης εμφάνισηςApplication.DisplayStatusBar = Λάθος
Application.DisplayStatusBar = TrueΠεριεχόμενα της γραμμής κατάστασηςApplication.StatusBar = "Δουλεύω τώρα !!!"
Application.StatusBar = ΛάθοςΕμφάνιση καρτελών βιβλίου εργασίαςActiveWindow.DisplayWorkbookTabs = Λάθος
ActiveWindow.DisplayWorkbookTabs = TrueΌνομα χρήστηApplication.UserName = "AutomateExcel.com"Λεζάντα εφαρμογήςApplication.Caption = "AutomateExcel Model"Ανίπταμαι διαγωνίωςActiveWindow.Zoom = 80

Επιστροφή στην κορυφή

Σφάλματα

ΠεριγραφήΚωδικός VBAOn Error - Διακοπή κωδικού και σφάλμα εμφάνισηςΣτο Error Goto 0On Error - Παραλείψτε το σφάλμα και συνεχίστε να τρέχετεΣτο Σφάλμα Συνέχιση ΕπόμενοΣφάλμα - Μεταβείτε σε μια γραμμή κώδικα [Ετικέτα]On Error Goto [Ετικέτα]Διαγράφει (Επαναφέρει) ΣφάλμαΣφάλμα GoTo -1Εμφάνιση αριθμού σφάλματοςMsgBox Err.NumberΕμφάνιση περιγραφής σφάλματοςMsgBox Err.DescriptionΛειτουργία για τη δημιουργία του ίδιου σφάλματοςErr.Raise

Επιστροφή στην κορυφή

Αρχεία

ΠεριγραφήΚωδικός VBAΑντιγραφή αρχείουFileCopy "C: \ test \ test_old.xlsx", "C: \ test \ test_new.xlsx"Διαγραφή φακέλουΣκοτώστε το "C: \ test \ example.xlsx"Δημιουργία φακέλουMkDir "C: \ test \"Διαγραφή όλων των αρχείων από το φάκελοΣκοτώστε "C: \ test \" & "*.*"Διαγραφή φακέλουΣκοτώστε "C: \ test \" & "*.*"
RmDir "C: \ test \"Τρέχων κατάλογοςstrPath = CurDir ()ThisWhatbook PathstrPath = ThisWorkbook.PathΒρόχος σε όλα τα αρχεία στο φάκελο

strFile = Dir ("C: \ test" & "\*")

Do while Len (strFile)> 0
Debug.Print strFile
strFile = Σκηνοθεσία
Βρόχος

Επιστροφή στην κορυφή

Υπέροχο Προϊόν. Το AutoMacro δεν γράφει μόνο τον κωδικό σας, διδάσκει καθώς προχωράτε! » - Τόνι, Ηνωμένο Βασίλειο

Μάθε περισσότερα

Διαβάστε τις 900+ κριτικές μας

Πίνακες

ΠεριγραφήΚωδικός VBAΔημιουργώDim arr (1 έως 3) Ως παραλλαγή
arr (1) = "ένα"
arr (2) = "δύο"
arr (3) = "τρία"Δημιουργία από το ExcelDim arr (1 έως 3) Ως παραλλαγή
Dim cell As Range, i As Integer
i = LBound (βέλος)
Για κάθε κελί εντός εμβέλειας ("A1: A3")
i = i + 1
arr (i) = cell.value
Επόμενο κελίΔιαβάστε όλα τα στοιχείαDim i as Long
Για i = LBound (arr) To UBound (arr)
MsgBox arr (i)
Επόμενο iΕξάλειψηΔιαγραφή βέλουςArray to StringDim sName As String
sName = Συμμετοχή (arr, “:”)Αύξηση μεγέθουςΒέλος ReDim Preserve (0 έως 100)Ορισμός τιμήςarr (1) = 22

Επιστροφή στην κορυφή

Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!

Συλλογές

ΠεριγραφήΚωδικός VBAΔημιουργώDim coll As New Collection
σύγκρουση. Προσθέστε "ένα"
σύγκρουση. Προσθέστε "δύο"Δημιουργία από το ExcelDim coll As New Collection
Dim cell As Range
Για κάθε κελί εντός εμβέλειας ("A1: A2")
coll. Προσθήκη κελιού. τιμή
Επόμενο κελίΠρόσθεσε είδοςcoll.Προσθήκη "Value"Προσθήκη στοιχείου πρινcoll.Add "Value", Before: = 1Προσθήκη στοιχείου μετάcoll.Add "Value", After: = 1Διαβάστε το στοιχείοMsgBox coll (1)Μετρήστε στοιχείαcoll.CountΔιαβάστε όλα τα στοιχείαDim στοιχείο ως παραλλαγή
Για κάθε στοιχείο Σε σύγκρουση
Στοιχείο MsgBox
Επόμενο στοιχείοΚατάργηση στοιχείουcoll. Αφαίρεση (1)Αφαίρεση όλων των στοιχείωνΣετ coll = Νέα συλλογή

Επιστροφή στην κορυφή

Λεξικά

ΠεριγραφήΚωδικός VBAΑπαιτούμενη αναφοράΕργαλεία> Αναφορές> Microsoft Scripting RuntimeΔημιουργώDim dict As New Scripting.Dictionary
dict.Προσθήκη ""
dict.Προσθήκη ""Δημιουργία από το ExcelDim dict As New Scripting.Dictionary
Dim cell As Range
Πλήκτρο Dim ως ακέραιος
Για κάθε κελί εντός εμβέλειας ("A1: A10")
κλειδί = κλειδί + 1
dict.Προσθήκη κλειδιού, cell.value
Επόμενο κελίΠρόσθεσε είδοςdict.Add "Key", "Value"Αλλαγή τιμήςdict ("Key") = "Value"Λάβετε αξίαMsgBox dict ("Κλειδί")Έλεγχος τιμήςIf dict.Exists ("Key") Τότε
MsgBox "Υπάρχει"
Τέλος εανΚατάργηση στοιχείουdict.Remove ("Key")Αφαίρεση όλων των στοιχείωνdict.RemoveAllLoop Through ItemsDim key As Variant
Για κάθε πλήκτρο In dict.Keys
Κλειδί MsgBox, dict (κλειδί)
Επόμενο κλειδίΜετρήστε στοιχείαdict.CountΚάντε ευαίσθητη την περίπτωση πεζών -κεφαλαίωνdict.CompareMode = vbBinaryCompareΚάντε την κύρια περίπτωση μη ευαίσθητηdict.CompareMode = vbTextCompare

Επιστροφή στην κορυφή

AutoMacro - Το απόλυτο πρόσθετο VBA

AutoMacro: Πρόσθετο VBA με εκατοντάδες έτοιμα προς χρήση παραδείγματα κώδικα VBA & πολλά άλλα!

Μάθε περισσότερα

wave wave wave wave wave