Gọi macro bằng Enter (1 người xem)

[jack nt]

trong bài "Chuyển đến sheet khác bằng nút Enter trên bàn phím" của bạn hoangtrong_vbnd
http://www.giaiphapexcel.com/forum/...n-đến-sheet-khác-bằng-nút-Enter-trên-bàn-phím
tui có đề xuất cách giải quyết đúng theo yêu cầu của đề bài. (nhưng chưa hay, vì còn bị lẫn với trường hợp bấm phím di chuyển xuống)

bỗng nghĩ, nếu có thể gọi macro một cách tổng quát bằng enter thì hay hơn. đây là kết quả:

tại Sheet1, trong sự kiện Worksheet_SelectionChange (không phải là Worksheet_Change vì không nhập dữ liệu) nhập vào thủ tục

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$A$1": Application.OnKey "~", "Macro1"
Case Else: Application.OnKey "~", "Macro2"
End Select
End Sub

trong Modul1 (bắt buộc phải để trong modul) là 2 macros cần gọi

Sub Macro1()
'write your codes here
MsgBox "Hello!"
End Sub

Sub Macro2()
'write your codes here
MsgBox ActiveCell.Address & ": " & "Hi ya!"
End Sub

không biết các bạn nghĩ sao, chứ tui không thấy "điên rồ" gì ở đây cả, rất tiện nữa là khác. có nhiều tình huống dùng mouse không tiện bằng keys.

 

[siwtom]

trong bài "Chuyển đến sheet khác bằng nút Enter trên bàn phím" của bạn hoangtrong_vbnd
http://www.giaiphapexcel.com/forum/...n-đến-sheet-khác-bằng-nút-Enter-trên-bàn-phím
tui có đề xuất cách giải quyết đúng theo yêu cầu của đề bài. (nhưng chưa hay, vì còn bị lẫn với trường hợp bấm phím di chuyển xuống)

bỗng nghĩ, nếu có thể gọi macro một cách tổng quát bằng enter thì hay hơn. đây là kết quả:

tại Sheet1, trong sự kiện Worksheet_SelectionChange (không phải là Worksheet_Change vì không nhập dữ liệu) nhập vào thủ tục

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$A$1": Application.OnKey "~", "Macro1"
Case Else: Application.OnKey "~", "Macro2"
End Select
End Sub

trong Modul1 (bắt buộc phải để trong modul) là 2 macros cần gọi

Sub Macro1()
'write your codes here
MsgBox "Hello!"
End Sub

Sub Macro2()
'write your codes here
MsgBox ActiveCell.Address & ": " & "Hi ya!"
End Sub

không biết các bạn nghĩ sao, chứ tui không thấy "điên rồ" gì ở đây cả, rất tiện nữa là khác. có nhiều tình huống dùng mouse không tiện bằng keys.

Chỉ có chủ chủ đề dùng từ "điên rồ" thôi bạn ạ. Nếu bạn đọc kỹ các bài thì bạn thấy không ai cho là điên rồ cả. Chuyện muốn làm một việc nào đó bằng cách dùng phím thay dùng chuột là chuyện hoàn toàn bình thường.

Mọi người chỉ khuyên là dùng phím khác, không đụng tới Enter. Thế thôi.

Còn nếu bạn vẫn muốn dùng Enter thì bạn cứ dùng. Nhưng tôi e rằng nhiều người sẽ dùng Enter đúng với chức năng của nó, còn để làm việc khác thì dùng phím khác.

"có nhiều tình huống dùng mouse không tiện bằng keys"?

Thì có ai phủ nhận đâu. Chỉ có điều thiếu gì phím mà phải dùng Enter???

Mà thôi, chuyện nhỏ. Không có ai viết gì thêm ở chủ đề "bên kia" không có nghĩa là không ai biết giải quyết. Rất có thể họ cho là trò vô bổ, hoặc cho là vấn đề không to tát tới mức phải quan tâm.
Thế thôi.

 

[jack nt]

Mà thôi, chuyện nhỏ. Không có ai viết gì thêm ở chủ đề "bên kia" không có nghĩa là không ai biết giải quyết. Rất có thể họ cho là trò vô bổ, hoặc cho là vấn đề không to tát tới mức phải quan tâm.
Thế thôi.

ô hay, đây là diễn đàn để giúp nhau mà, sao lại nói thế. bạn nào không quan tâm thì khỏi có ý kiến.

tui làm các loại trưởng phòng hơi bị nhiều nên biết khó khăn của các em nhân viên, biết dùng đến macro là tuyệt lắm. ai cũng phải bỡ ngỡ ban đầu bạn ạ. chỉ cái gì thấy không ai reply thì tui mới xía vô thôi.

p/s: tui vốn chuyên về vb từ hồi 3. đến 6., ghé qua vba từ 2006, khi làm kế toán, và hiểu ra vba và excel thật tuyệt.

 

[siwtom]

ô hay, đây là diễn đàn để giúp nhau mà, sao lại nói thế. bạn nào không quan tâm thì khỏi có ý kiến.

Cái đoạn "Không quan tâm" là tôi nói về cái chủ đề bên kia. Mà bạn tự thấy là không có ai, ngoài bạn, có ý kiến gì thêm ở chủ đề bên kia, đúng không? Tôi chỉ chỉ ra những "lý do" có thể của "sự im lặng" đó. Thế thôi.

Còn về chủ đề này tôi có ý kiến mà. Bạn đề nghị dùng Enter, tôi ý kiến là không nên đụng tới. Quan điểm của mỗi người thì có lẽ tự do trình bầy? Rồi mỗi người tự lựa chọn cho mình, không ai áp đặt ai cái gì cả.

 

[jack nt]

khi viết ứng dụng tui thường cung cấp nhiều cách thao tác khác nhau. nếu viết cho mình dùng thì dễ rồi. còn nếu không biết người dùng trình độ thế nào, ý thích ra sao thì phải làm thêm nhiều, bẫy lỗi tứ tung cả. user của tui làm trên tàu biển, lắc lư suốt ngày, không dễ dùng mouse nên phải bổ sung các loại phím tắt, nay có thêm enter nữa càng tiện hơn. mình xài từ thời sidekick nên cũng chuộng dùng phím. nhất là mấy em chuyên chơi game lúc nào cũng yêu cầu viết thêm thao tác với phím (đúng là cực nhanh)