Sử dụng Popup để di chuyển đến sheet

[be_09]

Thông thường để di chuyển đến 1 sheet nào đó ta thường viết 1 đoạn code để lấy Link hoặc sử dụng 1 Control nào đó và gán cho nó 1 đoạn code các nhiệm vụ này có vẽ hơi phức tạp và tốn nhiều công sức.

Để đơn giản hơn ta chỉ cần sử dụng 1 dòng code và gán cho nó 1 phím tắt, khi nhấn phím tắt thì sẽ hiện 1 Popup với tên các sheet có trong File, ta chỉ việc chọn tên sheet thì nó sẽ di chuyển đến sheet ta cần di chuyển đến.

Code như sau:

Sub LinkCacSheet()
    'Keyboard Shortcut: Ctrl+w
    Application.CommandBars("workbook tabs").ShowPopup
End Sub

File đính kèm, khi mở File nhấn phím Ctrl+w để hiện Popup.

Lưu ý: Các bạn có thể thêm hoặc sửa tên sheet, khi nhấn phím Ctrl+w nó đều lấy tên sheet vào Popup.

 

[quocphuoc88]

Mò hoài không tìm ra. Mạo mụi hỏi chú có thể hướng dẫn cháu 'Tuyệt chiêu' trên được không ạ !

 

[huyhoang1768]

Thông thường để di chuyển đến 1 sheet nào đó ta thường viết 1 đoạn code để lấy Link hoặc sử dụng 1 Control nào đó và gán cho nó 1 đoạn code các nhiệm vụ này có vẽ hơi phức tạp và tốn nhiều công sức.

Để đơn giản hơn ta chỉ cần sử dụng 1 dòng code và gán cho nó 1 phím tắt, khi nhấn phím tắt thì sẽ hiện 1 Popup với tên các sheet có trong File, ta chỉ việc chọn tên sheet thì nó sẽ di chuyển đến sheet ta cần di chuyển đến.

Code như sau:

Sub LinkCacSheet()
    'Keyboard Shortcut: Ctrl+w
    Application.CommandBars("workbook tabs").ShowPopup
End Sub

File đính kèm, khi mở File nhấn phím Ctrl+w để hiện Popup.

Lưu ý: Các bạn có thể thêm hoặc sửa tên sheet, khi nhấn phím Ctrl+w nó đều lấy tên sheet vào Popup.

Em Bấm cltr+w thì nó giống lệnh alt+F4 ạ không hiện đc popup

 

[ninjatcb]

Mình thấy tinh năng này thì ở excel cũng có sẵn rồi mà, chỉ cần ấn chuột phải vào các mũi tên chuyển sheet bên góc trái dưới là cũng hiện ra popup mà

 

[genius111]

trong excel em thấy có chức năng này nhưng phải kích vào chỗ mũi tên bên dưới nên không nhanh bằng của bác, code của bác ctrl w 1 cái là lên luôn

 

[be_09]

Mò hoài không tìm ra. Mạo mụi hỏi chú có thể hướng dẫn cháu 'Tuyệt chiêu' trên được không ạ !

Không biết bạn sử dụng Office nào nên không thể hướng dẫn cụ thể được.

 

[quocphuoc88]

Không biết bạn sử dụng Office nào nên không thể hướng dẫn cụ thể được.

Dạ cháu sử dụng phiên bản 2013 !

 

[be_09]

Dạ cháu sử dụng phiên bản 2013 !

Tôi sử dụng 2010, cách thực hiện như 2013, nội dung:

- Để làm hiện thẻ Developer: Vào File > Options cửa sổ Excel Options hiện ra, khung bên trái click chọn Customize Ribbon cửa sổ Customize the Ribbon hiện ra bên phải, tìm đánh dấu chọn vào Developer xong nhấn OK, bây giờ ta đã thấy thẻ Developer hiện ra trên thanh Ribbon.


