Gán phím enter vào để chạy 1 macro

qwertyuiopasdfghjkl · 5/7/14

Private Sub WorkSheet_Change(byVal Target as Range)
If Not Intersect(Target,[A1]) Is Nothing Then
'Code here
End If
End Sub

Đoạn code trên là chỉ khi nào thay đổi dữ liệu tại ô A1 hoặc nhập liệu thì nhấn Enter code mới chạy, còn mình muốn nếu điểm chọn là ô A1 mà mình chỉ cần nhấn enter là chạy code (không có sự thay đổi dữ liệu nào tại ô mình chọn). Ai rành VBA giúp mình với đang cần gấp

Quang_Hải · 5/7/14

qwertyuiopasdfghjkl đã viết:
Private Sub WorkSheet_Change(byVal Target as Range)
If Not Intersect(Target,[A1]) Is Nothing Then
'Code here
End If
End Sub

Đoạn code trên là chỉ khi nào thay đổi dữ liệu tại ô A1 hoặc nhập liệu thì nhấn Enter code mới chạy, còn mình muốn nếu điểm chọn là ô A1 mà mình chỉ cần nhấn enter là chạy code (không có sự thay đổi dữ liệu nào tại ô mình chọn). Ai rành VBA giúp mình với đang cần gấp

Tạo 1 macro có tên là "abc" trong 1 module
Trong sheet cho code này vào. Chú ý code chỉ có tác dụng khi nhấn phím ENTER trong bộ phím số bên trái

PHP:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
   Application.OnKey "{ENTER}", "abc"
Else
   Application.OnKey "{ENTER}"
End If
End Sub

Ngoai Thanh · 5/7/14

qwertyuiopasdfghjkl đã viết:
Private Sub WorkSheet_Change(byVal Target as Range)
If Not Intersect(Target,[A1]) Is Nothing Then
'Code here
End If
End Sub

Đoạn code trên là chỉ khi nào thay đổi dữ liệu tại ô A1 hoặc nhập liệu thì nhấn Enter code mới chạy, còn mình muốn nếu điểm chọn là ô A1 mà mình chỉ cần nhấn enter là chạy code (không có sự thay đổi dữ liệu nào tại ô mình chọn). Ai rành VBA giúp mình với đang cần gấp

Bạn thử sửa code như sau xem :

Private Sub WorkSheet_selectionChange(byVal Target as Range)
If Not Intersect(Target,[A2]) Is Nothing Then
'Code here
End If
End Sub

chuot0106 · 5/7/14

Ngoai Thanh đã viết:
Bạn thử sửa code như sau xem :

Private Sub WorkSheet_selectionChange(byVal Target as Range)
If Not Intersect(Target,[A2]) Is Nothing Then
'Code here
End If
End Sub

Có thể như vầy không Ngoai Thanh nhỉ?

Private Sub WorkSheet_selectionChange(byVal Target as Range)
If Target.address="$A$2" Then
'Code here
End If

Ngoai Thanh · 5/7/14

chuot0106 đã viết:
Có thể như vầy không Ngoai Thanh nhỉ?

Theo mình thì tác dụng như nhau với trường hợp này vì thực ra là ta lợi dụng tính chất của phím entrer là xuống dưới 1 ô tức là chọn ô À2 bằng phím Enter từ A1.

SA_DQ · 5/7/14

Mình thì thấy rằng xài fím {ENTER} để chạy macro thì hơn lãng fí!

Làm như vậy fím {ENTER} dễ bị hư đấy!

Quang_Hải · 5/7/14

SA_DQ đã viết:
Mình thì thấy rằng xài fím {ENTER} để chạy macro thì hơn lãng fí!

Làm như vậy fím {ENTER} dễ bị hư đấy!

Đang buồn đời, nên ôn lại cái OnKey mà

Ngoai Thanh · 5/7/14

SA_DQ đã viết:
Mình thì thấy rằng xài fím {ENTER} để chạy macro thì hơn lãng fí!

Làm như vậy fím {ENTER} dễ bị hư đấy!

