u011736031的博客

原创 VBA 常用功能

@VBA常用功能关闭Excel功能提高效率代码片Application.ScreenUpdating = False '关闭屏幕刷新 当有数据在表上读写的时候，Excel会逐步展示给你看的，这个展示过程可能涉及到读写硬盘缓存之类操作，所以当有部分程序读写操作比较频繁时候，就会引起速度很慢，导致整个程序运行效率很低Application.DisplayAlerts = False ' 显示特定的警告和消息关闭读取Excel代码片Dim fso As ObjectDim da

原创 VBA Scripting.Dictionary常用方法

@VBADictionary常用方法如何插入一段漂亮的代码片代码片.Sub test() Dim t1 as Object ''定义类型 Set t1 = CreateObject("Scripting.Dictionary") ''字典增加数据不允许重复key t1.Add 1, "A": t1.Add 2, "B": t1.Add 3, "C": t1.Add 4, "D" ''字典增加数据允许重复key 有则覆盖,无的添加

原创 VBA Dictionary全排列组合

@VBADictionary全排列组合如何插入一段漂亮的代码片代码片.Sub test() Set t1 = CreateObject("Scripting.Dictionary") ''ԭʼ×ÖµäÊý¾Ý t1.Add 1, "A": t1.Add 2, "B": t1.Add 3, "C": t1.Add 4, "D" Set rt = CreateObject("Scripting.Dictionary") ''È«ÅÅÁÐ

原创 sturuts2 default.properties常用属性