Re: [算表] 取最小值 --二維陣列取出一維,Index

看板Office作者JieJuen (David)時間17年前 (2008/12/06 16:04)推噓0(0推 0噓 0→)

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

因為其實不知道您要問什麼看您在看那篇文章後會不會剛好一樣 k(i,j) 是二維陣列 Sub test() Dim k(5, 5) k(1, 1) = 3 k(2, 2) = 4 j = Application.Small(k, 1) Debug.Print j End Sub 直接用就完畢了所以想說會不會是問 (接上面Debug.Print j 之下) m = Application.Small(Array(k(1, 1), k(2, 2)), 1) Debug.Print m 在檢視/即時運算視窗可看debug.print的結果 (Ctrl+G) ※ 引述《andrew2 (不下棋　不要再問我了..)》之銘言： : 標題: [算表] 取最小值 : 時間: Sat Dec 6 04:28:26 2008 : : 軟體:excel : : 版本:2003 : : 請問各位高手我在編寫vba時，需要抓最小第n筆資料 : : 我的寫法如下 : : HIVAR(j) = Val(Application.WorksheetFunction.Small(Range("a:a"), HISNO)) : : 其中hisno是我要求的第hisno項 : : 但是卻一直出現無法判別small的屬性 : : 所以請問大家這樣寫哪邊有錯啊 : : 還有再請問一下，引用excel函數時，裡面的資料可以用陣列嗎? : : 因為我目前都是用把它存在工作表後再叫出來的笨方法.... : : 謝謝各位 : : -- : ※ 發信站: 批踢踢實業坊(ptt.cc) : ◆ From: 218.160.239.138 : 推 JieJuen:沒錯只是a欄中沒有第HISNO小的數 12/06 12:55 : → andrew2:在請問一下如果我在RANGE中，想放入陣列KK(I,J)應該如何寫 12/06 13:21 : → JieJuen:#19ChPK-l 7831 用函數array 不知是否為所需? 12/06 13:42 : → andrew2:還是不太懂耶..是能否寫出來讓我參考一下取k(i,1)中第3小 12/06 15:25 ^第1欄? : → andrew2:的數字，另外array函數要如何跟我的k(i,j)配合呢? 謝謝J大 12/06 15:26 Sub test() Dim k(5, 5) k(1, 1) = 3 k(2, 2) = 4 k(0, 0) = 2.5 k(1, 0) = 3.5 j = Application.Small(k, 1) Debug.Print "j = " & j m = Application.Small(Array(k(1, 1), k(2, 2)), 1) Debug.Print "m = " & m n = Application.Small(Application.Index(k, 0, 1), 2) '第1欄中取small Debug.Print "n = " & n End Sub 結果 j = 2.5 m = 3 n = 3.5 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.164.49.208 ※ 編輯: JieJuen 來自: 218.164.49.208 (12/06 16:31)