Page 1 of 1
อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Mon Oct 17, 2011 11:28 am
by akekorn
เรียนคุณคนควน
ผมรบกวนสอบถามครับคือในชีทที่ผมส่งมาให้นั้น เวลากดตรงแท๊ป changedate ครั้งแรกผมอยากให้ขึ้นวันที่ปัจจุบันเลย มันก็จะขึ้นเป็นวันที่กำหนดใน properties ก่อน แล้วพอกดอีกทีถึงขึ้นเป็นวันปัจจุบัน อยากทราบว่าจะทำอย่างไรให้ขึ้นวันที่ปัจจุบันเลยในการกดครั้งแรกครับ
ขอบคุณครับ
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Mon Oct 17, 2011 11:43 am
by snasui
พยามงดถามถึงผมโดยตรงครับ ท่านที่ทราบจะไม่เข้ามาตอบเพราะเป็นการเจาะจงผู้ตอบ จะทำให้เสียเวลารอคอยครับ
จากคำถามด้านบน ลองปรับ Code เป็น
Code: Select all
Sub SHOWFORM()
Sheets("SumCat.").Range("h2") = Date ' <== Insert this line.
UserForm1.Show
'Other code
End Sub
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Mon Oct 17, 2011 1:24 pm
by akekorn
ยังทำไม่ได้ครับ รบกวนทำให้ดูแบบเต็มๆได้ไหมครับ
ขอบคุณครับ
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Mon Oct 17, 2011 1:37 pm
by snasui
ลองส่ง Code ที่ได้ปรับเพิ่มแล้ว และจับภาพที่บอกว่าไม่ได้นั้นมาดูกันครับ
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Mon Oct 17, 2011 4:29 pm
by akekorn
รบกวนด้วยครับ
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Mon Oct 17, 2011 6:13 pm
by snasui
ช่วยบรรยายประกอบภาพด้วยครับ วันที่ปัจจุบันที่ว่านั้นต้องการให้แสดงที่ใด จาก Code ที่ผมแนะนำไปและได้ปรับปรุงมานั้น วันที่ปัจจุบันจะแสดงอยู่ที่ H2 และถูกนำมาแสดงที่เซลล์ A2 ในภาพที่ 2.Jpg เรียบร้อยแล้วครับ
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Tue Oct 18, 2011 9:59 am
by akekorn
ครับคือผมต้องการให้แสดงที่ form calendar แล้วจากนั้นพอกด OK ก็ค่อยมาเปลี่ยนในชีทครับ
ขอบคุณครับ
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Tue Oct 18, 2011 10:45 am
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sub SHOWFORM()
UserForm1.Calendar1.Value = Date ' <== Insert this line.
UserForm1.Show
End Sub
Re: อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน
Posted: Tue Oct 18, 2011 10:58 am
by akekorn
ได้แล้วครับ ขอบคุณมากครับ เส้นผมบังภูเขาแท้ๆเลย
