返回列表 上一主題 發帖

表單顯示日期問題

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 
6#
發表於 2014-11-20 21:19 | 只看該作者
回復 5# stillfish00

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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2014-11-20 20:33 | 只看該作者
回復 4# gca78000
Mid( XXX ,1,12) 好像沒啥必要
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

gca78000

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

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

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


    在THISWORKBOOK裡新增，SHEET2請自行修改為LABLE所在表單
  1. Private Sub Workbook_Open()
  2. Sheet2.Label1.Caption = Format(Date, "yyyy年mm月dd日")
  3. End Sub
複製代碼

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題