สอบถาม VBA ครับ

[l2iddick]

Untitled.png (118.96 KiB) Viewed 39 times

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub

With Target.Offset(0, 1)
.Value = Now
.NumberFormat = "DD/MM/YYYY hh:mm AM/PM"
End With
End Sub


โค้ดข้างบนเมื่อผมพิมพ์ข้อมูลใน คอลั่มที่7 (COLUMN G)
คอลั่มที่ 8 (COULUMN H) จะแสดงวัน/เดือน/ปี
ทันทีเมื่อคอลั่มที่ 7ถูก MODIFIED

อยากสอบถามว่าถ้าผมจะเพิ่มคำสั่ง
ให้คอลั่มที่ 16 ด้วย
คือเมื่อพิมพ์ข้อมูลใน คอลั่มที่16
คอลั่มที่ 17 จะแสดงวัน/เดือน/ปี
ทันทีเมื่อคอลั่มที่ 16ถูก MODIFIED

จะต้องเพิ่มเติม CODE อะไรใน MODULE ครับ
ขอบคุณครับ

[puriwutpokin]

ควรแบบไฟล์ตัวอย่าง และวางโค้ดแบบ โค้ดมาด้วยครับเพื่อสะดวกต่อการตอบของเพื่อนๆ สมาชิกครับ
ตัวอย่างโค้ดครับ และการวางโค้ดในบอร์ค ครับ

Code: Select all

If Target.Column <> 7 And Target.Column <> 16 Then Exit Sub

[l2iddick]

ขอบคุณมากๆครับ

ครั้งหน้าจะแก้ไขปรับปรุงเรื่องการโพสถามตามที่แนะนำนะครับ

[l2iddick]

ควรแบบไฟล์ตัวอย่าง และวางโค้ดแบบ โค้ดมาด้วยครับเพื่อสะดวกต่อการตอบของเพื่อนๆ สมาชิกครับ
ตัวอย่างโค้ดครับ และการวางโค้ดในบอร์ค ครับ

Code: Select all

If Target.Column <> 7 And Target.Column <> 16 Then Exit Sub

ขอบคุณมากๆครับ

ครั้งหน้าจะแก้ไขปรับปรุงเรื่องการโพสถามตามที่แนะนำนะครับ