表單顯示日期問題

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-20 13:05 | 顯示全部帖子

請問各位大大VBA自訂表但如下
Private Sub Label1_Click()
Label1.Caption = Mid(Format(Date, "yyyy年mm月dd日"), 1, 12)
End Sub
一開始就自動對應系統日期請問要如何改謝謝

2^#

發表於 2014-11-20 15:36 | 顯示全部帖子

回復 2# owen06
大大你好我所指是UserForml裡的Label1依執行就自動對應系統日期請指教謝謝

3^#

發表於 2014-11-20 19:32 | 顯示全部帖子

回復 3# gca78000
以解決難題謝謝大大指導了用以下引述即可

Private Sub UserForm_Activate()
sheet1.Label1.Caption = Mid(Format(Date, "yyyy年mm月dd日"), 1, 12)

End Sub

4^#

發表於 2014-11-20 21:19 | 顯示全部帖子

回復 5# stillfish00

UserForm1.Label1.Caption = (Format(Date, "yyyy年mm月dd日"))
說的也是小弟又受教了感謝大大指導論壇上有你們真好感恩

靜思自在 : 改變自己是自救，影響別人是救人。