viết code xong nhưng không thực thi lệnh

[sevenup024]

các bạn xin chỉ giáo
mình viết code để khi nhấn phím ENTER (phím số) thì nó sẽ chuyển sang phải một ô , nhưgn viết xong chẳng thấy nó thực hành
sub setup_onkey()
application.onkey "ENTER","[RIGHT_SUB"]
end sub
sub RIGHT_SUB()
activecell.offset(1,0).active
end sub
không biêt đoạn code của mình có sai chỗ nào không?
cả nhà có ai biết có lớp nào dạy VBA cho excel không , chỉ dùm mình với?mình đang ở HCM

View more random threads:

• xin giúp đỡ của mọi người về code VBA lọc dữ liệu có điều kiện với khối lượng lớn dữ liệu
• Tặng các bạn làm ở Ngành TNMT File theo dõi hợp đồng Đo đạc
• Tạo nút lệnh vừa khít với ô trong Excel
• Tạo một danh sách thả xuống trong cell bất kỳ
• Lỗi khi save code!!
• cao thủ excel ơi, cứu cứu
• CÁCH TẠO 1FORM ĐỂ NHẬP
• Tính lãi suất trả góp , tiền trả hàng tháng và số tháng trả dao động
• Viết code trong excel
• Căn đều dữ liệu bảng khi thay đổi số lượng các ô

[chinhdel]

Ðề: viết code xong nhưng không thực thi lệnh

Active là để khai báo trước các lệnh sau đó sẽ tác động lên đối tượng active.
Bạn phải dùng select để điều khiển việc con nháy nhảy sang ô kế bên.
Select và Active khác nhau tương tự như động từ và tính từ vậy đó.

sub RIGHT_SUB()
activecell.offset(1,0).select
end sub

[thanhlong243]

Ðề: viết code xong nhưng không thực thi lệnh

mình làm như hướng dẫn rồi mà vẫn chưa được , muontennguoi có thể viết code và gửi file lên cho mình xem tham khảo không?

[otootin]

Ðề: viết code xong nhưng không thực thi lệnh

các bạn xin chỉ giáo
mình viết code để khi nhấn phím ENTER (phím số) thì nó sẽ chuyển sang phải một ô , nhưgn viết xong chẳng thấy nó thực hành
sub setup_onkey()
application.onkey "ENTER","[RIGHT_SUB"]
end sub
sub RIGHT_SUB()
activecell.offset(1,0).active
end sub
không biêt đoạn code của mình có sai chỗ nào không?
cả nhà có ai biết có lớp nào dạy VBA cho excel không , chỉ dùm mình với?mình đang ở HCM

ActiveCell.Offset(0,1).Select

[ngotathanh]

Ðề: viết code xong nhưng không thực thi lệnh

sub setup_onkey()
application.onkey "{ENTER}","RIGHT_SUB"
end sub
sub RIGHT_SUB()
activecell.offset(0,1).select
end sub

Sau khi bạn chạy macro setup_onkey() thì onkey mới có tác dụng.

[minhhai1307]

Ðề: viết code xong nhưng không thực thi lệnh

Cái code này tôi thấy nó kỳ kỳ thế nào ấy. Thế ta cho nó vào sự kiện gì để nó tự kích hoạt đây?
Code nằm trong UserForm thì họa chăng!

[thuytrang128]

Ðề: viết code xong nhưng không thực thi lệnh

Cái code này tôi thấy nó kỳ kỳ thế nào ấy.

Thông thường người ta dùng Onkey để tạo các phím nóng. Các phím nóng tự khai báo thuờng sử dụng là F5 đến 12 hoặc các phím Ctrl + ...
Ở đây dùng phím {ENTER} như là 1 ví dụ mẫu.

Thế ta cho nó vào sự kiện gì để nó tự kích hoạt đây?
Code nằm trong UserForm thì họa chăng!

Muốn nó tự kích hoạt thì đưa nó vào macro Auto_Open(). Tuy nhiên điều đó làm nó trông giống như 1 con virus.
Tốt hơn hết là hãy để người dùng tự quyết định khi nào thì chạy. Gắn nó vào 1 cái nút nào đó trên form.

[atisovananh]

Ðề: viết code xong nhưng không thực thi lệnh

sub setup_onkey()
application.onkey "{ENTER}","RIGHT_SUB"
end sub
sub RIGHT_SUB()
activecell.offset(0,1).select
end sub

Sau khi bạn chạy macro setup_onkey() thì onkey mới có tác dụng.

mình làm như bạn nói mà vẫn khôgn được , khi mình nhấn ENTER thì nó hiện ra macro RIGHT_SUB can not be found , như vậy là sao?làm ơn chỉ mình với

[actech1]

Ðề: viết code xong nhưng không thực thi lệnh

Muốn nó tự kích hoạt thì đưa nó vào macro Auto_Open(). Tuy nhiên điều đó làm nó trông giống như 1 con virus.
Tốt hơn hết là hãy để người dùng tự quyết định khi nào thì chạy. Gắn nó vào 1 cái nút nào đó trên form.

Thì mình thấy kỳ là kỳ chổ này đây!
Thêm nữa:
- Enter mà chỉ xuống dòng hoặc dịch sang phải thì cần gì code nhỉ? (Excel Options có thể tự chỉnh đúng yêu cầu này)
- Cứ cho rằng đây chỉ là ví dụ minh họa, trên thực tế người ta làm 1 việc khác thì chẳng lẽ code chạy rồi ta không dùng được phím Enter nữa sao?
Trên Form người ta "bẫy" các phím mới có vẻ hợp lý hơn!
------------

mình làm như bạn nói mà vẫn khôgn được , khi mình nhấn ENTER thì nó hiện ra macro RIGHT_SUB can not be found , như vậy là sao?làm ơn chỉ mình với

Sao lại không được nhỉ? Bạn có cho chúng vào 1 module không vậy? Tôi thử thấy chạy tốt mà

[longcheng]

Ðề: viết code xong nhưng không thực thi lệnh

- Enter mà chỉ xuống dòng hoặc dịch sang phải thì cần gì code nhỉ? (Excel Options có thể tự chỉnh đúng yêu cầu này)
- Cứ cho rằng đây chỉ là ví dụ minh họa, trên thực tế người ta làm 1 việc khác thì chẳng lẽ code chạy rồi ta không dùng được phím Enter nữa sao?
Trên Form người ta "bẫy" các phím mới có vẻ hợp lý hơn!

Onkey {ENTER} chỉ có tác dụng cho phím Enter bên bàn phím số.
Phím Enter bên bàn phím chữ vẫn hoạt động theo Excel Option.

Việc người ta bẫy phím Enter đó để làm gì, trong tình huống nào... thì đó là chuyện riêng của mỗi người.

Để hủy bỏ Onkey, lấy lại như mặc định thì :

Sub unsetup_onkey()
Application.OnKey "{ENTER}"
End Sub