บันทึกเวลาโดยการเขียน VBA

[Ueng999]

ถ้าต้องการให้มี auto save หลังจาก คลิก Check Box แล้ว ต้องเพิ่ม Code อย่างไรค่ะ

[Ueng999]

ต้องการ auto save หลังจาก Check Box จะต้อง เพิ่ม Code อย่างไรค่ะ

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

[snasui]

ลองบันทึก Macro เพื่อดูว่า Save แล้วได้ Code เป็นเช่นไร แล้วค่อยนำ Code มาปรับใช้ ติดตรงไหนค่อยมาถามกันต่อครับ

[Ueng999]

ลองทำแล้วได้ Code ตามด้านล่างค่ะ ช่วยแนะเพิ่มเติมค่ะ

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

[snasui]

Code ที่แนบมาไม่ทราบว่าติดขัดตรงไหนครับ

[Ueng999]

ครบตามต้องการสำหรับการบันทึกเวลาแล้ว ขอบคุณมากมากค่ะ