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

看板Office作者andrew2 (不下棋　不要再問我了..)時間17年前 (2008/12/06 19:52)推噓2(2推 0噓 8→)

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

※ 引述《JieJuen (David)》之銘言： : 因為其實不知道您要問什麼 : 看您在看那篇文章後會不會剛好一樣 : 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函數時，裡面的資料可以用陣列嗎? : : 因為我目前都是用把它存在工作表後再叫出來的笨方法.... : : 謝謝各位 : : -- : : ◆ 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 第二種就是我想問的...如果有k(100,100)那我要怎樣寫迴圈才不用把Array((k(1,1),k(2,1),.....)全部列出來我舉例說明我的情形好了: 我把數字存在excel欄位 A B C 1 2 3 4 5 6 7 8 9 . . . . . . 假設有K(100,3) 那我要如何分別取出A ,B ,C 欄倒數第N小個的數字所以我才會像用迴圈，可是卻不知道呼叫EXCEL函數後EX:Small裡面要如何放迴圈是Small(Array(K(i,1),n)這樣嗎 ^^^^^^ 這邊就是我不懂的，因為上面是要把陣列都寫出，但是數量太多.... 謝謝J大的幫忙....真的讓我解決很多繁瑣的事情^_^ : 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.160.239.138