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ả.
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.
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.
Cái chỗ tôi tô đỏ là bạn nói trên quan điểm một thành viên hay là lời cảnh báo của Ban Quản Trị?
Tác giả chỉ cần một cái "công tắc tự động", không có quá cao siêu hoặc quá vĩ mô đến nổi viết một phần mềm như anh tưởng tượng, nếu họ có khả năng đó thì chẳng bao giờ hỏi những thứ bình thường như thế. Vậy cho nên tôi nghĩ là thành viên, người ta nhờ giúp đỡ vấn đề gì, nếu mình có lòng thì trả lời những vấn đề đó thôi, cho nên tôi nói như dưới đây là vậy mà không có mục đích gì khác, nếu tác giả muốn thì họ tự hỏi thêm, và nếu mình muốn nâng cấp hoặc có giải pháp tốt hơn những bài trả lời của người khác thì làm như ongke0711 ở bài #7 hoặc dangvandang ở bài #9 và HeSanbi ở bài #11.
Với quyền hạn của một MOD như tôi, tôi chỉ thực hiện những việc dưới đây;
