CẦN GIÚP ĐỠ VỀ VBA

[KHACHUY999]

Chào các Anh(Chị) em có dòng code chạy thời gian tự động & Chữ đổi màu trong excel 2013
Em chưa biết sử dụng code nào để ngừng thời gia chạy, và chỉ chạy thời gian trong 1 Sheet mình qui định & 1 dòng (range) mình chọn. Em chỉ mới bắt đàu học VBA thôi, nên còn yếu kém lắm. Nhờ các Anh(Chị) trợ giúp em code sau:

sub thoigian()
Application.Ontime Now + Timevalue("00:00:01"), "donghochay"
[A1:a3]Font.ColorIndex = 7
End Sub
sub donghochay()
Application.Ontime Now + Timevalue("00:00:01"), "thoigian"
[A1:a3]Font.ColorIndex = 7
End sub

 

[tech456]

Mình sử dụng excel2007 nên không giúp được nhiều, bạn nên tham khảo phần Help của VBA , Excel 2007 Developer Reference > Excel Object Model Reference > Application Object > Methods >Excel Developer Reference
Application.OnTime Method

Thời gian bắt đầu : Now + TimeValue("00:00:01")
Thời gian kết thúc: 10s
Chạy trên sheet nào, sửa lại tên sheet đó nhé.
Vùng do mình chọn: Rang("A1:A3")
Như code sau:
Sub thoigian()
Application.OnTime Now + TimeValue("00:00:01"), "donghochay", 10
Sheet1.Range("A1:a3").Font.ColorIndex = 7
End Sub
Sub donghochay()
Application.OnTime Now + TimeValue("00:00:01"), "thoigian", 10
Sheet1.Range("A1:a3").Font.ColorIndex = 7
End Sub

 

[hongnguyen2809]