Cho hỏi cách nào hủy bỏ chức năng cắt Cell của phím tắt Ctrl_x trong Excel vậy ?

[cmc_bluesky]

Mình đang làm kế toán trên Excel mà thấy phím tắt Ctrl_x bất tiện quá, mình muốn hủy bỏ chức năng cắt
của Ctrl_x trong Excel thì phải làm cách nào, bạn nào biết chỉ giúp với, mình xin cảm ơn !

 

[Bảy Dzõ]

Dạ em dùng Office 2007 thưa anh...

 

[ndu96081631]

Dạ em dùng Office 2007 thưa anh...

Vậy bạn đã thử code ở bài 17 chưa:

Sub Test()
  Application.OnKey "{ESC}", ""
End Sub

 

[Bảy Dzõ]

Vậy bạn đã thử code ở bài 17 chưa:

Sub Test()
Application.OnKey "{ESC}", ""
End Sub

Dạ em làm như sau mà nó không chịu chạy thưa anh. Mong anh thông cảm em lúa về cái vụ này:
Sub Test()
Application.OnKey "{ESC}", ""
End Sub

Sub Test1()
Application.OnKey "{-}", "PrintMyRoster"
End Sub

Sub PrintMyRoster()
curPrtArea = ActiveSheet.PageSetup.PrintArea
myPrtArea = "A14:N24"
ActiveSheet.PageSetup.PrintArea = myPrtArea
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = curPrtArea
Range("B14:C14").ClearContents
End Sub

 

[ndu96081631]

Dạ em làm như sau mà nó không chịu chạy thưa anh. Mong anh thông cảm em lúa về cái vụ này:

Tôi thử thấy bình thường mà bạn!
-----------------------------------------
List các phím tắt như hình:

-----------------------------------------
Trong code của bạn, bạn đã gán dấu - cho sub PrintMyRoster ---> Vậy, sau khi chạy sub Test1 xong, hãy bấm dấu - xem thử

 

[Bảy Dzõ]

Em đã thử các nút khác đều OK chỉ trừ nút: +, - , * , / là không làm được... Cám ơn anh rất nhiều...

 

[ndu96081631]

Em đã thử các nút khác đều OK chỉ trừ nút: +, - , * , / là không làm được... Cám ơn anh rất nhiều...

Tôi dùng Laptop, không có bàn phím số nên không test được mấy phím này... Có điều tôi gán dấu - thường (gần phím backspace) thì OK

 

[hoangdanh282vn]

Tôi dùng Laptop, không có bàn phím số nên không test được mấy phím này... Có điều tôi gán dấu - thường (gần phím backspace) thì OK

Em đã test thử thì toàn bộ phím thuộc nhóm phím số đều không gán cho phím tắt được. Vì vậy ta chỉ nhập được bên nhóm phím chữ thôi. Riêng các phím số thì không gán được.

 

[ndu96081631]

Em đã test thử thì toàn bộ phím thuộc nhóm phím số đều không gán cho phím tắt được. Vì vậy ta chỉ nhập được bên nhóm phím chữ thôi. Riêng các phím số thì không gán được.

Chưa chắc đâu nha --> Xem cái này:
http://www.giaiphapexcel.com/forum/showthread.php?3371-Cell-luôn-ở-chế-độ-Edit&p=23306#post23306
Danh thử xem (hổng có bàn phím số nên không test được)

 

[Bảy Dzõ]

Cảm ơn GPE rất nhiều... Em đã gán cho nút Numlock thì OK...

 

[hoangdanh282vn]

Chưa chắc đâu nha --> Xem cái này:
http://www.giaiphapexcel.com/forum/showthread.php?3371-Cell-luôn-ở-chế-độ-Edit&p=23306#post23306
Danh thử xem (hổng có bàn phím số nên không test được)

Cái này đúng như anh nói. Em chỉ test với phím đơn thôi. Nếu kết với phím Ctrl hay Shift hay Alt thì phải chuyển số sang mã ASCII như 0->96; 1->97..

 

[Bảy Dzõ]

Mình đã thử dùng Code cho phím + (107) và add vào... chạy tốt.. Cám ơn GPE rất nhiều

Sub Test1()
Application.OnKey "{107}", "PrintMyRoster"
End Sub

Sub PrintMyRoster()
curPrtArea = ActiveSheet.PageSetup.PrintArea
myPrtArea = "A14:N24"
ActiveSheet.PageSetup.PrintArea = myPrtArea
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = curPrtArea
Range("B14:C14").ClearContents
End Sub

 

[Bảy Dzõ]

Dùng key code: 107 thì OK còn dùng ASCII code là 43 thì không chạy... có lẽ do mìng còn yếu và kém...