Thực ra bạn ấy nhờ giúp thì làm theo yêu cầu thôi mà thày . Nhà em một lần giúp một bạn đưa máy xuống tàu bằng cái phím này ( lúc chưa hiểu thì thấy kì quá ) . Sau bạn ấy phân bua rằng do sóng lớn nên việc dùng chuột rất khó và thiếu chính xác . Nghĩ lại , chính mình không hiểu lại cho người ta là kỳ .

SA_DQ · 6/7/14

Ý là fím {ENTER} bị xài quá nhiều rồi;
Người Việt ta ít xài các fím {F}, {J}, {W} & {Z}; Nên chăng chú trọng gán cho các fím này!

Ông bà mình nói xấu đều còn hơn tốt lõi mà!

Chúc Ngày cuối tuần vui vẻ!

Ngoai Thanh · 6/7/14

HYen17 đã viết:
Ý là fím {ENTER} bị xài quá nhiều rồi;
Người Việt ta ít xài các fím {F}, {J}, {W} & {Z}; Nên chăng chú trọng gán cho các fím này!

Ông bà mình nói xấu đều còn hơn tốt lõi mà!

Chúc Ngày cuối tuần vui vẻ!

Chắc là do thói quen thôi mà thày ! cũng như hút thuốc lá , biết hại nhưng vẫn hút, mà còn thấy hay nữa .

qwertyuiopasdfghjkl · 6/7/14

quanghai1969 đã viết:
Tạo 1 macro có tên là "abc" trong 1 module
Trong sheet cho code này vào. Chú ý code chỉ có tác dụng khi nhấn phím ENTER trong bộ phím số bên trái

PHP:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Application.OnKey "{ENTER}", "abc" Else Application.OnKey "{ENTER}" End If End Sub

Ok mình làm được rồi rất chân thành cảm ơn bạn. Cho mình thêm 1 câu này nữa. Mình muốn cứ 5 phút Excel tự động lưu đè 1 lần ( giống như nhấn Ctrl + S ) lưu ý là lưu đè chứ không phải vào Tools / save / save autorecover gõ số 5 vào.

qwertyuiopasdfghjkl · 6/7/14

ok mình làm được rồi cảm ơn bạn nhiều

Quang_Hải · 6/7/14

qwertyuiopasdfghjkl đã viết:
Ok mình làm được rồi rất chân thành cảm ơn bạn. Cho mình thêm 1 câu này nữa. Mình muốn cứ 5 phút Excel tự động lưu đè 1 lần ( giống như nhấn Ctrl + S ) lưu ý là lưu đè chứ không phải vào Tools / save / save autorecover gõ số 5 vào.

Xem code mẫu trong file rồi chế tác lại cho phù hợp
Muốn 5 phút lưu file thì sửa lại chỗ này: ("00:05:00")

qwertyuiopasdfghjkl · 6/7/14

Ok em cảm ơn anh. Anh ơi cái Code lúc nảy gán phím enter vào để chạy Macro em làm được rồi nhưng làm sao ghép với 1 đoạn code sau khi nhập liệu trong Combobox Cotrol nếu nhấn Enter thì điểm chọn sẽ xuống 1 ô cho trước

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$5" Then
ComboBox1.Visible = True
ComboBox1.Activate
Else
If ComboBox1.Visible = True Then
ComboBox1.Visible = False
End If
End If
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Range("E6").Select
End Sub

E5 : dia chi cua Combobox
E6 : dia chi sau khi nhấn enter thì điểm chọn là E6

Em có gửi File Excel anh làm giúp em . Xin cảm ơn anh nhiều.

ndu96081631 · 6/7/14

qwertyuiopasdfghjkl đã viết:
Cho mình thêm 1 câu này nữa. Mình muốn cứ 5 phút Excel tự động lưu đè 1 lần ( giống như nhấn Ctrl + S ) lưu ý là lưu đè chứ không phải vào Tools / save / save autorecover gõ số 5 vào.

Câu hỏi không liên quan đến chủ đề topic nhé!
Nếu bạn không có câu nào liên quan đến chủ đề GÁN PHÍM ENTER thì tôi sẽ đóng topic đấy

