资源描述：
《自定义函数总结》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、EXCELVBA自定义函数1•创建字典对象SubCreateDic(objlAsObject,Optionalobj2AsObject,Optionalobj3AsObject,Optionalobj4AsObject,Optionalobj5AsObject,Optionalobj6AsObject,Optionalobj7AsObject,Optionalobj8AsObject,Optionalobj9AsObject,OptionalobjlOAsObject}Setobjl=CreateObje
2、ct(^Scripting・Dictionary”}IfNotIsMissing(obj2)ThenSetobj2IfNotIsMissing(obj3)ThenSetobj3IfNotIsMissing(obj4)ThenSetobj4IfNotIsMissing(obj5)ThenSetobj5IfNotIsMissing(obj6)ThenSetobj6IfNotIsMissing(obj7)ThenSetobj7IfNotIsMissing(obj8)ThenSetobj8IfNotIsMissi
3、ng(obj9)ThenSetobj9IfNotIsMissing(objlO)ThenSetobjEndSub=CreateObject("Scripting・Dictionary")=CreateObject(^Scripting.Dictionary”)=CreateObject(^Scripting.Dictionary”)=CreateObject("Scripting.Dictionary")=CreateObject(”Scripting.Dictionary")=CreateObject
4、(”Scripting.Dictionary")■CreateObject("Scripting・Dictionary”)=CreateObject(^Scripting・Dictionary")0=CreateObject(^Scripting・Dictionmiry”)示例：DimdieasObjectCreateDicdie2.批量获取列号说明：最大参数10个，必要参数「个。从Rng中找到str并返回列号，如果没有找到相关列，则返回未找到的列到FindMsg变量中DimrAsRangeSetr=rn
5、g.Find(strl,,,2)IfrIsNothingThenFindMsg=Ilf(FindMsg="f,,nn,n,n)&"1n&strl&111nElsevarl=r.ColumnIfNotIsMissing(var2)ThenSetr=rng.Find(str2,,,2)IfrIsNothingThenFindMsg=FindMsgIlf(FindMsg=nnVIVIn,f,)&str2&n'nElsevar2r.ColumnEndIfIfNotIsMissing(var3)ThenSetr=r
6、ng.Find(str3z,92)n•fiIfrIsNothingThenFindMsg=FindMsgIlf(FindMsg=nnn,ff)&str3&…Elsevar3r.ColumnEndIfIfNotIsMissing(var4)ThenSetr=g.Find(sti?4,,,2)IfrIsNothingThenFindMsgFindMsgIlf(FindMsgf!9II&str4&n'nElsevar4=r.ColumnEndIfIfNotIsMissing(var5)ThenSetr=rng.
7、Find(str5,,,2)IfrIsNothingThenFindMsg=FindMsgIlf(FindMsg=nifitnH,ff)&str5&n1,TElsevar5r•ColumnEndIfIfNotIsMissing(var6)ThenSetr=rng.Find(str6,,,2)IfrIsNothingThenFindMsg=FindMsgIlf(FindMsg=itfi，f)&str6&f,'nElsevar6=r.ColumnEndIfIfNotIsMissing(var7)ThenSe
8、tr=rng.Find(str7z,,2)IfrIsNothingThenFindMsg=FindMsgIlf(FindMsgVIVIn,f，)f!9II&str7&,f'nElsevar7=r•ColumnEndIfIfNotIsMissing(var8)ThenSetr=rng.Find(str8,,,2)IfrIsNothingThenFindMsg=FindMsgIlf(FindMsg=nifitnH,ff)&str8
