Đặt báo thức phát âm thanh và hộp tin nhắn trong excel 2007

CHÀO! Tôi muốn đặt báo thức và hiển thị hộp thông báo khi thời gian cụ thể trong ngày xuất hiện trong sổ làm việc Excel của tôi để nhắc tôi thực hiện một số việc vào thời điểm đó. Ai đó có thể giúp tôi viết một số mã bằng vba để thực hiện việc này không. Cảm ơn rất nhiều trước


Trả lời:

Cảm ơn rất nhiều vì điều đó. Tôi sử dụng phương pháp Ontime như bạn đã đề cập ở trên. Trong dự án Workboolvba của tôi (Workbook1), tôi Chèn một mô-đun (Mô-đun1) và tôi nhập mã sau:

Cảnh báo phụ công khai()
Application.OnTime TimeValue("08:51:00 AM"), "DisplayAlarm"
Kết thúc phụ
Cảnh báo hiển thị phụ công khai()
Application.Speech.Speak ("đã đến lúc nghỉ ngơi")
MsgBox "Đã đến lúc nghỉ giải lao!"
Kết thúc phụ

Khi tôi chạy mã này trong cửa sổ vba, nó hoạt động tốt nhưng tôi không biết tại sao khi tôi lưu dự án này và tôi đợi thời gian (sự kiện thời gian) đến nhưng không có gì xảy ra. Công việc của tôi (Workbook1) cũng mở vào thời điểm đó .Có điều gì sai với mã hoặc điều gì khác không? Bạn có thể vui lòng giúp tôi không.

Bạn phải chạy mã trong SetAlarm trước 8:51 sáng. Sau đó, bạn phải để Excel chạy đến 8:51 sáng.

Trả lời:

Lưu tập tin vào nơi bạn thích, gọi nó là gì bạn thích. Lưu nó dưới dạng .txt để bắt đầu, sau đó đổi tên tiện ích mở rộng thành .vbs Nếu bạn không thể thấy tiện ích mở rộng trong Windows Explorer, hãy đi tới Công cụ > Tùy chọn thư mục > tab Xem > bỏ chọn Ẩn tiện ích mở rộng cho các loại tệp đã biết.

Tất cả những gì bạn cần làm là đảm bảo đường dẫn và tên tệp (C:\blablabla\babblebabble\filename.vbs) là chính xác khi bạn thiết lập tác vụ.

Nếu bạn lưu nó ở đâu đó (ví dụ như Tài liệu của tôi) nơi bạn có quyền chạy chương trình thì nó sẽ chạy.

Nhưng tôi đồng ý với Gordon, có nhiều cách dễ dàng hơn...

Chúc mừng
Giàu có