Snasui Excel Forum

ขอบคุณทุกคนมากนะคะ ตอนนี้ลองเขียนดู ได้ละคะ code เวลา

Dim a As Long
Dim iRow As Single

iRow = ActiveSheet.Cells(Rows.Count, 13).End(xlUp).Row
ActiveSheet.Cells(iRow, 13).Offset(0, 2).Select
Selection.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation ...

อยากสอบถามสูตรอะคะ
ถ้า A2 มีการกรอกข้อมูล ให้ช่อง D2 โชว์วันที่และเวลา
โดยเมื่อกรอกข้อมูล A3 เวลาในช่อง D2 ไม่เปลี่ยน