按Alt+F11,进入VBE,插入一个模块,将代码写入模块中。如此一来工作表内也可以调用了。 Function Hanzi(rng As Range) As String '正则表达式 With CreateObject("VBSCRIPT.REGEXP") .Global = True &n ...
可以采用循环的方式遍历每个单元格找到最大的列号。请参考以下 代码 : Sub Test() Dim a As Range Dim R As Range Dim MaxC Set a = Range("a1:b1,a3:f2,a3:d3") For Each R In a.Areas With R &nb ...
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Private Sub 判断语言() Select Case GetSystemDefaultLCID Case H404 MsgBox "当前系统为:中文繁体", , "语言" &n ...
可以利用Microsoft.XMLHTTP来读取网页内容,请参考下列 代码 。 Sub 利用网络时间校对当前计算机时间() Dim objXML As Object Dim strTemp As String Dim lStart As Long Dim lEnd As Long Dim DtWeb As Date '建立X ...
可以利用RecordSet的GetRows方法 获取 数组。 Sub SQL2Arr() Dim AdoCN As Object Dim AdoRe As Object Dim SQL As String Dim Arr1, Arr2, Arr3 Set AdoCN = CreateObject("ADODB.Connection") Set AdoRe = CreateObject("ADODB.R ...
Q:如何设定 程序 运行 的次数? A:可以利用GetSetting方法和SaveSetting方法向注册表内获取信息或写入信息。利用这一特点就可以设定程序运行次数了。 参考以下 代码 设定程序运行次数,超过次数则无法运行。下面代码设定次数为3次。 Sub 设定程序运行次数() Dim Times ...