Page 1 of 1

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

Posted: Wed Dec 09, 2015 3:33 pm
by 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

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

Posted: Wed Dec 09, 2015 3:35 pm
by SakchaiB
ตอนแรกทำได้แค่ ป้อนcolum A เวลาขึ้น colum C แต่อยากเพิ่มอีก

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

Posted: Wed Dec 09, 2015 3:51 pm
by 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

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

Posted: Wed Dec 09, 2015 4:04 pm
by SakchaiB
ขอบคุณครับคุณ Logic แต่ยังไม่ได้

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

Posted: Wed Dec 09, 2015 6:06 pm
by snasui
SakchaiB wrote:ขอบคุณครับคุณ Logic แต่ยังไม่ได้
:D ผิดพลาดอย่างไร ช่วยแจ้งรายละเอียดหรือจับภาพหรือแนบไฟล์นั้นมาดูกันครับ