... 59，把设置单元格格式项移动到右键菜单第一位 60，从海量有重复数据中查出最后一笔记录的对应日期及数量 by:hqswww 61，清除工作表密码_wpxxsyzx 62，为宏的安全性修改注册表_清风_ll 63，图片自适应单元格大小_gdzhxg 64，人民币小写大写_tianyk 65，打开对话框选择文件夹文件重命名_vs2010 66，批注内汇总 ....

公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。 公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。