Excel VBA 兩個Variant 變數運算時發生錯誤

Question

以下是我的程式碼

Private Function PowerFee(PDate As Range, AllDay As Variant, PowerDag As Variant, PowerWork As Variant, Lv1Dag As Variant, Lv1 As Range, Lv2Dag As Variant, Lv2 As Range, Lv3Dag As Variant, Lv3 As Range, Lv4Dag As Variant, Lv4 As Range) As Variant
        
        PowerFee = (WorksheetFunction.MMult(PDate, Lv1) * Lv1Dag + WorksheetFunction.MMult(PDate, Lv2) * Lv2Dag + WorksheetFunction.MMult(PDate, Lv3) * Lv3Dag + WorksheetFunction.MMult(PDate, Lv4) * (PowerDag - Lv4Dag)) / AllDay
        
        If (PowerWork > 80) Then
            PowerFee = PowerFee * (1 - 1 * (PowerWork - 80) * 0.0015)
        Else
            PowerFee = PowerFee * (1 + 1 * (80 - PowerWork) * 0.003)
        End If
    
End Function
這是一個計算電費的公式( 營業用電 )
問題發生在最後的運算
當我要計算
WorksheetFunction.MMult(PDate, Lv1) * Lv1Dag 
這兩個變數時發生錯誤(後面也是一樣的狀況)
這兩個變數型態都是Variant 
為什麼無法相乘呢??

匿名 · Accepted Answer

請提供檔案較易找問題 : http://www.funp.net/

2009-03-17 02:08:43 補充：
MMult 引數可以是 Range 或 陣列 ～

2009-03-25 23:57:47 補充：
以下寫法較有效率, 謹供參考 :

WorksheetFunction.MMult(PDate, Lv1)(1,1)

或
application.MMult(PDate, Lv1)(1,1)

2009-03-26 01:11:25 補充：
用 SUM 畢竟是變通方法,
用正常取陣列值的方式如上即可 ～

WayArBell · Answer

問題好像不是兩個 Variant 的關係, 兩個 Variant 不會出問題,

WorksheetFunction.MMult(PDate, Lv1) 要做陣列相乘, 需要兩個 Range,
它執行的結果會傳回一個 range, 然後你把它和 Lv1Dag 相乘,
問題是一個 Lv1Dag 究竟是什麼型態? 一個  Range 物件可以直接和 Lv1Dag 相乘???

Excel VBA 兩個Variant 變數運算時發生錯誤

2 個解答