ต้องการให้ Textbox ใน userform แสดงเวลาในโค้ดครับ
Posted: Wed Oct 04, 2017 2:19 pm
อยากจะให้ Textbox ใน Userform แสดงเวลาเครื่องครับแล้วเปลี่ยนไปเรื่อยครับ
Code: Select all
Sub Macro3()
Dim date_time
Dim current_time
date_time = UserForm1.TextBox1.Value
date_time = Now()
'Msgbox (date_time)
current_time = Format(date_time, "dddd,d mmm yyyy")
'MsgBox (current_date)
End Sub