Hiện form quảng cáo. (2 người xem)

[chibi]

Tôi đã tạo một form để hiện mỗi khi vào Workbook thông qua đoạn code

Option Explicit
Private Sub Workbook_Open()
Application.Visible = False
vidu.Show
Sheets("Sheet1").Activate
Application.Visible = True
End Sub

Nhưng trên form vidu phải tạo nút lệnh để đóng.
Nay muốn vidu hiện lên trong một thời gian nhất định rồi tự đóng và trả lại màn hình cho workbook.
Xin được chỉ giáo.

 

[voda]

Bạn thử thêm đoạn code sau vào form:

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:05")
vidu.Hide
End Sub

 

[chibi]

Cảm ơn VODA.