iloveit
Thành viên thường trực
- Tham gia
- 2/3/13
- Bài viết
- 212
- Được thích
- 52
- Giới tính
- Nam
- Nghề nghiệp
- Tự do
Tôi có sưu tầm một đoạn code để chạy đồng hồ tại ô chỉ định như sau
Tại module:
Tại ThisWorkbook :
Private Sub Workbook_Open()
Ontimer
End Sub
Nhưng khi chạy thì bị lỗi giật màn hình hơi khó chịu. Nhờ anh, chị và các bạn sửa giúp.
Tại module:
Private Const Mycompany = " www.vfs.com.vn"
-----------------------------------------------------
Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub
-----------------------------------------------------
Private Sub ProTimer()
Application.Caption = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany
Sheet1.Range("A1") = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany
-----------------------------------------------------
Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub
-----------------------------------------------------
Private Sub ProTimer()
Application.Caption = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany
Sheet1.Range("A1") = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany
Ontimer
End Sub
Tại ThisWorkbook :
Private Sub Workbook_Open()
Ontimer
End Sub
Nhưng khi chạy thì bị lỗi giật màn hình hơi khó chịu. Nhờ anh, chị và các bạn sửa giúp.
Lần chỉnh sửa cuối:
