Tạo phím tắt để thiết lập vùng in (1 người xem)

[NH_DK]

Em muốn tạo một thủ tục thiết lập trang in (Set Print Area) trong Excel. Cụ thể là: Khi bôi đen vùng cần chọn in và chỉ cần chọn phín tắt để thiết lập là OK. Từ sáng đến giờ cứ thu marco để xem và xử lý nhưng vẫn chưa cho kết quả theo ý muốn. Nhờ các anh chị chỉ dùm cho em!
Chân thành cám ơn!

 

[viehoai]

Em muốn tạo một thủ tục thiết lập trang in (Set Print Area) trong Excel. Cụ thể là: Khi bôi đen vùng cần chọn in và chỉ cần chọn phín tắt để thiết lập là OK. Từ sáng đến giờ cứ thu marco để xem và xử lý nhưng vẫn chưa cho kết quả theo ý muốn. Nhờ các anh chị chỉ dùm cho em!
Chân thành cám ơn!

Bôi đen vùng chọn rồi nhấn Alt+F+T+S

 

[NH_DK]

Bôi đen vùng chọn rồi nhấn Alt+F+T+S

Cám ơn huynh nhiều! Nhưng ý em là: Khi bôi đen thì mình dùng thủ tục có gắn phím tắt (ví dụ như Ctrl + Shift + Phím bất kỳ nữa). Làm như vậy sẽ nhanh hơn!?

 

[viehoai]

Cám ơn huynh nhiều! Nhưng ý em là: Khi bôi đen thì mình dùng thủ tục có gắn phím tắt (ví dụ như Ctrl + Shift + Phím bất kỳ nữa). Làm như vậy sẽ nhanh hơn!?

Em đừng phức tạp hóa vấn đề "Ctrl + Shift + Phím bất kỳ nữa" chẳng khác gì Alt+F+T+S ?
Nếu dùng code thì:

Sub Auto_open()
Application.OnKey "^{m}", "Thutuccuaban"
End Sub

 

[NH_DK]

Em đừng phức tạp hóa vấn đề "Ctrl + Shift + Phím bất kỳ nữa" chẳng khác gì Alt+F+T+S ?
Nếu dùng code thì:

Sub Auto_open()
Application.OnKey "^{m}", "Thutuccuaban"
End Sub

OK, anh! Cái khó của em là chưa thể thiết lập tuỳ biến được vùng chọn. Ý em thiết lập 1 thủ tục mà dù bôi đen bất kỳ một vùng nào của sheet đó (chỉ 1 vùng) và dùng phím tắt set vùng in cho tiện.
Lưu ý: Bài viết nhằm tìm hiểu thêm tính năng thui ah!

 

[vu_tuan_manh_linh]

OK, anh! Cái khó của em là chưa thể thiết lập tuỳ biến được vùng chọn. Ý em thiết lập 1 thủ tục mà dù bôi đen bất kỳ một vùng nào của sheet đó (chỉ 1 vùng) và dùng phím tắt set vùng in cho tiện.
Lưu ý: Bài viết nhằm tìm hiểu thêm tính năng thui ah!

Vậy thì làm một cái Add-Ins với code sau:

 Sub Pr_Area()   
ActiveSheet.PageSetup.PrintArea = Selection.Address
End Sub

Sau đó gán phím tắt cho nó thôi!