กด Ok แล้วข้อมูลไม่บันทึกเข้าครับ
Posted: Sun Oct 09, 2011 9:03 pm
กด OK แล้วข้อมูลไม่บันทึกเข้าครับ อยากให้วันที่มันบันทึกเข้าอยู่ที่ช่อง B2 ครับ
ช่วยดูให้ทีครับว่าผิดตรงไหน
ช่วยดูให้ทีครับว่าผิดตรงไหน
เนื่องจากคีย์ Code ผิดไปหลายตัวครับสังเกตตามด้านล่างครับ
Code: Select all
Private Sub btnOK_Click()
Dim r As Range
Set r = Workbooks("ลอง.xlsm").Worksheets("Sheet1").Range("B" & Rows.Count).End(xlUp) _
.Offset(1, 0)
r = cldDate.Value 'fmindex.txtDate
MsgBox "เก็บข้อมูลเรียบร้อยแล้ว"
Unload Me
End Sub