Board logo

標題: 表單顯示日期問題 [打印本頁]
作者: gca78000    時間: 2014-11-20 13:05     標題: 表單顯示日期問題

請問各位大大VBA自訂表但如下
Private Sub Label1_Click()
Label1.Caption = Mid(Format(Date, "yyyy年mm月dd日"), 1, 12)
End Sub
一開始就自動對應系統日期請問要如何改謝謝
作者: owen06    時間: 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
複製代碼
作者: gca78000    時間: 2014-11-20 15:36

回復 2# owen06
大大你好我所指是UserForml裡的Label1依執行就自動對應系統日期請指教謝謝
作者: gca78000    時間: 2014-11-20 19:32

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

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

End Sub
作者: stillfish00    時間: 2014-11-20 20:33

回復 4# gca78000
Mid( XXX ,1,12) 好像沒啥必要
作者: gca78000    時間: 2014-11-20 21:19

回復 5# stillfish00

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)