Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Tiêu đề: [Hỏi] Cách gán phím tắt trên bàn phím [In trang]

Tác giả: demdamsay Thời gian: 13/12/2017 08:02
Tiêu đề: [Hỏi] Cách gán phím tắt trên bàn phím
Nhờ mọi người giúp đỡ tôi vấn đề sau:
- Tôi xin được mạn phép gửi lại file đã tải trên diễn đàn của mình để làm mẫu.
- Ở đây. Tôi muốn gán nút bấm bàn phím trái và phải (Nút bàn phím mũi tên trái và mũi tên phải) vào 2 Code Tinh lai KL và Dinh dang. (2 Code này có sẵn trong file)
Xin chân thành cảm ơn ./.

Tinh Dien Giai Khoi Luong.xls

58 KB, Lượt tải về: 568

Tác giả: tranhoe Thời gian: 13/12/2017 09:59
Code ở file trên là gán vào nút bấm (CommandButon).
Để có thể gán phím tắt thay cho nút bấm thì em soạn lại code và code này phải đặt trong module chứ không đặt trong sheets
Cách làm:
- Tạo mới 2 code: Sub DinhDang và Sub TinhLaiKhoiLuong trong module
- Trong ThisWorkbook thêm vào code sau:

[Visual Basic] 纯文本查看 复制代码

Private Sub Workbook_Open()

  Application.OnKey "{RIGHT}", "DinhDang"

  Application.OnKey "{LEFT}", "TinhLaiKhoiLuong"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Application.OnKey "{RIGHT}", ""

  Application.OnKey "{LEFT}", ""

End Sub

- Lưu file.
- Đóng file và mở lại xem thành quả

Tác giả: demdamsay Thời gian: 13/12/2017 12:19

tranhoe gửi lúc 13/12/2017 09:59
Code ở file trên là gán vào nút bấm (CommandButon).
Để có thể gán phím tắt thay cho n ...

Dạ vâng. Thao tác đã thành công.
Cháu cảm ơn Chú rất nhiều.
Chúc chú sức khỏe ./.

Tác giả: demdamsay Thời gian: 13/12/2017 14:12

tranhoe gửi lúc 13/12/2017 09:59
Code ở file trên là gán vào nút bấm (CommandButon).
Để có thể gán phím tắt thay cho n ...

Cháu Xin hỏi lại Chú là:
- Với cách làm như trên. Thì ở bất kỳ Sheet nào. Khi ta dùng phím mũi tên trái và phải. Nó đều thực hiện lệnh.
- Mong muốn: Bây giờ, Ta ấn định, chỉ cho phép thực hiện lệnh ở Sheet chỉ định sẵn (Cụ thể là Sheet: Khoi Luong). Thì có được không và ta phải làm thế nào.
Nhờ Chú và mọi người giúp đỡ ./.

Tác giả: tranhoe Thời gian: 13/12/2017 23:24

demdamsay gửi lúc 13/12/2017 14:12
Cháu Xin hỏi lại Chú là:
- Với cách làm như trên. Thì ở bất kỳ Sheet nào. Khi ta d ...

Thực sự thì anh không có thời gian, chỉ trả lời theo nguyên lý vận hành. Trong 4rum còn nhiều TV biết và rành hơn nữa.
Tóm lại: anh chỉ nói cái "nguyên lý", em cứ vọc sẽ tìm ra, kg phải anh dấu đâu.
Ngay như cái "nút qua trái", "nút qua phải" thì anh cũng nhờ ông GG trợ giúp thôi.
Vấn đề ở đây: em cứ đưa vào thủ tục Worksheet_SelectionChange chẳng hạn (nếu thao tác trên sheets này thì thực hiện thế này ....) hoặc Worksheet_Activate, Worksheet_Deactivate ...
A cũng tự học, chỉ nắm nguyên lý thôi; tự làm sẽ thấm sâu hơn.

Tác giả: demdamsay Thời gian: 14/12/2017 07:36

tranhoe gửi lúc 13/12/2017 23:24
Thực sự thì anh không có thời gian, chỉ trả lời theo nguyên lý vận hành. Trong 4rum c ...

Vâng. Dù sao thì cháu vẫn Cảm ơn Chú nhiều.
Để cháu vọc thêm xem có ra ngô ra khoai gì không.

Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/)