VBA Cheat Sheets - Lệnh & Danh sách Cú pháp

VBA Cheat Sheet PDF (Tải xuống miễn phí)

Tải xuống PDF Trang tính Cheat VBA trong Excel miễn phí của chúng tôi để tham khảo nhanh!

Tải xuống

VBA Cheat Sheets

Tham khảo trang này để biết danh sách tất cả các Lệnh & Cú pháp VBA phổ biến. Bạn sẽ tìm thấy nhiều lệnh cơ bản (ví dụ: chèn một trang tính) và một số cú pháp nâng cao (ví dụ: làm việc với mảng).

Lời khuyên:

Sử dụng CTRL + F để tìm kiếm trang này.

Đánh dấu trang này (CTRL + D trên Chrome)!

Trang tính

Sự miêu tảMã VBAKích hoạt theo tên tabTrang tính (“Đầu vào”). Kích hoạtKích hoạt bằng tên mã VBASheet1.ActivateKích hoạt theo Vị trí Chỉ mụcTrang tính (1). Kích hoạtTrang tiếp theoActiveSheet.Next.ActivateNhận ActiveSheetMsgBox ActiveSheet.NameChọn trang tínhTrang tính (“Đầu vào”). ChọnĐặt thành BiếnLàm mờ ws dưới dạng Trang tính
Đặt ws = ActiveSheetTên / Đổi tênActiveSheet.Name = “NewName”Thêm trang tínhSheets.AddThêm trang tính và tênSheets.Add.Name = “NewSheet”Thêm trang tính vào biếnDim ws As Worksheet
Đặt ws = Sheets.AddSao chép trang tínhTrang tính (“Trang tính1”). Sao chép Trước: = Trang tính (“Trang tính2”)Ẩn trang tínhTrang tính (“Trang tính1”). Hiển thị = Sai
hoặc
Trang tính (“Trang tính1”). Hiển thị = xlSheetHiddenBỏ ẩn trang tínhTrang tính (“Trang tính 1”). Visible = True
hoặc
Trang tính (“Trang tính1”). Visible = xlSheetVibleRất ẩn trang tínhTrang tính (“Trang tính1”). Visible = xlSheetVeryHiddenXóa trang tínhTrang tính (“Trang tính1”). XóaXóa trang tínhTrang tính (“Trang 1”). Cells.ClearBỏ bảo vệ (Không có mật khẩu)Trang tính (“Trang tính1”). Bỏ bảo vệBỏ bảo vệ (Mật khẩu)Trang tính (“Trang tính1”). Bỏ bảo vệ “Mật khẩu”Bảo vệ (Không có mật khẩu)Trang tính (“Trang 1”). Bảo vệBảo vệ (Mật khẩu)Trang tính (“Trang tính 1”). Bảo vệ “Mật khẩu”Bảo vệ nhưng cho phép truy cập VBASheets (“Sheet1”). Bảo vệ UserInterfaceOnly: = True

Quay lại Lên trên

Ô & Dải

Sự miêu tảMã VBAKích hoạt ôPhạm vi (“B3”). Kích hoạt
Các ô (3,2). Kích hoạtChọn phạm viPhạm vi (“a1: a3”). Chọn
Phạm vi (Phạm vi (“a1”), Phạm vi (“a3”)). Chọn
Phạm vi (Ô (1, 1), Ô (3, 1)). ChọnThay đổi kích thướcPhạm vi (“B3”). Thay đổi kích thước (2, 2). ChọnBù lạiPhạm vi (“B3”). Chênh lệch (2, 2). ChọnSao chépPhạm vi (“A1: B3”). Sao chép phạm vi (“D1”)CắtPhạm vi (“A1: B3”). Phạm vi cắt (“D1”)Xóa bỏPhạm vi (“A1: B3”). Xóa
Phạm vi (“A1: B3”). Xóa shift: = xlShiftToLeftSạchPhạm vi (“A1: A3”). Rõ ràng
Phạm vi (“A1: A3”). ClearContents
Phạm vi (“A1: A3”). ClearFormatĐếmPhạm vi (“A1: A3”). ĐếmĐặt thành BiếnDim rng as Range
Đặt rng = Range (“A1”)Hợp nhất / Hủy hợp nhấtPhạm vi (“A1: A3”). Hợp nhất
Phạm vi (“A1: A3”). UnMergeVòng qua Cellls

Làm mờ ô dưới dạng phạm vi

Đối với mỗi ô trong phạm vi (“A1: C3”)
MsgBox cell.Value
Ô tiếp theo

Quay lại Lên trên

Hàng

Sự miêu tảMã VBAHoạt độngHàng (1). Kích hoạt
Hàng (“1: 1”). Kích hoạt
Phạm vi (“a1”). EntireRow.ActivateChiều cao chiều rộngPhạm vi (“A1”). EntireRow.RowHeight = 30Xóa bỏPhạm vi (“A1”). EntireRow.DeleteĐếmPhạm vi (“A1”). Hàng.CountChènPhạm vi (“A1”). EntireRow.InsertCuối cùngmờ lRow miễn là
lRow = Cells (Rows.Count, 1) .End (xlUp) .RowSao chépPhạm vi (“1: 1”). Sao chép phạm vi (“5: 5”)ChènPhạm vi (“1: 1”). Sao chép
Phạm vi (“5: 5”). Chèn

