标签：sub class string sea 运用 int amp 实现 row
运用VBA时，可以构造一些函数去实现诸如printf的方便函数。
Public Function printf(mask As String, ParamArray tokens()) As String
Dim i As Long
For i = 0 To UBound(tokens)
mask = Replace(mask, "{" & i & "}", tokens(i))
Next
printf = mask
End Function
Sub test1()
cc = genSearchedArr(6554, "a", "b", "e", "f", "g")
MsgBox cc
End Sub
Function genSearchedLines(searchedRow As Integer, ParamArray columns()) As String
Dim searchedVal As String
Dim i As Long
For i = 0 To UBound(columns)
If i = 0 Then
searchedVal = printf("{0}{1}", columns(i), searchedRow)
Else
searchedVal = searchedVal & printf("&{0}{1}", columns(i), searchedRow)
End If
Next
genSearchedLines = searchedVal
End Function
Function genSearchedArr(searchedRow As Integer, ParamArray columns()) As String
Dim searchedArr As String
Dim i As Long
For i = 0 To UBound(columns)
If i = 0 Then
searchedArr = printf("{0}1:{0}{1}", columns(i), (searchedRow - 1))
Else
searchedArr = searchedArr & printf("&{0}1:{0}{1}", columns(i), (searchedRow - 1))
End If
Next
genSearchedArr = searchedArr
End Function
标签：sub class string sea 运用 int amp 实现 row
原文地址：http://www.cnblogs.com/kid551/p/7354424.html
