Board logo

標題: 打開EXCEL檔案 寫入今天日期(分三格) [打印本頁]

作者: zamamilo    時間: 2018-11-3 22:25     標題: 打開EXCEL檔案 寫入今天日期(分三格)

各位大大

  能否打開EXCEL檔案,就能像附件中將今天的日期分三格自動寫入
作者: zheng211016    時間: 2018-11-3 23:22

[attach]29629[/attach]
如上圖程式碼

[attach]29630[/attach]
作者: n7822123    時間: 2018-11-4 03:30

回復 1# zamamilo

使用函數now(),加上自定儲存格格式

[attach]29632[/attach]
作者: 准提部林    時間: 2018-11-4 10:44

Private Sub Workbook_Open()
d = Date
[工作表1!B3:D3] = Array(Year(d) - 1911, Month(d), Day(d))
End Sub



Private Sub Workbook_Open()
[工作表1!B3:D3] = Split(Format(Date, "e/m/d"), "/")
End Sub
作者: zamamilo    時間: 2018-11-6 18:50

謝謝
zheng211016大大,n7822123大大及准提部林 大大

都很好用,感謝三位大大的協助




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