VBA冷门方法整理&不完全研究

wps6129

非常感谢楼主分享

morpheus126

非常有用，捡到宝了

perfect131

感谢分享                     

大灰狼1976

13. 避开设置信任中心任对VBA工程对象模型的访问，导入模块
    好像论坛没有对这个的讨论，说明基本没有需求，就当知道一下吧，简单至一句：
  

1. Modules.Add.InsertFile "your path" & "\your file full name."

复制代码

    可以导入.bas文件，也可以导入自己保存在.txt里的代码。
    注意：如果有多个打开的工作簿，有可能会导入到其他工作簿中，前面加一句"目标工作簿.activate"可以指哪打哪

ykcbf1100

不错，标记一下。

xwcbz

学习中，谢谢分享。

大灰狼1976

对13项的补充说明：
1、用modules("模块名").delete可以删除相应模块，同样不需要信任中心设置；
2、手工创建的模块或者常规方法插入的模块（菜单->文件->导入文件，或者用import），不在modules()集合内，所以无法用modules("模块名").delete删除，但用insertfile导入的模块可以；
3、modules("模块名1").name="模块2"可以对模块改名，限制同第2条；
4、modules("模块名").insertfile "path\filename" 可以在现有模块内插入文件，不会覆盖原有内容，限制同第2条；
5、导入的文件（bas,txt等）如果有Attribute VB_Name = "模块名"，则不需要再重新命名，导入时的模块名自动变成这个，如果第4项导入的文件内含有这句，则会将现有模块的名称改掉。

思考：为什么常规方法创建或导入的标准模块都不在modules()集合内，而insertfile方式导入的标准模块都在集合内，即便文件保存重新打开后仍然如此，如有高手指教，当感激不尽。

大灰狼1976

14.简化版选择器，甚至可以代替简单的字典功能
     基本没看到有人使用的Switch()函数，功能简单，选项不多时挺方便：

1. s = InputBox("Pls enter ""a"" or ""b"" or ""c""")
   
2. MsgBox "you're " & Switch(s = "a", "animal", s = "b", "beast", s = "c", "Chinese")

复制代码

当然返回的结果不一定必须是字符串，也可以是对象，不详述，如下：

1. Switch(s = "a", UserForm1, s = "b", UserForm2, s = "c", UserForm3).Show

复制代码

大灰狼1976

15.RemoveDuplicates去重复方法使用变量数组
录制宏结果：
ActiveSheet.Range("$A$1:$D$12").RemoveDuplicates Columns:=Array(1, 2, 4), Header:=xlNo
将array替换为变量数组后：
arr = Array(1, 2, 4)
ActiveSheet.Range("$A$1:$D$12").RemoveDuplicates Columns:=arr, Header:=xlNo
运行失败，测试很多方法都无法使用变量数组，最终找到解决方法如下：
arr = Array(1, 2, 4)
ActiveSheet.Range("$A$1:$D$12").RemoveDuplicates Columns:=(arr), Header:=xlNo
就是在语句里面的数组变量外面加括号，原因不明

ykcbf1100

大灰狼1976 发表于 2024-2-5 13:37
15.RemoveDuplicates去重复方法使用变量数组
录制宏结果：
ActiveSheet.Range("$A$1:$D$12").RemoveDupli ...

这个变量数组的用法看上去怪怪的，以前只看到Array用法。