返回列表 上一主題 發帖

打開EXCEL檔案 寫入今天日期(分三格)

打開EXCEL檔案 寫入今天日期(分三格)

各位大大

  能否打開EXCEL檔案,就能像附件中將今天的日期分三格自動寫入

活頁簿1.rar (5.92 KB)

2018-11-03_232019.jpg
2018-11-3 23:21

如上圖程式碼

活頁簿1.rar (10.55 KB)

TOP

回復 1# zamamilo

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

活頁簿1.rar (6.76 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

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

TOP

        靜思自在 : 天上最美是星星,人生最美是溫情。
返回列表 上一主題