[算表] VBA如何將陣列轉為range
軟體:excel vba
版本:2010
各位版大好，以下我有一個自訂函數，其中ary2(i,0)為不同字串之組合(projectx、numx
等)，我想要在一個迴圈裡使用sumif，但是在這裡ary2參數似乎是要為range型態，我不想
要在儲存格中多一欄來記錄此一組合字串。
不知道這樣的問題是否有解法? 謝謝!!
Function inventory_period(in_date As Range, cur_date As Range, _
project As Range, num As Range, srl As Range, _
item_name As Range, amount As Range) As Long
Dim in_datex, cur_datex, projectx, numx, srlx, item_namex, amountx, str1
Dim ary1$(), ary2(10, 1), ary3(10)
Dim i&, w&
in_datex = in_date
cur_datex = cur_date
projectx = project
numx = num
srlx = srl
item_namex = item_name
amountx = amount
For i = 1 To UBound(projectx)
ary2(i, 0) = projectx(i, 1) & numx(i, 1) & srlx(i, 1) & item_namex(i, _
1)
ary2(i, 1) = cur_datex - in_datex(i, 1)
Next
For i = 1 To UBound(projectx)
If InStr(str1, ary2(i, 0)) = 0 Then
w = w + 1
str1 = str1 & "," & ary2(i, 0)
ary3(w) = WorksheetFunction.SumIf(ary2, ary2(i, 0), amount)
End If
Next
End Function
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.49.112
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1458050428.A.3CD.html
→
03/15 23:10, , 1F
03/15 23:10, 1F
→
03/16 09:09, , 2F
03/16 09:09, 2F
→
03/16 09:09, , 3F
03/16 09:09, 3F
→
03/16 09:10, , 4F
03/16 09:10, 4F
→
03/16 09:10, , 5F
03/16 09:10, 5F
→
03/16 09:12, , 6F
03/16 09:12, 6F
→
03/16 11:06, , 7F
03/16 11:06, 7F
→
03/16 11:25, , 8F
03/16 11:25, 8F
→
03/16 17:56, , 9F
03/16 17:56, 9F
→
03/16 17:56, , 10F
03/16 17:56, 10F
→
03/16 18:36, , 11F
03/16 18:36, 11F
→
03/16 18:36, , 12F
03/16 18:36, 12F
→
03/17 17:05, , 13F
03/17 17:05, 13F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
0
13
Office 近期熱門文章
PTT數位生活區 即時熱門文章
