Re: [算表] VBA Function變數定義問題

看板Office作者nazomegami (深呼吸~)時間10年前 (2016/03/03 21:33)推噓0(0推 0噓 20→)

留言20則, 2人參與討論串2/2 (看更多)

謝謝S大的回覆，第二個版本比較簡潔，而且我測試成功，第一個版本是我原本的結構，後來結果還是失敗。不過這裡我還是有幾個問題想要請教： 1.item_range一開始沒有定義它是二維陣列，為什麼後來又要用item_range(i,1)，而且如果不這樣用還跑不出結果。 2.sub模式有逐步執行的功能，但function模式似乎沒有? 沒有辦法看到分段執行結果真的很難偵錯。 3.在function模式中修改語法後如何使儲存格中的值重新計算? 以上問題請多指教，謝謝!! ※ 引述《nazomegami (深呼吸~)》之銘言： : 軟體:excel vba : 版本:2010 : 各位大大好，以下我有一個function，item_range為儲存格(如A1:A10)，內容為文字串， : 如"A", "B", "A", "B", "B", "C", "B", "C", "D", "B"，而number_range亦為儲存格 : (如B1:B10)，內容為數字，如1, 2, 3, 4, 5, 6, 7, 8, 9, 10。 : 今天想要計算各item_range的項目(以取唯一值)之累加金額，並回傳金額第k大(rank_ : order)之項目名稱，我之前以虛擬陣列在Sub中執行都沒有問題，但是改以Function就 : 執行不出結果，想要請問一下我哪裡做錯了?(變數定義?) 謝謝! : Function inventory_rank(item_range() As Variant, number_range() As Variant, : rank_order As Integer) As String : Dim c, d, str1, str2 : Dim ary1$(), ary2(100), ary3(100) : '求算資料筆數(陣列上限+1) : c = UBound(item_range) : '若某字串a(i)在組合字串(str)中沒有出現才會被加入組合字串(str)中 : For i = 0 To c : If InStr(str1, item_range(i)) = 0 Then : str1 = str1 & "," & item_range(i) : End If : Next : '將第2位開始之字串轉換為陣列 : ary1 = Split(Mid(str1, 2), ",") : '求算不重複項目之個數(陣列上限+1) : d = UBound(ary1) : '求算不重複項目之累加金額 : For i = 0 To d : ary2(i) = ary1(i) : ary3(i) = Evaluate("sum(if({""" & Join(item_range, """,""") & """}=""" : & ary1(i) & """, {" & Join(number_range, ",") & "}))") : Next : '求算第k位金額之項目名稱 : inventory_rank = Application.WorksheetFunction.Index(ary2, Application. : WorksheetFunction.Match(Application.WorksheetFunction. : Large(ary3, rank_order), ary3, 0)) : End Function -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.54.158 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1457011995.A.2EE.html

→

soyoso

03/03 23:33, , 1^F

03/03 23:33, 1^F

→

soyoso

03/03 23:33, , 2^F

03/03 23:33, 2^F

→

soyoso

03/03 23:34, , 3^F

03/03 23:34, 3^F