vba如何依照日期提取年月份

jacky007x · 发表于 2017-9-18 14:16

本帖最后由 jacky007x 于 2017-9-18 15:44 编辑

老師好，想請教如何依照日期提取年月份的問題
例如：
當在D1輸入日期，A1會自動產生序號，B1會自動顯示年份，C1會自動顯示月份，如下

phsu · 发表于 2017-9-18 14:21

年份用函數Year，月份用函數Month處理。例如
B1單元格寫 =Year(D1)
C1單元格寫 =Month(D1)

jacky007x · 发表于 2017-9-18 14:24

phsu 发表于 2017-9-18 14:21
年份用函數Year，月份用函數Month處理。例如
B1單元格寫 =Year(D1)
C1單元格寫 =Month(D1)

感謝老師熱心地回答，但由於資料數據會很龐大，所以希望能用VBA的方式處理

phsu · 发表于 2017-9-18 14:30

jacky007x 发表于 2017-9-18 14:24
感謝老師熱心地回答，但由於資料數據會很龐大，所以希望能用VBA的方式處理

那就透過工作表的Change事件處理。改變數值的D列單元格是Target對象。
Range("B" & Target.Row) = Year(Target.Value)
Range("C" & Target.Row) = Month(Target.Value)

jacky007x · 发表于 2017-9-18 14:32

phsu 发表于 2017-9-18 14:30
那就透過工作表的Change事件處理。改變數值的D列單元格是Target對象。
Range("B" & Target.Row) = Year( ...

感謝老師的答覆，可否請教老師整段的代碼應該如何編寫呢?
小弟不才，還無法獨立編寫完整的代碼，再有勞老師您了

phsu · 发表于 2017-9-18 15:17

本帖最后由 phsu 于 2017-9-18 15:18 编辑

請參閱附件。注意：D列輸入整數，也會被視為是日期格式。

test.rar (13.1 KB, 下载次数: 199)

jacky007x · 发表于 2017-9-18 15:32

phsu 发表于 2017-9-18 15:17
請參閱附件。注意：D列輸入整數，也會被視為是日期格式。

感謝phsu老師，我剛搭配數據有效性的方式，基本上已經完全滿足需求了，感謝您!!!

		自动登录	找回密码
密码			免费注册

[已解决] vba如何依照日期提取年月份