[文件] EXCEL宏编修

楼主: pointchi (pointchi)   2018-08-26 15:42:49
软件: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
感谢前辈解惑。
作者: soyoso (我是耀宗)   2018-08-26 16:30:00
问题1,以range.end取最后有值储存格,配合range.address回传储存格位置字串;或以range.end().row来取列号问题2,以application.displayalerts为false关闭问题3,新增工作表sheets.add下方再加上activesheet.name为"工作表1"

Links booklink

Contact Us: admin [ a t ] ucptt.com