Giúp đặt biến cho giá Trị TimeValue (2 người xem)

[congnguyen88]

Mình có dùng đoạn Code sau để File Excel tự động lưu trong thời gian chỉ định trước
Mình muốn khi thay đổi thời gian chỉ cần gõ số GIÂY vào ô Range("a1") không cần phải vào Code để điều chỉnh . Ví dụ tôi muốn cứ 2 phút lưu 1 lần thì tôi gõ vào 120 là xong

Sub File_Save()
ThisWorkbook.Save
Auto_Save
End Sub

Sub Auto_Save()
Application.OnTime Now + TimeValue("00:00:05"), "File_Save"
End Sub

Ai biết giúp mình với. Thank trước

 

[Quang_Hải]

Mình có dùng đoạn Code sau để File Excel tự động lưu trong thời gian chỉ định trước
Mình muốn khi thay đổi thời gian chỉ cần gõ số GIÂY vào ô Range("a1") không cần phải vào Code để điều chỉnh . Ví dụ tôi muốn cứ 2 phút lưu 1 lần thì tôi gõ vào 120 là xong

Sub File_Save()
ThisWorkbook.Save
Auto_Save
End Sub

Sub Auto_Save()
Application.OnTime Now + TimeValue("00:00:05"), "File_Save"
End Sub

Ai biết giúp mình với. Thank trước

Đối số của TimeValue là 1 chuỗi. Để đơn giản hóa vấn đề bạn có thể đặt giá trị tại ô A1, B1, C1. Dùng 1 biến để nối các giá trị của 3 ô này với dấu":"

Dim Val, Gio, Phut, Giay
Gio = [A1]
Phut = [B1]
Giay = [C1]
Val = Format(Gio, "00") & ":" & Format(Phut, "00") & ":" & Format(Giay, "00")