作者thirteeen (13)
看板Visual_Basic
标题Re: [VBA ] 请问自定函数如何读取阵列的值
时间Thu Feb 8 00:43:11 2007
谢谢你的帮忙,这样就可以执行了
我是看书说宣告阵列可以用 阵列(i To j)来指定它的开始位置跟长度,
那怎麽用array(a,b,c...)它说无法指定到阵列....
那如果我想把值存到2维阵列中例如 tempR(1,i),tempR(1,1)=10 tempR(1,2)=5.....
我要怎麽把值放进去?一个一个打出来吗?
这样的话用你上述的自定函数可以将tempR(1,i)或tempR(2,i)加总起来吗?
※ 引述《icene (kkk)》之铭言:
: ※ 引述《thirteeen (13)》之铭言:
: : 请教一下各位,我在excel编辑VBA的程式,如果我自定一个函数,
: : 如下面我自定一个SUM的函数,要如何将阵列中的值相加起来,
: : 我FUNCTION定义的变数型态是不是错了??
: : =======================================================
: : Sub g()
: : Dim i As Integer
: : Dim tempR(1 To 9) As Integer
: : i = 2
: : tempR(2) = Array(10, 5, 9, 0, 0, 0, 0, 0, 0)
: : Worksheets(1).Cells(10, 10).Value = sum(tempR(i))
: : End Sub
: : Function sum(n) As Integer
: : Dim p
: : For p = 1 To 9
: : sum = sum + n
: : Next p
: : End Function
: 错很多呢 这样可能好一点 ~
: Sub g()
: Dim tempR As Variant
: tempR = Array(10, 5, 9, 0, 0, 0, 0, 0, 0)
: Worksheets(1).Cells(10, 10).Value = mysum(tempR)
: MsgBox mysum(tempR)
: End Sub
: Function mysum(n) As Integer
: Dim p As Integer
: For p = 0 To 8
: mysum = mysum + n(p)
: Next p
: End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 124.8.132.39
1F:推 fumizuki:Dim tempR(.....) 已经宣告为固定长度阵列了 02/08 12:52
2F:推 fumizuki:不可再指定为任何阵列 ex: Array(.......) 02/08 12:52
3F:推 fumizuki:As Variant 没有特定的型态 可以指定为任意型态 02/08 12:53