返回列表 上一主題 發帖

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

zamamilo

帖子
26 
主題
14 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-30 
最後登錄
2023-11-6 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-11-3 22:25 | 只看該作者

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

各位大大

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

活頁簿1.rar (5.92 KB)

收藏 分享

zheng211016
　暱稱: zheng逸

中學生Rank: 2

帖子
99 
主題
15 
精華
0 
積分
164 
點名
2  
作業系統
WIN7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2017-5-30 
最後登錄
2024-10-5 
2#
發表於 2018-11-3 23:22 | 只看該作者

如上圖程式碼

活頁簿1.rar (10.55 KB)

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
3#
發表於 2018-11-4 03:30 | 只看該作者
回復 1# zamamilo

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

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

TOP

准提部林

帖子
2836 
主題
10 
精華
0 
積分
2892 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-30 
4#
發表於 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

TOP

zamamilo

帖子
26 
主題
14 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-30 
最後登錄
2023-11-6 

論壇贊助勳章
5#
發表於 2018-11-6 18:50 | 只看該作者
謝謝
zheng211016大大,n7822123大大及准提部林 大大

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

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題