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:

• Tài liệu Macro
• Sửa lỗi code giúp mình
• Excel - Diễn Giải
• Hợp nhất nhiều File vào 1 file
• Lập báo cáo bán hàng (báo cáo theo yêu cầu Quản trị) từ data báng hàng tổng hợp
• [HELP] Tổng hợp và tính tổng dữ liệu của nhiều file vào 1 file TONG HOP
• Tự động trích lọc dữ liệu từ 1 Sheet qua nhiều sheet chỉ bằng 1 cú click chuột
• Theo dõi hồ sơ vay vốn, thế chấp, cầm cố
• 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
• Lỗi khi sử dụng macro,addin

[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