返回列表 上一主題 發帖

日期顯示問題

gca78000

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

日期顯示問題

請問各位坂大要如何讓Label1自動顯示系統日期..
Private Sub Label1_Click()
Label1.Caption = Mid(Format(Date, "yyyy年mm月dd日"), 1, 12)
End Sub
一開啟表單就自動顯示喔請指教
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-11-17 22:25 | 只看該作者
回復 1# gca78000


    在thisworkbook裡新增下列文字，『sheet1』請自行修改
    Private Sub Workbook_Open()
    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 
3#
發表於 2014-11-18 19:38 | 只看該作者
回復 1# gca78000
謝謝ptid大大指導果然是高手小弟又受教了感謝你

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題