作者nazomegami (深呼吸~)
看板Office
標題Re: [算表] VBA Function變數定義問題
時間Thu Mar 3 21:33:13 2016
謝謝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: 問題1，暫無找到說明；如要一維的話，可用 03/03 23:33
→ soyoso: worksheetfunction.transpose([a1:a10])的方式 03/03 23:33
→ soyoso: 問題2，可先設中斷點，接著到資料編輯列(公式列)內按下 03/03 23:34
→ soyoso: nter，就可以偵錯；但設中斷點處前如有錯誤產生時則會因無 03/03 23:34
→ soyoso: 法執行到中斷點，而無作用 03/03 23:34
→ soyoso: 問題3，可於工作表按f9重新計算 03/03 23:38
→ soyoso: 問題1，查了一下，則是這樣說明到，儲存格範圍是欄列的二 03/03 23:51
→ soyoso: 維表格，可使用二維陣列來完成。在vba中，只要將variant 03/03 23:51
→ soyoso: 型態變數設為儲存格範圍的值，變數就會自動成為二維陣列的 03/03 23:52
→ soyoso: 變數 03/03 23:52
→ nazomegami: 受教了，謝謝你，我今天再試試。 03/04 06:40
→ nazomegami: 我想要問一下，若陣列只有一個元素，則ubound()函數 03/04 21:14
→ nazomegami: 應會回傳0，但是我在測試時只要遇到一個元素的陣列就 03/04 21:14
→ nazomegami: 會在ubound()函數這裡停下來。 03/04 21:14
→ nazomegami: 我知道只有一個元素的陣列沒有什麼好比較大小的，只是 03/04 21:15
→ nazomegami: 很好奇為什麼會出現這樣的結果? 03/04 21:15
→ soyoso: 只有一個儲存格時讀入時，會以字串string型態，所以會有 03/04 21:47
→ soyoso: 錯誤而停下無法向下執行，可加上range.rows.count判斷 03/04 21:48
→ nazomegami: 瞭解了，謝謝你! 03/05 11:36