Thêm khung Thời gian để chạy Code

[toandiennuoc123]

Chào các bạn !. Tôi có code này đang sử dụng cứ 2 phút thì chạy, nay muốn chỉnh sửa lại khung thời gian để chạy code. Từ Thứ hai đến Thứ sáu và từ 9h sáng đến 15h chiều, ngoài thời gian này thì code không chạy. Cảm ơn các bạn.
P/s: khung giờ các sàn Chứng khoán hoạt động.
Sub copy_paste()
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh1 = wb.Sheets(2)
sh.Range("C1:AE1").Copy Destination:=Sheets(2).[C1048576].End(xlUp)(2)
alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "copy_paste"
End Sub

 

[Quang_Hải]

Chào các bạn !. Tôi có code này đang sử dụng cứ 2 phút thì chạy, nay muốn chỉnh sửa lại khung thời gian để chạy code. Từ Thứ hai đến Thứ sáu và từ 9h sáng đến 15h chiều, ngoài thời gian này thì code không chạy. Cảm ơn các bạn.
P/s: khung giờ các sàn Chứng khoán hoạt động.
Sub copy_paste()
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh1 = wb.Sheets(2)
sh.Range("C1:AE1").Copy Destination:=Sheets(2).[C1048576].End(xlUp)(2)
alertTime = Now + TimeValue("00:02:00")
Application.OnTime alertTime, "copy_paste"
End Sub

Dùng hàm Weekday(date) để xác định hôm nay là thứ mấy, nếu lớn hơn 1(CN) và nhỏ hơn 7 (T7) thì làm gì đó...
Dùng hàm now() để xác định bây giờ là mấy giờ, nếu lớn hơn 9 giờ và nhỏ hơn 15 giờ thì làm gì đó...
Đại khái như vậy