รบกวนช่วยทำวิธีป้อนข้อมูลcolum C ขึ้นเวลาที่ colum F ด้วยครับ

[SakchaiB]

รบกวนช่วยทำวิธีป้อนข้อมูลcolum C ขึ้นเวลาที่ colum F ด้วยครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 1 Then Range("b" & Target.Row) = Now()
If ActiveCell.Column = 3 Then Range("f" & Target.Row) = Now()
End Sub

[SakchaiB]

ตอนแรกทำได้แค่ ป้อนcolum A เวลาขึ้น colum C แต่อยากเพิ่มอีก

[logic]

ลองดูนะครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 1 Then Range("b" & Target.Row) = Now()
If ActiveCell.Column = 3 Then Range("f" & Target.Row) = Now()
Application.EnableEvents = True
End Sub

[SakchaiB]

ขอบคุณครับคุณ Logic แต่ยังไม่ได้

[snasui]

ขอบคุณครับคุณ Logic แต่ยังไม่ได้

ผิดพลาดอย่างไร ช่วยแจ้งรายละเอียดหรือจับภาพหรือแนบไฟล์นั้นมาดูกันครับ