Re: บันทึกเวลาโดยการเขียน VBA
Posted: Fri Mar 22, 2013 5:38 pm
ถ้าต้องการให้มี auto save หลังจาก คลิก Check Box แล้ว ต้องเพิ่ม Code อย่างไรค่ะ
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
Code: Select all
Public Sub CheckBox1_Click()
ActiveSheet.Protect Password:="1"
ActiveSheet.Unprotect Password:="1"
If CheckBox1.Value = True Then
Range("D" & Selection.Row) = Now()
Else
Range("E" & Selection.Row) = Now()
End If
ActiveSheet.Protect Password:="1"
End Sub
Code: Select all
Public Sub CheckBox1_Click()
ActiveSheet.Protect Password:="1"
ActiveSheet.Unprotect Password:="1"
If CheckBox1.Value = True Then
Range("D" & Selection.Row) = Now()
Else
Range("E" & Selection.Row) = Now()
End If
ActiveSheet.Protect Password:="1"
ThisWorkbook.Save
End Sub