Page 1 of 1
ใช้ vba บันทึกเวลา
Posted: Wed Jun 11, 2014 2:51 pm
by leelaphoom
ผมจะต้องแก้โค้ดตรงไหน ให้เวลากดบันทึกเวลามันจะบันทึกที่ช่อง a เลื่อยๆครับ
เช่นกดครั้งแรกบันทึกเวลาที่ ช่อง a1 กดครั้งที่สองบันทึกที่ a2 ประมาณนี้ครับ
Code: Select all
Private Sub commandbutton2_click()
r = ActiveCell.Row
Cells(r, "a").Value = Format(Time, "hh:mm:ss")
End Sub
Re: ใช้ vba บันทึกเวลา
Posted: Wed Jun 11, 2014 3:04 pm
by logic
leelaphoom wrote:ผมจะต้องแก้โค้ดตรงไหน ให้เวลากดบันทึกเวลามันจะบันทึกที่ช่อง a เลื่อยๆครับ
เช่นกดครั้งแรกบันทึกเวลาที่ ช่อง a1 กดครั้งที่สองบันทึกที่ a2 ประมาณนี้
อ่ะครับ
Code: Select all
Private Sub commandbutton2_click()
r = ActiveCell.Row
Cells(r, "a").Value = Format(Time, "hh:mm:ss")
End Sub
"อ่ะครับ" ไม่ใช่ภาษาเขียน ผิดกฎข้อ 1 ด้านบนครับ
ผมแก้เป็นด้านล่าง ลองใช้ดูครับ
Code: Select all
Private Sub commandbutton2_click()
'r = ActiveCell.Row
Cells(Rows.count, "a").End(xlUp).Offset(1,0).Value = Format(Time, "hh:mm:ss")
End Sub