- Nhấn nút Alt+F11 (để vào cửa sổ VBE), vào Insert > Module cửa sổ Module hiện ra, Copy code ở bài #1 và Paste vào Module. Nhấn nút Alt+F11 (để trở ra Excel).


- Click vào thẻ Developer, bên dưới thanh Ribbon tìm biểu tượng hình vuông có chữ Macros, click vào nó cửa sổ Macro hiện ra, trong khung Macro Name ta thấy tên Macro là LinkCacSheet (click vào tên Macro cần gán phím tắt) và click vào nút Options cửa sổ Macro Options hiện ra, bên dưới Shortcut Key ta thấy Ctrl+ và 1 cái hình vuông bên phải (gõ chữ w vào khung này) xong nhấn OK, bây giờ ta đã có 1 phím tắt là Ctrl+w như File mẫu, khi nhấn phím tắt Ctrl+w là ta đã thực thi việc chạy Macro có tên là LinkCacSheet.

 

[THANHTRUNGT]

Các bạn có thể thêm hoặc sửa tên sheet, khi nhấn phím Ctrl+w nó đều lấy tên sheet vào Popup.

Anh bổ sung code nếu khi Hide sheet vẫn hiện Popup chọn các sheet đã hide nữa thì tuyệt.

 

[kbw1]

Cái này hay đấy.
2013 có nhưng vẫn phải click chuột vào sheet.
Thanks bạn!

 

[be_09]

Anh bổ sung code nếu khi Hide sheet vẫn hiện Popup chọn các sheet đã hide nữa thì tuyệt.

Cách đơn giản nhất là làm cho tất cả các sheet ẩn hiện ra, sử dụng code sau:

Sub HienSheet()
On Error Resume Next
For Each sh In Sheets 
sh.Visible = True
Next sh
End Sub

Sau khi hoàn tất công việc thì cho nó ẩn tất cả các sheet đi, sử dụng code sau:

Sub AnSheet()
On Error Resume Next
For Each sh In Sheets 
sh.Visible = False
Next sh
End Sub

Lưu ý: Nó chỉ chừa lại sheet hiện hành.

 

[kbw1]

Bạn cho mình hỏi, sao trong office 2013 mình tạo thành addin được. Ý là tạo thành marco để sử dụng cho tất cả các file.
Sang off 2007 mình ko tạo thành marco để dùng chung được là sao nhỉ?

 

[be_09]

Bạn cho mình hỏi, sao trong office 2013 mình tạo thành addin được. Ý là tạo thành marco để sử dụng cho tất cả các file.
Sang off 2007 mình ko tạo thành marco để dùng chung được là sao nhỉ?

Trong Excel 2007 để lưu File trên thành Add-In thì bạn thực hiện như sau:

- Mở File có chứa Macro cần lưu thành Add-In, nhấn nút F12 (cửa sổ Save As hiện ra) hoặc nhấn vào nút Office Button, tiếp theo nhấn vào nút Save As cửa sổ Save As hiện ra, Click vào mũi tên sổ xuống bên phải khung Save As type, chọn Excel Add-In, xong nhấn nút Save.

 

[kbw1]

Trong Excel 2007 để lưu File trên thành Add-In thì bạn thực hiện như sau:

- Mở File có chứa Macro cần lưu thành Add-In, nhấn nút F12 (cửa sổ Save As hiện ra) hoặc nhấn vào nút Office Button, tiếp theo nhấn vào nút Save As cửa sổ Save As hiện ra, Click vào mũi tên sổ xuống bên phải khung Save As type, chọn Excel Add-In, xong nhấn nút Save.

Mình làm như bạn.
Chọn file có đuôi là .xla hoặc .xlam nhưng đều không được.
Mình không hiểu nó bị thế nào.

 

[be_09]

Mình làm như bạn.
Chọn file có đuôi là .xla hoặc .xlam nhưng đều không được.
Mình không hiểu nó bị thế nào.

Bạn cần phải cài đặt Add-In mới sử dụng được, cách thực hiện trên Excel 2007 như sau:

