คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
Code ที่เขียนมาเองแล้วชื่ออะไร ติดที่บรรทัดใดครับCode: Select all
Private Sub CommandButton1_Click()
MsgBox "ºÑ¹·Ö¡àÇÅÒà¢éÒ§Ò¹"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=IF(R1C2=RC1,NOW())"
ThisWorkbook.Save
End Sub
Ueng999 wrote:4.ให้วันที่และเวลาปัจจุบันปรากฏขึ้นที่เซลล์ D แถวที่ตรงกับเซลล์ A4 ก็คือเซลล์ D4
ขออภัยมองข้ามเงื่อนไขไปข้อหนึ่ง ปรับสูตรที่ D2 ใหม่เป็น =IF($A$1=A2,INDEX($A$2:$A$9,MATCH($A$1,$A$2:$A$9,0)),"") ไม่ได้ก็ไม่แปลกครับ เนื่องจากการทำเช่นนั้นด้วย VBA ต้องศึกษาการ Loop ของ VBA ไม่สามารถใช้การบันทึก Macro เพื่อทำงานนี้ได้ VBA ไม่เหมือนสูตรใน Excel ที่พอจะเดาทางได้บ้าง จำเป็นที่จะต้องศึกษาพื้นฐานมาก่อนและปรับปรุงเองได้บ้าง ไม่เช่นนั้นไม่ควรใข้ VBA ถ้าจำเป็นต้องใช้ ให้ผู้ที่เขียนได้เขียนมาก่อน ติดตรงไหนค่อยถามกันครับCode: Select all
Private Sub CommandButton1_Click()
Dim r As Range
For Each r In Range("A2", Range("A" & Rows.Count) _
.End(xlUp))
If r = Range("A1") Then r.Offset(0, 3) = Now
Next r
MsgBox "บันทึกเวลาเข้างาน"
ThisWorkbook.Save
End Subb
จากการใช้งาน รบกวนอีกที่ค่ะ ถ้าต้องการให้เมื่อ คลิก CommandButton.2 ค้นหาวันที่จาก ช่วงเซลล์ A3:A8 ที่มีค่าเท่ากับเซลล์ B2 ให้วันที่และเวลาปัจจุบันปรากฏขึ้นที่เซลล์ E แถวที่ตรงกับเซลล์ A ที่ sheet 1,Sheet 2,Sheet 3 แต่ถ้าเชลล์ D ไม่มีข้อมูล(เวลาเข้างาน) เชลล์ E ก็ไม่ขึ้นข้อมูล(เวลาออกงาน) ได้ปรับ Code มาเองแล้วยัง ชื่อว่า Procedure อะไร ติดที่บรรทัดใดครับ