将变量做为参数传递给方法 Sub Test() Dim a As Integer a = Add a Debug.Print a '引用传递,a的值发生了变化,输出101 End Sub Function Add(a As Integer) a = a + End Function 结论:VB传参时默认是引用传递byRef. 使用byVal关键字强制形参为值传递 Sub Test() Dim a As Integer a = Add a Debug.Print a '值传递,a的值没有变化,输出
因见到有人求助批量设置工作簿中的超链接,尝试写了一段代码: Sub AddHyperlinks() Dim strName As String, source As String, target As String Dim i As Integer i = source = "目录!a1" Do While Cells(i, "d") <> "" strName = Cells(i, "d").Text targe
RegExp 正则表达式(regular expression)的缩写 语法: 显式构造函数 var rg= new RegExp(pattern, attributes) 隐式构造函数 var rg= /pattern/attributes pattern: 字符串 attribute: i, g (i不区分大小写的匹配, g全局匹配,即查询所有匹配项而不是在匹配到第一个后就停止,"gi"不区分大小写且全局检索)可选参数 常用方法说明: 1.test() string中是否有匹配的字
Sub Sample() Dim sfzs As New Collection Dim ws, wbs, dbs As Worksheet Dim r As Long Set ws = ThisWorkbook.Sheets("Sheet 1") Set wbs = ThisWorkbook.Sheets("五保") Set dbs = ThisWorkbook.Sheets("低保") 'Set dg = ws.Range("c2:c
http://www.cnblogs.com/xiehuiqi220/archive/2008/11/05/1327487.html var someText= "web2.0 .net2.0" ; var pattern=/(\w+)(\d)\.(\d)/g; var outCome_exec=pattern.exec(someText); var outCome_matc=someText.match(pattern); console.info(outCome_exec) //
[转载自]http://www.shangxueba.com/jingyan/95031.html 附上一段原创常用代码 计算列标题字符串 Function CalcColumn(ByVal c As Integer) As String Dim temp As String Dim x As Integer Then x = (c - ) \ Then temp = )) End If x = c - (c \ ) * x = , , x) temp = temp + - )) End If