Mã Excel

Ví dụ về mã VBA Hướng dẫn chuyên sâu có Ví dụ & hướng dẫn về Macro PowerPoint VBA Sắp xếp Tìm và Tìm và Thay thế Cheat Sheet – Lệnh & Danh sách cú pháp Ví ​​dụ về Word Macro & Hướng dẫn VBA Cơ bản yes If, Else If, ​​Else (Hướng dẫn cơ bản về câu lệnh If) Giá trị Dán & DánĐặc biệtVBA – Cắt, Sao chép, Dán từ MacroVBA Save . In và ngay lập tức WindowVBA DoEventsVBA EndVBA Thoát Sub hoặc FunctionVBA khi có lỗi Thoát SubVBA Tùy chọn ExplicitVBA. Cải thiện tốc độ và các phương pháp hay nhất khácLoopsyesVBA cho vòng lặp – Lặp qua một loạt các ôLoops - Hướng dẫn cơ bản cho từng ví dụ (Tham khảo nhanh)VBA Thoát ForVBA Thoát LoopWhile Wend LoopRanges và CellsyesPhạm vi và ô - Hướng dẫn cơ bảnCông thức - Hướng dẫn cơ bảnPhạm vi liên kết và thay đổi kích thước giao nhauVBA – Tự động điền bằng MacroVBA – . Kết thúc (xlDown, xlUp, xlToRight, xlToLeft)VBA Quy trình trả về Chữ cái Cột của ÔVBA Chọn Phạm vi hoặc ÔLiên kết VBA – Nối Nhiều Phạm viVBA Wrap TextActivecell Offset VBARows & ColumnsyesChọn (và làm việc với) Toàn bộ Hàng & CộtXóa hoặc Chèn Hàng Dựa trên Giá trị ÔXóa Hàng . Đặt Trang tính Mặc định Khi Sổ làm việc MởCách Sắp xếp Tab / Trang tính với Sổ làm việc Macro VBA yesCombine Workbook Tạo Sổ làm việc Mới (Workbooks. Thêm) Kích hoạt Workbook ActiveWorkbook so với. ThisWorkbookVBA Mở / Đóng WorkbookTên Workbook (Nhận, Đặt, không có phần mở rộng)Bảo vệ Workbook (Bảo vệ bằng Mật khẩu / Không bảo vệ)Làm việc với Workbook (Đối tượng Workbook)ArraysyesArraysVBA – Ví dụ về mảngCác đối tượng từ điểnBộ sưu tậpArrayListArray của các đối tượngMảng biến thểMảng động (Reserve & Redim Preserve)Khai báo & khởi tạo String ArrayDeclare . Nâng cao – Thông báo lỗi tùy chỉnhKhông thể tìm thấy dự án hoặc thư viện – Lỗi biên dịch VBALỗi biên dịch trong mô-đun ẩn – VBAFSửa lỗi 400Sửa lỗi VBA 438 – Đối tượng không hỗ trợ thuộc tính hoặc phương thứcSửa lỗi thời gian chạy VBA 32809Sửa lỗi thời gian chạy VBA 57121VariablesyesDim VBA – Khai báo biếnVBA – . WindowStateVBA – Hiển thị (hoặc Thoát) Toàn màn hìnhVBA – Freeze PanesVBA – Ẩn Excel (Toàn bộ ứng dụng)VBA – Bật hoặc Tắt Chế độ xem trước ngắt trangVBA – Cuộn theo chiều dọc và Cuộn theo chiều ngangVBA – Thu phóng – Lựa chọn vừa vặnVBA – Phóng to và thu nhỏ bảng tính Tệp có Tệp Hệ thống đối tượng Di chuyển tệp bằng VBA . Hiển thị hoặc tải biểu mẫu khi Excel khởi độngUserForms, MsgBoxes & ControlsyesVBA – Làm cho biểu mẫu người dùng trong suốtVBA – Có Không Hộp thông báo (Msgbox)VBA InputBox – Nhận đầu vào từ người dùngTạo biểu mẫu người dùng VBANút tùy chọn Excel VBASpin nút Hộp kiểm Excel VBAVBA Hộp kiểmVBA ComboBoxVBA ListboxVBA Mở hoặc Đóng UserFormFormattingyesĐịnh dạng có điều kiệnBoldCell BordersCell Fonts . yes Xóa Tạm dừng Clipboard (Nghỉ / Dừng) và Tiếp tục MacroLưu dưới dạng (In) sang PDF Danh sách Mã ColorIndexĐịnh dạng SốCách cài đặt (hoặc Gỡ cài đặt) phần bổ trợ VBA (. xlam) cho Microsoft ExcelCách sử dụng Cấu trúc VBAXóa các giá trị trùng lặp trong Excel VBATăng tốc mã VBA của bạnVBA – Thêm hoặc xóa nhận xét ô Giải thích về tất cả các toán tửXây dựng giao diện nhập tùy chỉnhKiểm tra xem Ứng dụng Office có đang chạyHộp thoạiNhận ngày hôm nay (Ngày hiện tại)Bộ lọc bảng tổng hợpLàm mới bảng tổng hợp / Tất cả . CutCopyMode = FalseCalculate – Now, Workbook, Worksheet hoặc RangeCall / Run Sub From other SubroutineSao chép vào ClipboardTìm giá trị trong cộtGoTo a Line LabelIIF FunctionInput Statementis NothingIs OperatorLine Input StatementMultiple (Lồng nhau) If StatementsProject Password/Project codeReferenceSolverChờ & Chức năng ngủ – Tạm dừng / Trì hoãn MãWildcardsWith / . Thêm, chọn, lặp, chèn từ macro VBA ExcelWord – Mẫu (Tạo mới)Macro VBA Word – TextBox. Thêm, xóa, viết

