Tạo riêng một thanh công cụ cho riêng một bảng tính cụ thể
 Bạn đã từng tạo ra thanh công cụ riêng cho mình? Bạn có thấy rằng, thanh công cụ này luôn luôn được nạp vào Excel, và luôn hiển thị, với bất kỳ bảng tính nào, với bất kỳ người sử dụng nào? |
|
 Nhấn phải chuột vào biểu tượng Excel nhỏ bên trái menu File rồi chọn View Code Rồi, nhập vào hai đoạn code sau đây: PHP Code:
Option Explicit -------------------------------------------------------------------- Private Sub Workbook_Activate() On Error Resume Next With Application.CommandBars("MyCustomToolbar") .Enabled = True .Visible = True End With On Error GoTo 0 End Sub -------------------------------------------------------------------- Private Sub Workbook_Deactivate() On Error Resume Next Application.CommandBars("MyCustomToolbar").Enabled = False On Error GoTo 0 End Sub Bạn có thể thay thế "MyCustomToolbar" bằng cái tên mà bạn đã đặt cho thanh công cụ tự tạo của bạn. Sau đó bạn nhấn Alt+Q để trở về Excel. Để thử, bạn hãy mở thêm một bảng tính nữa, Book2.xls chẳng hạn. Bạn sẽ thấy, khi nào bạn chọn bảng tính mà có đoạn code ở trên, thì bạn mới thấy "MyCustomToolbar", còn nếu chọn Book2 (chuyển đổi qua lại giữa các bảng tính bằng Ctrl+Tab), "MyCustomToolbar" biến mất! Chọn lại bảng tính ban đầu, "MyCustomToolbar" xuất hiện lại. Vậy là thành công rồi! Được voi đòi tiên. Bây giờ, giả sử bạn muốn rằng, trong cùng một bảng tính, nhưng chỉ có Sheet1 thì mới thấy "MyCustomToolbar", còn Sheet khác thì không? Được thôi. Bạn có thể viết thêm một "Level" nữa cho đoạn code trên. Hãy bảo đảm là bạn đang chọn bảng tính có chứa code (tốt nhất là bạn đóng cái Book2 đi). Quay trở lại cửa sổ VBA, bạn hãy nhấn phải chuột vào Sheet nào mà bạn muốn thấy "MyCustomToolbar", rồi chọn View Code (hoặc nhấn đúp vào tên Sheet đó cũng được). Ở đây tôi giả sử bạn chọn Sheet1. Nhập vào hai đoạn code sau đây: PHP Code:
Option Explicit -------------------------------------------------------------------- Private Sub Worksheet_Deactivate() On Error Resume Next Application.CommandBars("MyCustomToolbar").Enabled = False On Error GoTo 0 End Sub -------------------------------------------------------------------- Private Sub Worksheet_Activate() On Error Resume Next With Application.CommandBars("MyCustomToolbar") .Enabled = True .Visible = True End With On Error GoTo 0 End Sub Rồi nhấn Alt+Q để quay lại Excel. Bây giờ, bạn hãy dùng chuột hoặc nhấn Ctrl+PgUp/Ctrl+PgDn để chọn qua lại các Sheet và xem thử cái gì xuất hiện trên màn hình. Xin đính kèm theo đây bảng tính đã có sẵn những đoạn code nói trên, cùng một "MyCustomToolbar" làm ví dụ. Cũng xin nhắc lại, chiêu này chỉ có tác dụng với những phiên bản trước Excel2007. |
Lê Kim Tường @ 20:32 15/06/2009
Số lượt xem: 2418
- Phím tắt trong Excel (13/06/09)
- Tách họ và tên trong cùng một cột trên bảng tính Excel (12/06/09)
- Đổi số ra chữ trong Excel (09/06/09)
- Bộ tiện ích sắp xếp tiếng Việt trong Excel (09/06/09)
- Đếm hoặc cộng những ô đã được định dạng có điều kiện (09/06/09)
CÁC Ý KIẾN MỚI NHẤT