³]­p¤@­Ó°}¦C¬Û¥[¥i¬O±o¨ìªº­È¤@ª½¬O#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

¤W­±¬O§Úªº¨ç¼Æ
¦Ó§Ú¦bªí³æ¿é¤J{=Madd(A1:B2),(C1:D2))}----¦³¨Ï¥Îctrl+shifu+enter
¤j·§¬O³o¼Ë

¤U¸ü (77.88 KB)

2015-6-4 01:26

½Ð°Ý¬°¤°»ò§ÚŪ¤£¨ìA,Bªº­È©O

½Ð¤j®aÀ°À°¦£ ·PÁÂ

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

©ÎªÌ¡G

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

½Æ»s¥N½X

s100310424

¦^´_ 3# Scott090

ÁÂÁ§A~~~ ¥i¥H°Ê§@¤F¡A¤ß·P®¦