Đang tải... (xem toàn văn)
Giới Thiệu Tổ Hợp Phím ALT+ ` (Dấu Huyền) Vì trong Excel dường như không tồn tại tổ hợp phím nào giúp di chuyển giữa các tab, nên chúng ta sẽ lập trình mã VBA để thực hiện chức năng này Với VBA, bạn c.
Giới Thiệu Tổ Hợp Phím ALT+ ` (Dấu Huyền) Vì Excel dường khơng tồn tổ hợp phím giúp di chuyển tab, nên lập trình mã VBA để thực chức Với VBA, bạn ấn tổ hợp phím ALT+ ` ( kí hiệu dấu huyền phím TAB bàn phím) thao tác với Excel Worksheet tương tự sử dụng ALT+TAB với cửa sổ chương trình Mã đặt tên : TabBack Thêm Mã Macro Tabback Hướng dẫn bạn bước làm để thêm mã VBA vào Personal Macro file để tổ hợp phím hoạt động bạn sử dụng Excel Xem thêm: Các hàm thông dụng excel Tạo Personal Macro File Đây bước để tạo Personal Macro File Đi đến tab View Chọn mũi tên xuống Macro chọn Record Macro… Trong phần Store Macro In chọn Persial Macro Workbook Nhấn OK Ấn chọn ô trang tính Quay trở lai chọn mũi tên xuống Macro chọn Stop Recording Vậy Excel tạo Personal Macro file tự động mở bạn dùng Excel Bây copy tính “tab back” Đầu tiên, bạn cần mở Visual Basic Editor Excel Có thể mở tổ hợp phím ALT+F11 Chèn ThisWorkbook Code Trước tiên, bạn cần thêm macro kích hoạt chương trình workbook-level Personal Macro workbook Điều đảm bảo mở Excel, tổ hợp phím tắt TabBack sẵn sàng hoạt động Mở rộng XLSB cách click vào kí hiệu thêm bên cạnh file name Project Explorer (CTRL + R) Trong tệp Microsoft Excel Objects, click đúp chuột vào ThisWorkbook Dán mã VBA từ viết vào vùng coding ThisWorkbook Bạn copy mã hình chụp đây: Private Sub Workbook_Open() ‘PURPOSE: Run code when this workbook is opened ‘SOURCE: www.TheSpreadsheetGuru.com’Run the TabBack macro Call TabBack_RunEnd Sub Chèn mã Module Tiếp theo, cần thêm mã VBA vào module Đây nơi bạn cài đặt tổ hợp phím tắt thi hành lệnh di chuyển qua lại trang tính 1 Trong tệp Module, click đúp chuột vào Module tên Macro1 đổi tên thành TabBack ( dùng phím tắt F4 để cửa sổ Properties Mcaro 1) Click đúp chuột vào module TabBack cửa sổ Project Xóa mã tạp ghi lại lần đầu bạn tạo Personal Macro workbook Dán mã VBA từ viết vào vùng coding Module TabBack Bạn copy mã hình chụp đây: Dim TabTracker As New TabBack_Class Sub TabBack_Run() ‘PURPOSE: Initiate Tab tracking and shortcut key trigger ‘SOURCE: www.TheSpreadsheetGuru.com ‘Enable TabTracker class Set TabTracker.AppEvent = Application ‘Call ToggleBack macro when user keys alt + ` Application.OnKey “%`”, “ToggleBack” End Sub Sub ToggleBack() ‘PURPOSE: Go Back to Previous Worksheet ‘SOURCE: www.TheSpreadsheetGuru.com With TabTracker On Error Resume Next Workbooks(.WorkbookReference).Worksheets(.SheetReference).Activate On Error GoTo End With End Sub Chèn mã Class Module Trong phần cuối cùng, bạn cần tạo Class Module Click chuột phải vào tệp Module Đến Insert chọn Class Module Khi Class Module tạo, có vài bước cần thực sau: Trong tệp Class Modules, click chuột phải vào Class tên Class1 đổi tên thành TabBack_Class (dùng phím tắt F4để cửa sổ Properties Class1) Click đúp chuột vào TabBack cửa sổ Project Dán mã VBA từ viết vào vùng coding TabBack_Class Class Module Lưu Personal Macro file bạn Bạn copy mã hình chụp đây: Public WithEvents AppEvent As Application Public SheetReference As String Public WorkbookReference As StringPrivate Sub AppEvent_SheetDeactivate(ByVal Sh As Object) ‘PURPOSE: Store active worksheet information before leaving it ‘SOURCE: www.TheSpreadsheetGuru.comWorkbookReference = Sh.Parent.Name SheetReference = Sh.Name End Sub Private Sub AppEvent_WorkbookDeactivate(ByVal Wb As Workbook) ‘PURPOSE: Store active worksheet information before closing workbook ‘SOURCE: www.TheSpreadsheetGuru.com WorkbookReference = Wb.Name SheetReference = Wb.ActiveSheet.Name End Sub Khởi chạy Macro TabBack Bây tất mã VBA dán lưu lại, bạn khỏi Visual Basic Editor Để bắt đầu sử dụng tổ hợp phím tắt TabBack, bạn cần đơn giản khởi động lại Excel ... bạn cài đặt tổ hợp phím tắt thi hành lệnh di chuyển qua lại trang tính 1 Trong tệp Module, click đúp chuột vào Module tên Macro1 đổi tên thành TabBack ( dùng phím tắt F4 để cửa sổ Properties... Editor Excel Có thể mở tổ hợp phím ALT+F11 Chèn ThisWorkbook Code Trước tiên, bạn cần thêm macro kích hoạt chương trình workbook-level Personal Macro workbook Điều đảm bảo mở Excel, tổ hợp phím. .. TabBack Bây tất mã VBA dán lưu lại, bạn khỏi Visual Basic Editor Để bắt đầu sử dụng tổ hợp phím tắt TabBack, bạn cần đơn giản khởi động lại Excel