作者pointchi (pointchi)
看板Office
标题[文件] EXCEL巨集编修
时间Sun Aug 26 15:42:49 2018
软体:EXCEL
版本:2013
之前枢纽後筛选的问题经soyoso大协助以解决，目前想更进一步精简，上网查资料发现有
巨集这功能，因此录制两个巨集，但是遇到些问题。
巨集1：将 Data 表单枢纽，并且於C栏写入公式(大於9则显示数值，不然就显示空白)。
巨集2：删除枢纽产生的 工作表1，档案回复原始状态。
https://i.imgur.com/P0VQvq1.jpg
问题1：因为 Data 的资料笔数不一定，因此枢纽产生的 工作表1 笔数也会变化，但是录
制巨集1时C栏公式只有到C448栏位，所以资料超过C448栏位就不会有公式，请问我要如何
修改巨集内的编码，使得C栏公式可以依最终栏位增减。
https://i.imgur.com/xrYYe9B.jpg
问题2：录制巨集2的时候有出现<<删除工作表的动作无法复原….>>警示视窗，并且按<<
删除>>，可是执行巨集2的时候还是会出现警示视窗，要如何才能执行巨集2时不会出现警
示视窗。
https://i.imgur.com/RN9EDbe.jpg
问题3：
当我执行巨集2後，再次巨集1时出现下列讯息，看起来应该是因为巨集1枢纽後会产称
Sheet1表单，可是因为再次执行巨集1时系统会自动产生Sheet2，因此出现错误讯息。
https://i.imgur.com/26cDeK7.jpg
https://i.imgur.com/cWQVeNZ.jpg
下连结是我的范例档案。
https://goo.gl/wrscQx
感谢前辈解惑。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.251.75.174
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1535269374.A.919.html
1F：→ soyoso: 问题1，以range.end取最後有值储存格，配合range.address 08/26 16:30
2F：→ soyoso: 回传储存格位置字串；或以range.end().row来取列号 08/26 16:31
3F：→ soyoso: 问题2，以application.displayalerts为false关闭 08/26 16:37
4F：→ soyoso: 问题3，新增工作表sheets.add下方再加上activesheet.name 08/26 16:40
5F：→ soyoso: 为"工作表1" 08/26 16:41