標題: 日期顯示問題 [打印本頁]

---

作者: gca78000    時間: 2014-11-17 15:30     標題: 日期顯示問題

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

---

作者: owen06    時間: 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

---

作者: gca78000    時間: 2014-11-18 19:38

回復 1# gca78000
謝謝ptid大大指導果然是高手小弟又受教了感謝你

---

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