Page 2 of 2

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

Posted: Fri Mar 22, 2013 5:38 pm
by Ueng999
ถ้าต้องการให้มี auto save หลังจาก คลิก Check Box แล้ว ต้องเพิ่ม Code อย่างไรค่ะ

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

Posted: Fri Mar 22, 2013 5:42 pm
by 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

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

Posted: Fri Mar 22, 2013 7:36 pm
by snasui
:D ลองบันทึก Macro เพื่อดูว่า Save แล้วได้ Code เป็นเช่นไร แล้วค่อยนำ Code มาปรับใช้ ติดตรงไหนค่อยมาถามกันต่อครับ

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

Posted: Fri Mar 22, 2013 10:33 pm
by 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

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

Posted: Fri Mar 22, 2013 10:35 pm
by snasui
:D Code ที่แนบมาไม่ทราบว่าติดขัดตรงไหนครับ :?:

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

Posted: Sun Mar 24, 2013 10:47 am
by Ueng999
ครบตามต้องการสำหรับการบันทึกเวลาแล้ว ขอบคุณมากมากค่ะ :thup: