'COPYRIGHT BY dropit.liu.
Private Sub CommandButton1_Click()

    A_INPUTBOX_address = Application.InputBox("", Type:=8).Address '取得位置

    A_INPUTBOX = ActiveSheet.Range(A_INPUTBOX_address).Value '取得資料

    b_INPUTBOX_address = Application.InputBox("", Type:=8).Address '取得位置

    b_INPUTBOX = ActiveSheet.Range(b_INPUTBOX_address).Value '取得資料
    
    A_CHECK = UBound(A_INPUTBOX)
    
    B_CHECK = UBound(b_INPUTBOX)
    
    If A_CHECK <> B_CHECK Then
    
        MsgBox "矩陣不對稱"
    
    End If
    
    For i = LBound(A_INPUTBOX) To UBound(A_INPUTBOX) Step 1
        
        For j = LBound(A_INPUTBOX) To UBound(A_INPUTBOX) Step 1
        
            A_INPUTBOX(i, j) = A_INPUTBOX(i, j) + b_INPUTBOX(i, j)
        
        Next j
                
    Next i
    
    Call sheet_name_check_delete("矩陣相加結果")
    
    Call 矩陣輸出("矩陣相加結果")
    
End Sub