Add-In:Tạo đồng hồ chạy trên excel

[Thacker]

Link die rồi bạn ơi!

 

[money_and_love96]

Có gửi được lại bất bạn ơi?

 

[Andrian]

Mình thử rồi, rất hay. Thank Anh Excel nhé.Có vài thắc mắc nhỏ, khi mình mở ra để sửa code, ví dụ như sửa cái tên MyComapy thành Tên máy mình, bỏ đi hai chữ số chỉ giây... Nhg khi đóng lại thì nó không theo như mình sửa, không biết mình fải lưu thế nào ?Mnh muốn tìm Add in dạng hẹn giờ, ví dụ như một tiếng sau thì sẽ hiện lên bảng báo " Hết giờ ! " hay một tiếng nó báo lên một lần... không biết bạn có file add in này không ?

 

[Ryley]

Trích:

Nguyên văn bởi Sói con Mình thử rồi, rất hay. Thank Anh Excel nhé. Có vài thắc mắc nhỏ, khi mình mở ra để sửa code, ví dụ như sửa cái tên MyComapy thành Tên máy mình, bỏ đi hai chữ số chỉ giây... Nhg khi đóng lại thì nó không theo như mình sửa, không biết mình fải lưu thế nào ?

Trong VBA excell ở khung bên phải bạn click đúp vào "ThisWorkbook" thì bên trái sẽ thấy rivate Sub Workbook_Open()
Ontimer
End SubNhư vậy sau khi sửa xong bạn phải chọn Save và đóng Excel lại rồi lại mở ra 1 lần nữa.
Do dạng Xla nên nó chỉ chạy 1 lần khi khởi động Excel.

Trích:

Nguyên văn bởi Sói con Mnh muốn tìm Add in dạng hẹn giờ, ví dụ như một tiếng sau thì sẽ hiện lên bảng báo " Hết giờ ! " hay một tiếng nó báo lên một lần... không biết bạn có file add in này không ?

Trong trang module bạn thêm 1 đoạn sau:Sub HetgioMessager()
MsgBox ("het gio")
End SubVà trong Workbook_Open() bạn thêm 1 dòng để bẩy Ontime như saurivate Sub Workbook_Open()
Ontimer
Application.OnTime Now + TimeValue("01:00:00"), "HetgioMessager"
End SubNhư vậy 1h sau khi mở Dongho.xla bạn sẽ nhận được thông báo.


Nếu muốn mỗi tiếng nó báo 1 lần thì bạn làm ra (tạo) vòng để nó gọi lại chính nó bằng cách sửa lại HetgioMessager như sau:Sub HetgioMessager()
MsgBox ("het gio")
Application.OnTime Now + TimeValue("01:00:00"), "HetgioMessager"
End Sub

 

[sakurahimarawa]

Mình muốn Add-In "Dongho.xla" chạy trong bảng tính Excel thì phải làm sao có bạn nào biết chỉ giùm. Thank.