帖子: 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
一開始就自動對應系統日期請問要如何改謝謝

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-11-20 14:27 | 只看該作者

回復 1# gca78000

在THISWORKBOOK裡新增，SHEET2請自行修改為LABLE所在表單

Private Sub Workbook_Open()
Sheet2.Label1.Caption = Format(Date, "yyyy年mm月dd日")
End Sub

複製代碼

TOP

gca78000

中學生 Rank: 2

帖子: 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

gca78000

中學生 Rank: 2

帖子: 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

stillfish00

大學生 Rank: 4

帖子: 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

中學生 Rank: 2

帖子: 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