設計一個陣列相加可是得到的值一直是#VALUE

s100310424

Function Madd(A As Variant, B As Variant)
Dim MC() As Variant
ReDim MC(LBound(A, 1) To UBound(A, 1), LBound(A, 2) To UBound(A, 2))
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
MC(i, j) = A(i, j) + B(i, j)
Next j
Next i
Madd = MC
End Function

上面是我的函數
而我在表單輸入{=Madd(A1:B2),(C1:D2))}----有使用ctrl+shifu+enter
大概是這樣

下載 (77.88 KB)

2015-6-4 01:26

請問為什麼我讀不到A,B的值呢

請大家幫幫忙 感謝

Scott090

回復 1# s100310424


Function Madd(A1 As Variant, B1 As Variant)
Dim MC() As Variant,A,B
A=A1.value : B=B1.value
ReDim MC(LBound(A, 1) To UBound(A, 1), LBound(A, 2) To UBound(A, 2))
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
MC(i, j) = A(i, j) + B(i, j)
Next j
Next i
Madd = MC
End Function

Scott090

回復 1# s100310424

或者：

1. Function Madd(A As Variant, B As Variant)
   
2. Dim MC() As Variant
   
3. A = A.Value: B = B.Value
   
4. ReDim MC(LBound(A, 1) To UBound(A, 1), LBound(A, 2) To UBound(A, 2))
   
5. For i = LBound(A, 1) To UBound(A, 1)
   
6.     For j = LBound(A, 2) To UBound(A, 2)
   
7.         MC(i, j) = A(i, j) + B(i, j)
   
8.     Next j
   
9. Next i
   
10. Madd = MC
    
11. End Function

複製代碼

s100310424

回復 3# Scott090

謝謝你~~~ 可以動作了，心感恩