作者icene (kkk)
看板Visual_Basic
标题Re: [VBA ] 请问自定函数如何读取阵列的值
时间Wed Feb 7 22:25:04 2007
※ 引述《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: 218.166.215.76