[算表] VBA將所有SHEET名稱填入各SHEET的儲存格

[sampeng0970 (sam)]

軟體: EXCEL

版本: 2016

https://imgur.com/a/swWq4J5

如上圖想將0103活頁簿名稱，變成日期填入0103的A1儲存格，
以此類推0104名稱變成日期填入0104的A1儲存格，
0105、0106以此類推的VBA寫法。

感謝指教。

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.160.90.244
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1529914841.A.D1F.html
→ soyoso: 迴圈於sheets或worksheets集合，可取得worksheet.name
→ soyoso: sheets(name).range，儲存格a1。改為日期可以dateserial
→ soyoso: 月和日則將name以left和right
→ soyoso: 測試其他改為日期方面也可以連結字串為yyyy-mm-dd後以
→ soyoso: datevalue、cdate或直接yyyy-mm-dd、mm-dd(測試會以m月d日
→ soyoso: )顯示
→ soyoso: 不以巨集方式的話，下方工作表名稱處右鐽選取所有工作表
→ soyoso: 於儲存格a1 https://i.imgur.com/BYDGISr.jpg
→ sampeng0970: 真的是太神了，感謝。以為只能用VBA解決，原來不用也