Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm

Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm​

Đây là câu hỏi của bạn xuongrongdat ở một topic khác. Do tôi thấy có thể có nhiều người có nhu cầu tương tự nên mạo muội mở topic này để mọi người dễ tìm kiếm hơn, vả lại cũng lâu rồi không có topic nào nên mở 1 cái cho có với người ta chứ xem chùa hoài cũng khó coi.
Cách sử dụng rất đơn giản: Mở file, chỉnh sửa và lưu lại. Thông báo sẽ xuất hiện khi bạn mở máy tính (hoặc tại thời gian cụ thể được thiết lập) nếu có một ngày kỷ niệm nào đó sắp đến.
Lưu ý: Không lưu file ở thư mục có đường dẫn chứa ký tự Unicode.

Chào mọi người,
Như tiêu đề, mình đang cần "làm" cái nhắc sinh nhật nhân viên công ty mình, khoảng 300 người. Mình có file Excel đầy đủ dữ liệu về họ tên, ngày sinh toàn bộ công ty rồi. Giờ mình muốn ngoài desktop máy tính mình ngày nào cũng hiển thị 7 ngày sắp tới là đến sinh nhật của những ai. Mình có tìm trên diễn đàn GPE thì chỉ thấy những file Excel theo dõi sinh nhật ngay trên file thôi. Mình cũng đã có file dạng ấy.
Tất nhiên dữ liệu trên file Excel thì mình cập nhật thường xuyên cho những biến động nhân sự của công ty.

 

Em đã save và khởi động lại máy tính nhưng vẫn không hiện.

Nếu có cài đặt thời gian thì đúng giờ mới hiện thông báo nha bạn. Nếu lúc mở máy mà thời gian đã qua thì sẽ không có thông báo đâu.

 

Nếu có cài đặt thời gian thì đúng giờ mới hiện thông báo nha bạn. Nếu lúc mở máy mà thời gian đã qua thì sẽ không có thông báo đâu.

Em có đặt trước 30p thử luôn nhưng vẫn không hiện
Em đặt là 15:30:00 vào lúc 15:00:00 em save file và khởi động lại windown và ngồi đợi đến 15:30:00 nhưng vẫn không hiện thông báo nhắc nhở.
Còn khi e bỏ trống vị trí B2 thì khi khởi động lại windown code hoạt động tốt hiện thông báo nhắc nhở.

 

Em có đặt trước 30p thử luôn nhưng vẫn không hiện
Em đặt là 15:30:00 vào lúc 15:00:00 em save file và khởi động lại windown và ngồi đợi đến 15:30:00 nhưng vẫn không hiện thông báo nhắc nhở.
Còn khi e bỏ trống vị trí B2 thì khi khởi động lại windown code hoạt động tốt hiện thông báo nhắc nhở.

Bạn gửi file AnniversaryScheduler.vbs trên máy bạn lên tôi xem thử.

 

Bạn gửi file AnniversaryScheduler.vbs trên máy bạn lên tôi xem thử.

https://www.mediafire.com/file/lpcsbheq1cow9xt/AnniversaryScheduler.vbs/file
anh xem giúp

 

View attachment 258585
Em nhập như trên nhưng không hiện thông báo. anh xem lại giúp.

Bạn xem lại format ngày tháng. Có khi format kiểu đó khi code sang file text và vbs máy tính không hiểu

 

https://www.mediafire.com/file/lpcsbheq1cow9xt/AnniversaryScheduler.vbs/file
anh xem giúp

File này vẫn bình thường. Bạn vào Task Scheduler tìm xem thử có task Notify Anniversary như trong hình của tôi không.

 

File này vẫn bình thường. Bạn vào Task Scheduler tìm xem thử có task Notify Anniversary như trong hình của tôi không.

View attachment 258607
View attachment 258612

Máy em chỉ có thế này thôi T_T

 

Vậy là Add Task không thành công. Có lẽ là do máy bạn có thiết lập bảo vệ gì đó. Tôi cũng không rành lắm

 

Vậy là Add Task không thành công. Có lẽ là do máy bạn có thiết lập bảo vệ gì đó. Tôi cũng không rành lắm

Em sử dụng máy công ty nên có khả năng bị khóa rồi.
Có đều sao file AnniversaryScript.vbs lại hoạt động bình thường.

 

Em sử dụng máy công ty nên có khả năng bị khóa rồi.
Có đều sao file AnniversaryScript.vbs lại hoạt động bình thường.