qwertyuiopasdfghjkl · 6/7/14

Trời ơi ai biết giúp tôi, Tôi không viết là bây giờ hỏi ở đâu nữa.
- Hôm qua tôi hỏi về làm sao nhấn Enter để thoát Combobox
- Bây giờ tôi hỏi về làm sao nhấn Entet để chạy 1 macro
Anh em chỉ tôi 2 cái ở trên rồi. Giờ ghép lại không giúp thì coi như " Muối bỏ biển "
Bây giờ tôi muốn ghép 2 đoạn code này lại. làm ơn làm phước giúp tôi

SA_DQ · 7/7/14

Bạn có thể cho biết lí do vì sao bạn cứ fải chọn fím {ENTER} cho macro thân thương của bạn được không?

Trên bàn fím còn rất nhiều những fím ưa nhìn khác nữa mà (?)

Nếu bạn không nói rõ lí do thì ta nên dừng ở đây sẽ tốt hơn!

VetMini · 7/7/14

Ngoai Thanh đã viết:
Thực ra bạn ấy nhờ giúp thì làm theo yêu cầu thôi mà thày . Nhà em một lần giúp một bạn đưa máy xuống tàu bằng cái phím này ( lúc chưa hiểu thì thấy kì quá ) . Sau bạn ấy phân bua rằng do sóng lớn nên việc dùng chuột rất khó và thiếu chính xác . Nghĩ lại , chính mình không hiểu lại cho người ta là kỳ .

Tôi cũng đã từng theo dõi code người ta chạy trên tàu, trên máy bay, trực thăng rồi. Cũng chưa thấy ai đòi hỏi dùng phím {enter}.
Người ta chọn một tổ hợp thuận tiện, Ctrl + gì đó (hoặc Alt, Win). Vừa dễ dàng, vừa an toàn.
Chọn {enter} là cách chọn rắc rối nhất. Nếu bạn để ý sẽ thấy bài giải dùng ô kế tiếp để xác định, [a1] + enter -> [a2]. Nhỡ người ta dùng phím mũi tên, phím tab thì sao?

SA_DQ · 7/7/14

Bộ Luật Hình sự có điều khoản "Thấy người khác sắp nguy hại đến tính mạng mà không cảnh báo" có thể bị fáp luất xử đó nha!

Ngoai Thanh · 7/7/14

VetMini đã viết:
Tôi cũng đã từng theo dõi code người ta chạy trên tàu, trên máy bay, trực thăng rồi. Cũng chưa thấy ai đòi hỏi dùng phím {enter}.
Người ta chọn một tổ hợp thuận tiện, Ctrl + gì đó (hoặc Alt, Win). Vừa dễ dàng, vừa an toàn.
Chọn {enter} là cách chọn rắc rối nhất. Nếu bạn để ý sẽ thấy bài giải dùng ô kế tiếp để xác định, [a1] + enter -> [a2]. Nhỡ người ta dùng phím mũi tên, phím tab thì sao?

Bạn lại không xem kỹ rồi . Tôi nói " một lần giúp một bạn đưa máy xuống tàu bằng cái phím này ( lúc chưa hiểu thì thấy kì quá ) . Họ yêu cầu thì giúp , hỏi họ bảo "do sóng lớn nên việc dùng chuột rất khó và thiếu chính xác " . Còn "nhỡ" thì họ chịu chứ sao nữa .

Gán phím enter vào để chạy 1 macro

Thành viên bị đình chỉ hoạt động

Thành viên gạo cội

Cánh Diều xanh

Thành viên gắn bó

Cánh Diều xanh

/(hông là gì!

Thành viên gạo cội

Cánh Diều xanh

/(hông là gì!

Cánh Diều xanh

Thành viên bị đình chỉ hoạt động

Thành viên bị đình chỉ hoạt động

Thành viên gạo cội

File đính kèm

Thành viên bị đình chỉ hoạt động

File đính kèm

Huyền thoại GPE

Thành viên bị đình chỉ hoạt động

/(hông là gì!

Ăn cùng góc phố

/(hông là gì!

Cánh Diều xanh