字體:小 中 大 | |
|
|
2016/03/14 17:16:26瀏覽5|回應0|推薦0 | |
許多人應該被債務或金錢上的問題壓得喘不過氣 往往走上不好的方向高利貸之類的.. 今天分享一個好資訊給大家^^ 免費諮詢專業人員 最快的時間解決你所遇到問題 解決你個人困難幫助你的問題
標題: excelVBA--整列當作object貸款試算公式傳至 Sub,如何讀 發問:學生機車分期付款 1.請問function可以回傳陣列嗎? Function ABC(aa as string) as ????? End Function 2.我把整列當作object傳至 Sub,如何讀取該列某一個cell的值?? call DEF(Row(7)) Sub DEF(wkRow as Object) Col=wkRow.Column Vlu=wkRow.????? '如何讀取該列某一個cell的值 End Sub 最佳解答: '把你的兩個問題綜合一下: Sub bbb() Cells(4, 1) = "A" Cells(4, 2) = "B" Call DEF(Rows("4")) '丟入整個row r = ABC("1,2,3,4,5") s = "" For i = 0 To UBound(r) '秀出陣列中的每一個值 s = s & r(i)銀行信貸保人條件 & vbCrLf Next i MsgBox s End Sub Sub DEF(c) MsgBox c.Cells(1, 2) '秀出該row的第二格內容 結果是 B End Sub Function ABC(aa As String) ABC = Split(aa, ",") '轉為陣列 End Function '執行bbb就能看到結果 其他解答: 1. Function ABC(aa as string) as Variant 2. Sub DEF(wkRow as Range) ... Vlu=wkRow.cells(5) ...|||||問題一 可以,但是任何型態的陣列都無法被傳回,只有 Variant 的陣列可以被傳回。 所以範例如下 Sub Modul_1() Dim Ar, Ar2 As Variant '宣告變數 Ar = Array(1, 2, 3, 4, 3, 4, 1, 4, 3) '建立Ar陣列 For Each element In Modul_2(3, Ar) '迴圈[回傳陣列] ArText = ArText & element & Chr(13) '建立[回傳陣列]的值 Next element MsgBox ArText '列出[回傳陣列]的值 End Sub '--------------------------------------------------- Function Modul_2(A As Variant, Ar2 As Variant) '宣告變數 Modul_2 = Filter(Ar2, A) '建立[要回傳的陣列] End Function '--------------------------我是偉大的分隔線----------------- 問題二 如果只有一個[列(Row)]如下 Msgbox wkRow.Cells(5) '列出第5個 如果有二個[列(Row)]以上如下 Msgbox wkRow.Cells(2,5) '列出第2個列中的,第5個 只是你傳去的值不對 call DEF(Row(7)) Row(7) 指的是 某欄的第7列的資料 整列個人信用貸款利率請用Rows(7)<---要加S喔 房貸算法AC6B5B3642B9BC44 |
|
( 不分類|不分類 ) |