Quay lại Lên trên

Cột

Sự miêu tảMã VBAHoạt độngCác cột (1). Kích hoạt
Các cột (“a: a”). Kích hoạt
Phạm vi (“a1”). EntireColumn.ActivateChiều cao chiều rộngPhạm vi (“A1”). EntireColumn.ColumnWidth = 30Xóa bỏPhạm vi (“A1”). EntireColumn.DeleteĐếmPhạm vi (“A1”). Cột. Số lượngChènPhạm vi (“A1”). EntireColumn.InsertCuối cùngmờ lCol càng lâu
lCol = Cells (1, Columns.Count) .End (xlToLeft) .ColumnSao chépPhạm vi (“A: A”). Phạm vi sao chép (“E: E”)ChènPhạm vi (“A: A”). Sao chép
Phạm vi (“E: E”). Chèn

Quay lại Lên trên

Bạn mệt mỏi với việc tìm kiếm ví dụ về mã VBA? Hãy thử AutoMacro!

Sách bài tập

Sự miêu tảMã VBAHoạt độngWorkbooks (“Book1”). Kích hoạtKích hoạt được mở lần đầu tiênWorkbooks (1). Kích hoạtKích hoạt được mở lần cuốiWorkbooks (Workbooks.Count). Kích hoạtNhận ActivateWorkbookMsgBox ActiveWorkbook.NameNhận ThisWorkbook (chứa VBA Code)MsgBox ThisWorkbook.NameThêm vàoWorkbooks.AddThêm vào biếnDim wb As Workbook
Đặt wb = Workbooks.AddMở raWorkbooks.Open (“C: \ example.xlsm”)Mở cho biếnDim wb As Workbook
Đặt wb = Workbooks.Open (“C: \ example.xlsm”)GầnWorkbooks (“Book1”). Đóng SaveChanges: = False
Workbooks (“Book1”). Đóng SaveChanges: = TrueCứuSách bài tập (“Book1”). LưuLưu thànhWorkbooks (“Book1”). SaveAs strFileNameBảo vệ / Bỏ bảo vệWorkbooks (1). Bảo vệ “mật khẩu”
Workbooks (1). Không bảo vệ “mật khẩu”Đặt thành BiếnLàm mờ wb dưới dạng Sổ làm việc
Đặt wb = Workbooks (“Book1”)Vòng lặp qua tất cả sổ làm việc trong sổ làm việc

Dim wb As Workbook

Đối với mỗi wb trong sổ làm việc
MsgBox wb.Name
Tuần tiếp theo

Kiểm tra sự tồn tạiIf Dir (“C: \ Book1.xlsx”) = “” Thì
MsgBox “Tệp không tồn tại.”
EndIfSao chép đã đóngFileCopy “C: \ file1.xlsx”, ”C: \ file2.xlsx”

Quay lại Lên trên

Cài đặt

Sự miêu tảMã VBACập nhật màn hìnhApplication.ScreenUpdating = Sai
Application.ScreenUpdating = TrueHiển thị cảnh báoApplication.DisplayAlerts = False
Application.DisplayAlerts = TrueSự kiệnApplication.EnableEvents = Sai
Application.EnableEvents = TrueBật khóa hủyApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptSo sánh văn bản - Bỏ qua trường hợpTùy chọn So sánh Văn bảnYêu cầu khai báo biếnTùy chọn rõ ràngTính toán tự độngApplication.Calculation = xlManual
Application.Calculation = xlAutomaticKiểm tra lỗi nềnApplication.ErrorCheckingOptions.BackgroundChecking = Sai
Application.ErrorCheckingOptions.BackgroundChecking = TrueHiển thị Thanh công thứcApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TruePanes đóng băngActiveWindow.FreezePanes = Sai
ActiveWindow.FreezePanes = TrueChế độ xem toàn màn hìnhApplication.DisplayFullScreen = Sai
Application.DisplayFullScreen = TrueXem trước ngắt trangActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewHiển thị Thanh cuộnVới ActiveWindow
.DisplayHorizontalScrollBar = Sai
.DisplayVerticalScrollBar = Sai
End WithWith ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Kết thúc vớiThanh trạng thái hiển thịApplication.DisplayStatusBar = Sai
Application.DisplayStatusBar = TrueNội dung thanh trạng tháiApplication.StatusBar = “Tôi đang làm việc ngay bây giờ !!!”
Application.StatusBar = SaiHiển thị các tab sổ làm việcActiveWindow.DisplayWorkbookTabs = Sai
ActiveWindow.DisplayWorkbookTabs = TrueTên tài khoảnApplication.UserName = “AutomateExcel.com”Chú thích ứng dụngApplication.Caption = “Mô hình AutomateExcel”PhóngActiveWindow.Zoom = 80

Quay lại Lên trên

Lỗi

