Page 1 of 1
สอบถาม VBA ครับ
Posted: Thu Jun 18, 2020 2:33 pm
by l2iddick
- Untitled.png (118.96 KiB) Viewed 35 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 ครับ
ขอบคุณครับ
Re: สอบถาม VBA ครับ
Posted: Thu Jun 18, 2020 3:11 pm
by puriwutpokin
ควรแบบไฟล์ตัวอย่าง และวางโค้ดแบบ โค้ดมาด้วยครับเพื่อสะดวกต่อการตอบของเพื่อนๆ สมาชิกครับ
ตัวอย่างโค้ดครับ และการวางโค้ดในบอร์ค ครับ
Code: Select all
If Target.Column <> 7 And Target.Column <> 16 Then Exit Sub
Re: สอบถาม VBA ครับ
Posted: Thu Jun 18, 2020 5:58 pm
by l2iddick
ขอบคุณมากๆครับ
ครั้งหน้าจะแก้ไขปรับปรุงเรื่องการโพสถามตามที่แนะนำนะครับ
Re: สอบถาม VBA ครับ
Posted: Thu Jun 18, 2020 5:59 pm
by l2iddick
puriwutpokin wrote: Thu Jun 18, 2020 3:11 pm
ควรแบบไฟล์ตัวอย่าง และวางโค้ดแบบ โค้ดมาด้วยครับเพื่อสะดวกต่อการตอบของเพื่อนๆ สมาชิกครับ
ตัวอย่างโค้ดครับ และการวางโค้ดในบอร์ค ครับ
Code: Select all
If Target.Column <> 7 And Target.Column <> 16 Then Exit Sub
ขอบคุณมากๆครับ
ครั้งหน้าจะแก้ไขปรับปรุงเรื่องการโพสถามตามที่แนะนำนะครับ