Re: [VBA ] 請問自定函數如何讀取陣列的值
謝謝你的幫忙，這樣就可以執行了
我是看書說宣告陣列可以用 陣列(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
推
02/08 12:52, , 1F
02/08 12:52, 1F
推
02/08 12:52, , 2F
02/08 12:52, 2F
推
02/08 12:53, , 3F
02/08 12:53, 3F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章