Trong module của Sheet1, dán sự kiện này vào:
Private Sub CheckBox1_Change()
If CheckBox1.Value Then
Application.Wait (Now + TimeSerial(0, 0, 30))
CheckBox1.Value = False
End If
End SubGiải quyết không khó, nhưng để xem tác giả nói gì.Application.Wait ngưng luôn cả Excel. Suốt 30 giây không cho làm gì cả.
Giải quyết bằng cách dùng giải pháp khác, hay vẫn dùng hàm Wait?
Vẫn dùng Wait cho đơn giản anh.
Dùng code này chắc là ổn đó bác.Application.Wait ngưng luôn cả Excel. Suốt 30 giây không cho làm gì cả.
Option Explicit
Private Sub CheckBox1_Change()
If CheckBox1.Value Then
autoOffCheckbox 10 'Don vi la giay (s)
End If
End Sub
Sub autoOffCheckbox(waitTime As Long)
Dim dtDate As Date, i As Long, strTime As String
strTime = "00:00:" & Right("0" & waitTime, 2)
dtDate = Now() + TimeValue(strTime)
For i = 1 To 1000
While Now() < dtDate
DoEvents
Wend
CheckBox1.Value = False
Exit For
Next i
End Sub
Tôi nghĩ giải pháp của bạn là OK nhất, bởi trong quá trình code chạy rất mượt so với vòng lặp sử dụng DoEvents, tác giả nên chọn code của bạn.
Private Sub CheckBox1_Click()
OnTime CheckBox1.Value
End Sub
Sub TurnOffCheckbox()
Sheet1.CheckBox1.Value = False
End Sub
Sub OnTime(schedule As Boolean)
Static t As Date
If schedule Then
t = Now + TimeSerial(0, 0, 5)
End If
On Error Resume Next
If t > 0 Then Application.OnTime t, "'" & ThisWorkbook.Name & "'!Sheet1.TurnOffCheckbox", , schedule
If Not schedule Then t = 0
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet1.OnTime False
End Sub
Private Sub Workbook_AddinUninstall()
Sheet1.OnTime False
End Sub
Mục đích để làm gì vậy nhỉ (vì yêu cầu không logic)?
Thớt chỉ có ý tưởng nhưng chưa làm được cho nên không biết là trong trường hợp bình thường, việc này khá nguy hiểm.
Mục đích của tác giả là sau khi kiểm tra gì gì đó và sau đó buộc phải bỏ check, nếu quên thì code tự động bỏ chọn thay vì thủ công, chỉ thế thôi.
Quả là VBA tạo cơ hội cho người ta lười.
Cái này gọi là "Cẩn tắc vô áy náy" thôi anh, kiểu người ta phòng ngừa lỡ quên thì nó tự động tương tác thôi.
Ngược lại, nếu đang "kiểm soát cái gì đó" (xem trích dẫn sau) mà nó tắt mất thì có thể "kiểm soát" nhầm.
Lý do tại sao phải bỏ "check" mới là quan trọng?
Kiểu như nhà bật đèn nhưng quên tắt đèn thì nó tự động tắt cho đỡ tốn điện.
Tôi cho rằng bài 14 chỉ là cảnh báo sự "nguy hiểm" (sic) chứ không phải "bàn sâu vào công việc của họ". Giúp thì giúp nhưng nếu cần cũng nên cảnh báo.
