Office中国论坛/Access中国论坛

标题: 如何分数??? [打印本页]

作者: wsxwsx1 时间: 2010-11-22 10:50
标题: 如何分数???

如何分数???
如何将下列的数据分开??如下
4-8;10-14
分成如下的数据:
4,5,6,7,8
10,11,12,13,14

作者: tmtony 时间: 2010-11-22 11:09
先用split分开
再用代码拆开- , 用代码循环取

作者: todaynew 时间: 2010-11-22 14:13

wsxwsx1 发表于 2010-11-22 10:50
如何分数???
如何将下列的数据分开??如下
4-8;10-14

写一个自定义函数返回数组即可，以下代码没有测试，你试试看：
function A(v0 as long,v1 as long) as Variant
dim i as long
dim V
ReDim V(0 To v1-v0-1)
for i=0 to v1-v0-1
V(i)=v0+i
next
A=V
end function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)