2 file hoạt động khác nhau nha bạn. File AnniversaryScheduler.vbs sẽ đăng ký với window thời gian thực thi file AnniversaryScript.vbs, do không đăng ký được nên file AnniversaryScript.vbs không được thực thi.
Tuy nhiên, nếu bạn không đặt thời gian thì thông báo vẫn xuất hiện do file AnniversaryScript.vbs được thực thi khi khởi động window.

 

@huuthang_bd : sáng nay mở máy tính lên nó hiện lỗi này nè anh, hiện 2 thông báo cùng 1 lúc:


Em không biết là lỗi gì.

 

@huuthang_bd : sáng nay mở máy tính lên nó hiện lỗi này nè anh, hiện 2 thông báo cùng 1 lúc:
View attachment 259924

Em không biết là lỗi gì.

Script được tạo ra từ file Excel trong topic này không đến 100 dòng nên không thể nào có thông báo lỗi như vậy được. Có thể là lỗi của script khác, bạn kiểm tra lại nhé.

 

Script được tạo ra từ file Excel trong topic này không đến 100 dòng nên không thể nào có thông báo lỗi như vậy được. Có thể là lỗi của script khác, bạn kiểm tra lại nhé.

Em có nhắn tin anh 4-5 ngày rồi mà chưa thấy anh đọc. Anh kiểm tra hộp thư cá nhân nhé.

 

Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm​

Đây là câu hỏi của bạn xuongrongdat ở một topic khác. Do tôi thấy có thể có nhiều người có nhu cầu tương tự nên mạo muội mở topic này để mọi người dễ tìm kiếm hơn, vả lại cũng lâu rồi không có topic nào nên mở 1 cái cho có với người ta chứ xem chùa hoài cũng khó coi.
Cách sử dụng rất đơn giản: Mở file, chỉnh sửa và lưu lại. Thông báo sẽ xuất hiện khi bạn mở máy tính (hoặc tại thời gian cụ thể được thiết lập) nếu có một ngày kỷ niệm nào đó sắp đến.
Lưu ý: Không lưu file ở thư mục có đường dẫn chứa ký tự Unicode.

Nâng thời gian cảnh báo trước 30 ngày (thay vì 7 Ngày - rất cần cho mảng nhân sự, hợp đồng lao động) thì file không chạy. Có cần sửa Code ở đâu không Thớt?

 

@ A huuthang_bd​

Trường hợp này muốn sửa File của thành Addin nguồn lấy từ file khi mở ra thì chỉnh đoạn Code này thế nào anh chỉ giúp với ạ

Private Sub CreateSourceFile()
Dim aData As Variant, i As Long, sStr As String
sFile = GetRegistry(HKEY_SET, "lbPath_CV")
If sFile <> "" Then
    Set aData = sFile.Sheets("Schedule").Range("E8:L" & Sheets("Schedule").Cells(&H100000, 1).End(xlUp).Row).Value
 Else
    Msgbox ("File du lieu chua dc mo")
 End If

'aData = Sheet1.Range("A4:B" & Sheet1.Cells(&H100000, 1).End(xlUp).Row).Value
For i = 2 To UBound(aData, 1)
    sStr = sStr & ChrW(10) & aData(i, 1) & vbTab & Format(aData(i, 2), "dd/mm/yyyy")
Next
sStr = Mid(sStr, 2)
WriteTextFile sStr, SourceFilePath, "UTF-16"
End Sub

 

Trường hợp này muốn sửa File của thành Addin nguồn lấy từ file khi mở ra thì chỉnh đoạn Code này thế nào anh chỉ giúp với ạ

Tôi chưa hiểu ý bạn.

 

Ý em là code của anh se chỉnh thành Addin và nguồn dữ liệu đượ lấy từ 1 file chỉ định nào đó anh

 

máy mình chạy bị lỗi này sử lý sao các bạn.

Bài đã được tự động gộp: 14/1/22

Ý em là code của anh se chỉnh thành Addin và nguồn dữ liệu đượ lấy từ 1 file chỉ định nào đó anh

đã hoàn thành sản phẩm chưa bạn

 

Script được tạo ra từ file Excel trong topic này không đến 100 dòng nên không thể nào có thông báo lỗi như vậy được. Có thể là lỗi của script khác, bạn kiểm tra lại nhé.

Cho mình hỏi mình muốn thông báo trước thời gian ngày tháng năm thì sửa code lại như nào ạ. Ví dụ: công tác 1 - ngày 15/10/2023, công tác 2 - ngày 15/10/2024; mình chỉ muốn nhắc ngày 15/10/2024 thôi ạ, do file của bạn đây là nhắc ngày tháng kỷ niệm.