Hiện thông báo khi mở file excel (1 người xem)

[hoaism]

Chào cả nhà.
Mình có 1 file 'lich-truc-van-phong' - đây là file để quản lý và nhắc nhở nhân viên của bộ phận văn phòng trực. Mình muốn nhờ cả nhà những việc như sau:
-Mỗi lần mở file ra sẽ có 1 thông báo hiện ra đầu tiên, sau khi nhấn Ok hoặc tắt đi thì mới tiếp tục xem được.\
Ví dụ: hôm nay là ngày 24/3/2014 thì sẽ hiện: 'Nguyễn Văn G' sẽ trực văn phòng hôm nay. Chúc vui vẻ.
-Mỗi ngày sẽ 1 thông báo ứng với ngày đó
Có lẽ có người sẽ nói vấn đề quá đơn giản, chỉ cần mở file ra nhìn vào ngày là biết, sao phải cầu kỳ làm gì. Nhưng mình muốn từ file này mở rộng thêm vài chức năng tiện cho việc quản lý của mình nữa.
Cảm ơn các bạn đã quan tâm. Chúc các bạn ngày tốt lành.

 

[hoaism]

Nhà mình ơi, ai giúp với. Cảm ơn nhiều

 

[ads_ads]

Mình mới tập tành VBA xong cũng help bạn 1 cái. Có gì rườm rà mong lượng thứ nhé.

 

[leonguyenz]

-Mỗi lần mở file ra sẽ có 1 thông báo hiện ra đầu tiên, sau khi nhấn Ok hoặc tắt đi thì mới tiếp tục xem được.\
Ví dụ: hôm nay là ngày 24/3/2014 thì sẽ hiện: 'Nguyễn Văn G' sẽ trực văn phòng hôm nay. Chúc vui vẻ.
-Mỗi ngày sẽ 1 thông báo ứng với ngày đó

Tham khảo code sau xem.
Trong đó có sử dùng hàm MyUniMsgBox, tác giả Hoàng Trọng Nghĩa.
[gpecode=vb]
Private Sub Workbook_Open()
Dim eR As Long, Rng As Range, iR As Long
Dim TieuDe As String, NoiDung As String
eR = Sheet1.Range("B65535").End(xlUp).Row
Set Rng = Sheet1.Range("B4:B" & eR)
For iR = 1 To Rng.Rows.Count
If Rng(iR).Offset(, 1 + Day(Date)) = "x" Then
TieuDe = "THÔNG BÁO"
NoiDung = Rng(iR) & "." & Chr(10) & Sheet1.[AK1] & Chr(10) & Sheet1.[AK2]
MyUniMsgBox TieuDe, NoiDung 'Tac gia Ham MyUniMsgBox: Hoang Trong Nghia - giaiphapexcel.com
Exit For
End If
Next iR
End Sub
[/gpecode]
AK1: Sẽ trực văn phòng hôm nay.
AK2: Chúc vui vẻ!
Enable Marco.

 

[hoaism]

Quá tuyệt, cảm ơn leonnguyenz nhiều nha.
Nếu mình muốn ghi thêm ngày vào, ví dụ: 'Hôm nay 24/3/2014 thì sẽ hiện: 'Nguyễn Văn G' sẽ trực văn phòng hôm nay. Chúc vui vẻ.' thì mình cần thêm gì nữa vậy bạn?

 

[hoaism]

Mình mới tập tành VBA xong cũng help bạn 1 cái. Có gì rườm rà mong lượng thứ nhé.

Hay quá bạn à, tuy là có đôi chút lỗi font. Cảm ơn bạn nhiều

 

[hainampn]

ơ! chạy cái này làm sao các bác ơi... e down file của bác leonguyenz về mở lên mà sao chã thấy gì? fai làm sao hả các bác?

 

[quick87]

ơ! chạy cái này làm sao các bác ơi... e down file của bác leonguyenz về mở lên mà sao chã thấy gì? fai làm sao hả các bác?

Bạn nhập chữ "x" ở ô bất kỳ từ E4 đến E14 lưu, đóng và mở lại file thử nhé !