อยากทราบวิธีupdate code ให้แสดงวันที่ปัจจุบัน

[akekorn]

เรียนคุณคนควน
ผมรบกวนสอบถามครับคือในชีทที่ผมส่งมาให้นั้น เวลากดตรงแท๊ป changedate ครั้งแรกผมอยากให้ขึ้นวันที่ปัจจุบันเลย มันก็จะขึ้นเป็นวันที่กำหนดใน properties ก่อน แล้วพอกดอีกทีถึงขึ้นเป็นวันปัจจุบัน อยากทราบว่าจะทำอย่างไรให้ขึ้นวันที่ปัจจุบันเลยในการกดครั้งแรกครับ
ขอบคุณครับ

[snasui]

พยามงดถามถึงผมโดยตรงครับ ท่านที่ทราบจะไม่เข้ามาตอบเพราะเป็นการเจาะจงผู้ตอบ จะทำให้เสียเวลารอคอยครับ

จากคำถามด้านบน ลองปรับ Code เป็น

Code: Select all

Sub SHOWFORM()
    Sheets("SumCat.").Range("h2") = Date ' <== Insert this line.
    UserForm1.Show
    'Other code
End Sub

[akekorn]

ยังทำไม่ได้ครับ รบกวนทำให้ดูแบบเต็มๆได้ไหมครับ
ขอบคุณครับ

[snasui]

ลองส่ง Code ที่ได้ปรับเพิ่มแล้ว และจับภาพที่บอกว่าไม่ได้นั้นมาดูกันครับ

[akekorn]

รบกวนด้วยครับ

[snasui]

ช่วยบรรยายประกอบภาพด้วยครับ วันที่ปัจจุบันที่ว่านั้นต้องการให้แสดงที่ใด จาก Code ที่ผมแนะนำไปและได้ปรับปรุงมานั้น วันที่ปัจจุบันจะแสดงอยู่ที่ H2 และถูกนำมาแสดงที่เซลล์ A2 ในภาพที่ 2.Jpg เรียบร้อยแล้วครับ

[akekorn]

ครับคือผมต้องการให้แสดงที่ form calendar แล้วจากนั้นพอกด OK ก็ค่อยมาเปลี่ยนในชีทครับ
ขอบคุณครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub SHOWFORM()
    UserForm1.Calendar1.Value = Date ' <== Insert this line.
    UserForm1.Show
End Sub

[akekorn]

ได้แล้วครับ ขอบคุณมากครับ เส้นผมบังภูเขาแท้ๆเลย