---

Ví dụ về Macro Excel

Dưới đây, bạn sẽ tìm thấy danh sách các ví dụ macro cơ bản cho các tác vụ tự động hóa phổ biến của Excel

Sao chép và dán một hàng từ trang này sang trang khác

Macro siêu đơn giản này sẽ sao chép một hàng từ trang tính này sang trang tính khác

Sub Paste_OneRow()
'Copy and Paste Row
Sheets("sheet1").Range("1:1").Copy Sheets("sheet2").Range("1:1")

Application.CutCopyMode = False

End Sub

Gửi email

Macro hữu ích này sẽ khởi chạy Outlook, soạn thảo email và đính kèm ActiveWorkbook

Sub Send_Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "[email protected]"
        .Subject = "Test Email"
        .Body = "Message Body"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Liệt kê tất cả các Sheet trong Workbook

Macro này sẽ liệt kê tất cả các trang tính trong sổ làm việc

Sub ListSheets()
    
    Dim ws As Worksheet
    Dim x As Integer
    
    x = 1
    
    ActiveSheet.Range("A:A").Clear
    
    For Each ws In Worksheets
        ActiveSheet.Cells(x, 1) = ws.Name
        x = x + 1
    Next ws
    
End Sub

Bỏ ẩn tất cả các trang tính

Macro này sẽ hiện tất cả các trang tính

' Unhide All Worksheets
Sub UnhideAllWoksheets()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
End Sub

Ẩn tất cả các trang tính ngoại trừ hoạt động

Macro này sẽ ẩn tất cả các trang tính ngoại trừ trang tính đang hoạt động

' Hide All Sheets Except Active Sheet
Sub HideAllExceptActiveSheet()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next ws
    
End Sub

Bỏ bảo vệ tất cả các trang tính

Ví dụ macro này sẽ bỏ bảo vệ tất cả các trang tính trong sổ làm việc

' UnProtect All Worksheets
Sub UnProtectAllSheets()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Unprotect "password"
    Next ws
    
End Sub

Bảo vệ tất cả các trang tính

Macro này sẽ bảo vệ tất cả các trang tính trong sổ làm việc

' Protect All Worksheets
Sub ProtectAllSheets()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.protect "password"
    Next ws
    
End Sub

Xóa tất cả các hình dạng

Macro này sẽ xóa tất cả các hình dạng trong một trang tính

Sub DeleteAllShapes()

Dim GetShape As Shape

For Each GetShape In ActiveSheet.Shapes
  GetShape.Delete
Next

End Sub

Xóa tất cả các hàng trống trong trang tính

Macro ví dụ này sẽ xóa tất cả các hàng trống trong một trang tính

________số 8

Làm nổi bật các giá trị trùng lặp trong vùng chọn

Sử dụng macro đơn giản này để đánh dấu tất cả các giá trị trùng lặp trong vùng chọn

' Highlight Duplicate Values in Selection
Sub HighlightDuplicateValues()
    Dim myRange As Range
    Dim cell As Range
    
    Set myRange = Selection
    
    For Each cell In myRange
        If WorksheetFunction.CountIf(myRange, cell.Value) > 1 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Đánh dấu số âm

Macro này tự động hóa nhiệm vụ làm nổi bật các số âm

Sub Send_Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "[email protected]"
        .Subject = "Test Email"
        .Body = "Message Body"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

0

Làm nổi bật các hàng thay thế

Macro này rất hữu ích để làm nổi bật các hàng thay thế

Sub Send_Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "[email protected]"
        .Subject = "Test Email"
        .Body = "Message Body"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

1

Đánh dấu các ô trống trong vùng chọn

Macro cơ bản này làm nổi bật các ô trống trong vùng chọn

Sub Send_Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "[email protected]"
        .Subject = "Test Email"
        .Body = "Message Body"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

2

---

Ví dụ về Macro VBA trong Excel – Tải xuống miễn phí

Chúng tôi đã tạo một phần bổ trợ Ví dụ mã VBA (Macros) miễn phí. Phần bổ trợ chứa hơn 100 ví dụ macro sẵn sàng sử dụng, bao gồm các ví dụ macro ở trên

Trang tải xuống

---

Câu hỏi thường gặp về Macro/VBA Excel

Làm cách nào để viết mã VBA (Macro) trong Excel?

Để viết mã VBA trong Excel, hãy mở Trình chỉnh sửa VBA (ALT + F11). Nhập “Sub HelloWorld”, nhấn Enter và bạn đã tạo một Macro. HOẶC Sao chép và dán một trong các quy trình được liệt kê trên trang này vào cửa sổ mã

Excel VBA là gì?

VBA là ngôn ngữ lập trình được sử dụng để tự động hóa Excel

Làm thế nào để sử dụng VBA để tự động hóa Excel?

Bạn sử dụng VBA để tự động hóa Excel bằng cách tạo Macro. Macro là các khối mã hoàn thành các tác vụ nhất định