chỉ cho phép mở userform 1 lần trong 1 ngày (1 người xem)

[thang314]

em muốn tạo 1 userfrom để làm việc đầu ngày xuất hiện ngay khi người đầu tiên mở file. tuy nhiên em đang muốn nó chỉ xuất hiện duy nhất 1 lần trong ngày thôi. mong mọi người giúp đỡ.

 

[Kiều Mạnh]

em muốn tạo 1 userfrom để làm việc đầu ngày xuất hiện ngay khi người đầu tiên mở file. tuy nhiên em đang muốn nó chỉ xuất hiện duy nhất 1 lần trong ngày thôi. mong mọi người giúp đỡ.

Thì thử chơi kiểu vầy xem sao

Public Sub Auto_Open()
Dim Ngay As Date
Ngay = Sheet1.Range("A1").Value
If Date <> Ngay Then
    UserForm1.Show False
    Ngay = Date
    ThisWorkbook.Save
End If
End Sub

 

[VMH0307]

em muốn tạo 1 userfrom để làm việc đầu ngày xuất hiện ngay khi người đầu tiên mở file. tuy nhiên em đang muốn nó chỉ xuất hiện duy nhất 1 lần trong ngày thôi. mong mọi người giúp đỡ.

Bạn có thể lấy 1 ô, ví dụ A1 tại sheet1 chẳng hạn, để lưu thông tin ngày hệ thống, rồi dùng code sau trong sự kiện open của workbook

Private Sub Workbook_Open()
If Sheet1.Range("A1") <> Date Then UserForm1.Show
Sheet1.Range("A1") = Date
ThisWorkbook.Save
End Sub

 

[thang314]

Bạn có thể lấy 1 ô, ví dụ A1 tại sheet1 chẳng hạn, để lưu thông tin ngày hệ thống, rồi dùng code sau trong sự kiện open của workbook

Private Sub Workbook_Open()
If Sheet1.Range("A1") <> Date Then UserForm1.Show
Sheet1.Range("A1") = Date
ThisWorkbook.Save
End Sub

dữ liệu trên sheet không có thêm bớt gì. cũng định dùng
thisworkbook.BuiltinDocumentProperties("last save time")
để so sánh ngày nhưng chưa chắc chắn lắm.