Sự miêu tảMã VBALỗi trên - Mã dừng và lỗi hiển thịOn Error Goto 0On Error - Bỏ qua lỗi và tiếp tục chạyKhi có lỗi Tiếp tục tiếp theoKhi bị lỗi - Chuyển đến một dòng mã [Nhãn]On Error Goto [Nhãn]Lỗi xóa (Đặt lại)Về lỗi GoTo -1Hiển thị số lỗiMsgBox Err.NumberHiển thị Mô tả lỗiMsgBox Err.DescriptionHàm tự tạo lỗiErr.Raise

Quay lại Lên trên

Các tập tin

Sự miêu tảMã VBASao chép tệpFileCopy “C: \ test \ test_old.xlsx”, “C: \ test \ test_new.xlsx”Xóa tài liệuGiết “C: \ test \ example.xlsx”Tạo thư mụcMkDir “C: \ test \”Xóa tất cả các tệp khỏi thư mụcGiết “C: \ test \” & “*. *”Xóa thư mụcGiết “C: \ test \” & “*. *”
RmDir “C: \ test \”Thư mục hiện tạistrPath = CurDir ()Đường dẫn ThisWorkbookstrPath = ThisWorkbook.PathLặp qua tất cả các tệp trong thư mục

strFile = Dir (“C: \ test” & “\ *”)

Do While Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Vòng

Quay lại Lên trên

Sản phẩm tuyệt vời. AutoMacro không chỉ viết mã của bạn, nó dạy khi bạn tiếp tục! "- Tony, Vương quốc Anh

Tìm hiểu thêm

Đọc hơn 900 bài đánh giá của chúng tôi

Mảng

Sự miêu tảMã VBATạo raDim arr (1 đến 3) làm biến thể
arr (1) = “một”
arr (2) = “hai”
arr (3) = “ba”Tạo từ ExcelDim arr (1 đến 3) làm biến thể
Làm mờ ô dưới dạng phạm vi, tôi là số nguyên
i = LBound (arr)
Đối với mỗi ô trong phạm vi (“A1: A3”)
i = i + 1
arr (i) = cell.value
Ô tiếp theoĐọc tất cả các mụcDim tôi as Long
Đối với i = LBound (arr) Đến UBound (arr)
MsgBox arr (i)
Tiếp theo tôiTẩy xóaXóa arrMảng thành chuỗiDim sName As String
sName = Tham gia (arr, “:”)Tăng kích thướcReDim Bảo tồn arr (0 đến 100)Đặt giá trịarr (1) = 22

Quay lại Lên trên

Lập trình VBA | Code Generator làm việc cho bạn!

Bộ sưu tập

Sự miêu tảMã VBATạo raDim coll As New Collection
coll. Thêm “một”
coll. Thêm “hai”Tạo từ ExcelDim coll As New Collection
Làm mờ ô dưới dạng phạm vi
Đối với mỗi ô trong phạm vi (“A1: A2”)
coll.Add cell.value
Ô tiếp theoThêm mặt hàngcoll. Thêm "Giá trị"Thêm mặt hàng trướccoll. Thêm “Giá trị”, Trước: = 1Thêm mặt hàng saucoll. Thêm “Giá trị”, Sau: = 1Đọc mụcMsgBox coll (1)Đếm mụccoll.CountĐọc tất cả các mụcLàm mờ mục dưới dạng biến thể
Đối với từng mặt hàng trong coll
Mục MsgBox
Mục tiếp theoLoại bỏ mụccoll.Remove (1)Xóa tất cả các mụcĐặt coll = Bộ sưu tập mới

Quay lại Lên trên

Từ điển

Sự miêu tảMã VBATham chiếu bắt buộcCông cụ> Tài liệu tham khảo> Microsoft Scripting RuntimeTạo raDim dict làm kịch bản mới.
dict. Thêm “”
dict. Thêm “”Tạo từ ExcelDim dict làm kịch bản mới.
Làm mờ ô dưới dạng phạm vi
Phím làm mờ dưới dạng số nguyên
Đối với mỗi ô trong phạm vi (“A1: A10”)
key = key + 1
dict.Add key, cell.value
Ô tiếp theoThêm mặt hàngdict. Thêm "Khóa", "Giá trị"Thay đổi giá trịdict (“Key”) = “Giá trị”Nhận giá trịMsgBox dict (“Khóa”)Kiểm tra giá trịIf dict.Exists (“Key”) Sau đó
MsgBox “Tồn tại”
Kết thúc nếuLoại bỏ mụcdict.Remove (“Chìa khóa”)Xóa tất cả các mụcdict.RemoveAllVòng qua các mụcPhím mờ làm biến thể
Đối với mỗi phím trong dict.Keys
Phím MsgBox, dict (phím)
Chìa khóa tiếp theoĐếm mụcdict.CountPhân biệt chữ hoa chữ thườngdict.CompareMode = vbBinaryCompareLàm cho chìa khóa không phân biệt chữ hoa chữ thườngdict.CompareMode = vbTextCompare

Quay lại Lên trên

AutoMacro - Phần bổ trợ VBA tối ưu

AutoMacro: VBA Add-in với hàng trăm ví dụ mã VBA sẵn sàng sử dụng và nhiều hơn nữa!

Tìm hiểu thêm