Hỏi về cách tạo xác nhận chạy macro? (1 người xem)

[keylog]

Chào anh chị em, mình là newbie đang tập tẹ sử dụng macro để cải tiến một số công việc cho nhanh hơn.

Ví dụ: Mình có ghi lại 1 số thao tác và đặt tên là macro_01
Sau đó tạo 1 nút trên thanh công cụ, bây giờ phải làm như thế nào. để khi bấm vào nút đó. Nó sẽ hiện lên thông báo là:
BẠN CÓ MUỐN CHẠY THAO TÁC ...... NÀY KHÔNG?
Kèm theo 2 nút bấm là "Yes" và "No".
- Chọn Yes: Tắt thông báo Chạy macro_01
- Chọn No: Tắt thông báo.

Mong anh chị em giúp đỡ.
Cảm ơn rất nhiều.

 

[nghiaphuc]

Chào anh chị em, mình là newbie đang tập tẹ sử dụng macro để cải tiến một số công việc cho nhanh hơn.

Ví dụ: Mình có ghi lại 1 số thao tác và đặt tên là macro_01
Sau đó tạo 1 nút trên thanh công cụ, bây giờ phải làm như thế nào. để khi bấm vào nút đó. Nó sẽ hiện lên thông báo là:
BẠN CÓ MUỐN CHẠY THAO TÁC ...... NÀY KHÔNG?
Kèm theo 2 nút bấm là "Yes" và "No".
- Chọn Yes: Tắt thông báo Chạy macro_01
- Chọn No: Tắt thông báo.

Mong anh chị em giúp đỡ.
Cảm ơn rất nhiều.

Vậy thì ở đầu Macro_01, bạn thêm một số câu lệnh để xác nhận việc có muốn chạy code hay không. Đại loại code có dạng thế này:
[GPECODE=vb]Sub Macro_01()
Dim Ans
Ans = MsgBox("Ban co muon chay code nay khong?", vbYesNo + vbQuestion, "Xac nhan")
If Ans = 7 Then Exit Sub
'Code cua ban o day!
End Sub[/GPECODE]

 

[chuot0106]

Chào anh chị em, mình là newbie đang tập tẹ sử dụng macro để cải tiến một số công việc cho nhanh hơn.

Ví dụ: Mình có ghi lại 1 số thao tác và đặt tên là macro_01
Sau đó tạo 1 nút trên thanh công cụ, bây giờ phải làm như thế nào. để khi bấm vào nút đó. Nó sẽ hiện lên thông báo là:
BẠN CÓ MUỐN CHẠY THAO TÁC ...... NÀY KHÔNG?
Kèm theo 2 nút bấm là "Yes" và "No".
- Chọn Yes: Tắt thông báo Chạy macro_01
- Chọn No: Tắt thông báo.

Mong anh chị em giúp đỡ.
Cảm ơn rất nhiều.

Sửa lại code của anh nghiaphuc cho bạn dễ hiểu.

Sub Macro_01()
If MsgBox("Ban co muon chay code nay khong?", vbYesNo + vbQuestion, "Xac nhan")=Vbno Then Exit Sub
'Code cua ban o day!
End Sub

 

[nghiaphuc]

Sửa lại code của anh nghiaphuc cho bạn dễ hiểu.

Sub Macro_01()
If MsgBox("Ban co muon chay code nay khong?", vbYesNo + vbQuestion, "Xac nhan")=Vbyes Then Exit Sub
'Code cua ban o day!
End Sub

Cái chỗ vbYes phải thay bằng vbNo mới đúng chứ nhỉ?!

 

[chuot0106]

Cái chỗ vbYes phải thay bằng vbNo mới đúng chứ nhỉ?!

Dạ, đúng vậy, cảm ơn anh!

 

[keylog]

Cảm ơn 2 anh (chị) rất nhiều.

 

[keylog]

Tiện anh chị cho em hỏi thêm ngoài cách tạo Yes/ No để xác nhận. Mình có thể tạo 1 khung text box dạng xác nhận bằng cách điền đúng mật khẩu được không ạ?

Ví dụ khi mình chạy macro_01 nó sẽ báo: "Bạn vui lòng nhập: "DONG Y" de chay thao tac này" với DONG Y là mật khẩu cho phép chạy. Nếu nhập sai thì sẽ đóng text box.

 

[VetMini]

Tiện anh chị cho em hỏi thêm ngoài cách tạo Yes/ No để xác nhận. Mình có thể tạo 1 khung text box dạng xác nhận bằng cách điền đúng mật khẩu được không ạ?

Ví dụ khi mình chạy macro_01 nó sẽ báo: "Bạn vui lòng nhập: "DONG Y" de chay thao tac này" với DONG Y là mật khẩu cho phép chạy. Nếu nhập sai thì sẽ đóng text box.

Đóng rồi thì người dùng làm sao biết thực sự code đã chạy chưa? Ví dụ thay vì nhập "DONG Y" người ta nhập hơi sai một chút "DONG I".

Đã làm tới đây thì phải thêm hộp thoại.
đồng ý: "Macro đã chạy xong"
không: "Bạn không đồng ý. Macro không chạy"