Để cài đặt Add-In, bạn nhấn vào nút Office Button, cửa sổ hiện ra, tiếp theo nhấn vào nút Excel Options, cửa sổ Excel Options hiện ra khung bên trái nhấn vào Add-In, khung bên phải nhấn vào nút Go, cửa sổ Add-In hiện ra, nhấn vào nút Browser cửa sổ Browser hiện ra, nhấn vào nút Computer các ổ dĩa hiện ra và tìm nơi để File cần cài đặt Add-In, Click chọn nó và nhấn nút OK.

Lưu ý: Tên Add-In hiện ra trong cửa sổ Add-In là tên File, vì vậy bạn cần đặt tên File theo đúng với chức năng của Macro cần ứng dụng.

 

[kbw1]

Bạn cần phải cài đặt Add-In mới sử dụng được, cách thực hiện trên Excel 2007 như sau:

Để cài đặt Add-In, bạn nhấn vào nút Office Button, cửa sổ hiện ra, tiếp theo nhấn vào nút Excel Options, cửa sổ Excel Options hiện ra khung bên trái nhấn vào Add-In, khung bên phải nhấn vào nút Go, cửa sổ Add-In hiện ra, nhấn vào nút Browser cửa sổ Browser hiện ra, nhấn vào nút Computer các ổ dĩa hiện ra và tìm nơi để File cần cài đặt Add-In, Click chọn nó và nhấn nút OK.

Lưu ý: Tên Add-In hiện ra trong cửa sổ Add-In là tên File, vì vậy bạn cần đặt tên File theo đúng với chức năng của Macro cần ứng dụng.

Cảm ơn bạn!
Bình thường dùng marco mình chỉ click đúp chuột là chạy được cho tất cả các file.
Mình làm như bạn bảo đã làm được. Cảm ơn bạn lần nữa!
Nhưng có 1 vấn đề mong bạn giải đáp nốt giúp mình.
Khi mình vào thẻ Developer để xem marco thì ko thấy hiện ra tên marco như mọi khi để cài đặt phím tắt.

 

[be_09]

Cảm ơn bạn!
Bình thường dùng marco mình chỉ click đúp chuột là chạy được cho tất cả các file.
Mình làm như bạn bảo đã làm được. Cảm ơn bạn lần nữa!
Nhưng có 1 vấn đề mong bạn giải đáp nốt giúp mình.
Khi mình vào thẻ Developer để xem marco thì ko thấy hiện ra tên marco như mọi khi để cài đặt phím tắt.

Phím tắt bạn phải đặt trong File Excel chứa Macro, sau đó lưu dưới dạng Add-In rồi mới cái đặt Add-In thì mới sử dụng được phím tắt.

 

[eagle12]

Code này hữu dụng quá, cám ơn bác đã chia sẻ

Cái này cho hiện ra 15 sheets, từ sheet 16 trở đi phải chọn vào More Sheets...

Có cách nó khi Ctrl+W cho hiện ra đủ tất cả các sheets đang active không bác

Thông thường để di chuyển đến 1 sheet nào đó ta thường viết 1 đoạn code để lấy Link hoặc sử dụng 1 Control nào đó và gán cho nó 1 đoạn code các nhiệm vụ này có vẽ hơi phức tạp và tốn nhiều công sức.

Để đơn giản hơn ta chỉ cần sử dụng 1 dòng code và gán cho nó 1 phím tắt, khi nhấn phím tắt thì sẽ hiện 1 Popup với tên các sheet có trong File, ta chỉ việc chọn tên sheet thì nó sẽ di chuyển đến sheet ta cần di chuyển đến.

Code như sau:

Sub LinkCacSheet()
    'Keyboard Shortcut: Ctrl+w
    Application.CommandBars("workbook tabs").ShowPopup
End Sub

File đính kèm, khi mở File nhấn phím Ctrl+w để hiện Popup.

Lưu ý: Các bạn có thể thêm hoặc sửa tên sheet, khi nhấn phím Ctrl+w nó đều lấy tên sheet vào Popup.