返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

excel vba与字符串数组有关的三个函数

时间:2012-06-17 02:18来源:Office教程学习网 www.office68.com编辑:麦田守望者

Split函数
返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
Split(字符串[, 分隔符[, 要返回的子字符串数量[,比较方式]]])
后三项可选,默认:分隔符为空格,返回全部子字符串,用Option Compare语句中的设置值执行比较。
下面是将1-12转化为一月-十二月的自定义函数的例子。
Function Num2ch(ByVal n As Integer) As String
Dim Arr
Arr = Split(",一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月", ",")
Num2ch = Arr(n)
End Function
和Array函数相比,用Split的好处在于生成的数组是字符型的,写法上也更简洁。注意“一月”前的逗号,这是因为Split生成的数组下标是从0开始的,且不受Option Base句的影响。


Join函数
返回一个字符串,该字符串是通过连接某个数组中的多个子字符串而创建的。
Join(源数组[,分隔符])
默认:分隔符为空格
当将分隔符设为空串(””)时,会返回一个各数组元素会直接相连的字符串。
该函数是Split函数的反函数,它是将数组转化为字符串。Join和Split相配合,可用于扩充控件TAG属性的传递数量;在不定参数的传递时,可使代码看起来更简洁。
下面只是它们配合的示例,并不是这儿真有必要这样做:
Sub aMain()
Dim arr(1 To 2), s$
arr(1) = 1: arr(2) = 2
s = Join(arr, ",")
Debug.Print Myadd(s)
End Sub
Function Myadd(ByVal s As String)
Dim arr, x
arr = Split(s, ",")
For Each x In arr
Myadd = Myadd + Val(x)
Next x
End Function


Filter函数
返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。
Filter(源数组,要搜索的字符串[,返回子串包含还是不包含要搜索字符串[,比较方式]])
如果在源数组中没有发现与要搜索的字符串相匹配的值,Filter返回一个空数组。如果源数组是Null或不是一个一维数组,则产生错误。
注意是“包含”要搜索的字符串,而不是“等于”要搜索的字符串。这意味着,如果一数组元素为字符串“AB”,用“A”、“B”、“AB”中的任何一个去搜索(上面第三个参数为默认值True),都会作为新的数组的元素被返回。但这并不影响你创造成“包含”等同于“等于”的条件,或者数据本身就符合这一要求的条件。在“包含”等同于“等于”的数组中,我们可以用下面的办法来判断一个字符串是否属于某个数组。
If UBound(Arr) = UBound(Filter(Arr, "要找的字符串", False)) Then ‘说明在数组Arr中找不到

顶一下
(2)
100%
踩一下
(0)
0%
标签(Tag):excel excel2010 excel2007 excel2003 excel技巧 excel教程 excel实例教程 excel2010技巧
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