返回列表 上一主題 發帖

表單顯示日期問題

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-20 13:05 | 顯示全部帖子

表單顯示日期問題

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

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
2#
發表於 2014-11-20 15:36 | 顯示全部帖子
回復 2# owen06
大大你好我所指是UserForml裡的Label1依執行就自動對應系統日期請指教謝謝

TOP

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
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

TOP

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
4#
發表於 2014-11-20 21:19 | 顯示全部帖子
回復 5# stillfish00

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

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題