作者sampeng0970 (sam)
看板Office
标题[算表] VBA将所有SHEET名称填入各SHEET的储存格
时间Mon Jun 25 16:20:38 2018
软体: EXCEL
版本: 2016
https://imgur.com/a/swWq4J5
如上图想将0103活页簿名称，变成日期填入0103的A1储存格，
以此类推0104名称变成日期填入0104的A1储存格，
0105、0106以此类推的VBA写法。
感谢指教。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.160.90.244
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1529914841.A.D1F.html
1F：→ soyoso: 回圈於sheets或worksheets集合，可取得worksheet.name 06/25 16:33
2F：→ soyoso: sheets(name).range，储存格a1。改为日期可以dateserial 06/25 16:34
3F：→ soyoso: 月和日则将name以left和right 06/25 16:34
4F：→ soyoso: 测试其他改为日期方面也可以连结字串为yyyy-mm-dd後以 06/25 16:38
5F：→ soyoso: datevalue、cdate或直接yyyy-mm-dd、mm-dd(测试会以m月d日 06/25 16:39
6F：→ soyoso: )显示 06/25 16:39
7F：→ soyoso: 不以巨集方式的话，下方工作表名称处右钽选取所有工作表 06/25 16:42
9F：→ sampeng0970: 真的是太神了，感谢。以为只能用VBA解决，原来不用也 06/25 16:59