VBA相互减去两个不同的3维数组

Question

我是 Vba 的新手，需要用宏和 vba 解决特定问题。希望你能帮我解决这个问题！

我尝试构建一个可以帮助我完成以下步骤的宏：

1. 我使用一个“驾驶舱文件”，我想用它从两个工作表中减去所有单元格。我从两个不同的工作簿中获取工作表。 ;-) 例如：我想从 F11 (Workbook2.Worksheet1) 中减去单元格 F11 (Workbook1.Worksheet1)，而不是从 F12 (Workbook2.Worksheet1) 中减去 F12 (workboosk1.worksheet1)，[...] J34 (Wb1 .ws1.) 来自 J34(Wb2.ws.1)
2. 我想更改和选择文件。因此，我需要一个可以选择特定文件的窗口。
3. 为避免错误，应通过 vba 中的数组完成数学运算。并且应该在其中一个工作簿中添加新值

我尝试使用循环来解决数学问题，但它不起作用。当我来到减法公式时，我得到运行时错误 13。

希望你能帮助我！对不起我的英语不好

这是我的代码

Sub Makro4()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

    'Variabledef
    Dim i As Long 'Index
    Dim j As Long 'Index
    Dim k As Long 'Index
    Dim ArrayA As Variant 'Array
    Dim ArrayB As Variant 'Array
    Dim ArrayC As Variant 'Array
    Dim MyFile1 As String 'Workbookname
    Dim MyFile2 As String 'Workbookname
    Dim wb1 As String 'Workbookname
    Dim wb2 As String 'Workbookname
    Dim WS_Count1 As Integer 'Count Worksheets
    Dim WS_Count2 As Integer 'Count Worksheets
    Dim arrays1 As String 'Dimension
    Dim arrays2 As String 'Dimension


    'Change the actual path

    ChDrive "O:\"
    ChDir "O:[.......]\VBA"


    'Selection first File

    MyFile1 = Application.GetOpenFilename
    Workbooks.Open Filename:=MyFile1, ReadOnly:=True, IgnoreReadOnlyRecommended:=True
    wb1 = ActiveWorkbook.Name
    ArrayA = Workbooks(wb1).Worksheets("01").Range("F11:GL46").Value
    WS_Count1 = ActiveWorkbook.Worksheets.Count


    'Selection second File

    MyFile2 = Application.GetOpenFilename
    Workbooks.Open Filename:=MyFile2, ReadOnly:=True, IgnoreReadOnlyRecommended:=True
    wb2 = ActiveWorkbook.Name
    ArrayB = Workbooks(wb2).Worksheets("01").Range("F11:GL46").Value
    WS_Count2 = ActiveWorkbook.Worksheets.Count



' Calculation of the math - Runtime Error 13

    For k = 1 To WS_Count1
        For i = LBound(ArrayA, 1) To UBound(ArrayA, 1)
            For j = LBound(ArrayA, 2) To UBound(ArrayA, 2)
                ArrayC(i, j) = ArrayA(i, j) - ArrayB(i, j)
            Next j
        Next i

        Worksheets("k").Range("F11:GL34").Value = ArrayC

    Next k


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Answer 1

ArrayC 尚未初始化。它被定义为Variant，这意味着在将某些东西分配给变量之前，类型是未知的。

通过ArrayC(i, j) = ArrayA(i, j) - ArrayB(i, j) 这一行，您已经假设ArrayC 拥有一个数组，但它还没有。

首先在你的脑海中定义ArrayC，像这样Dim ArrayC()。这样它就被明确定义为一个数组。仍然没有大小。

现在在For k = 1 To WS_Count1 行之前，您以这种方式设置数组的维度ReDim ArrayC(UBound(ArrayA,1) ,UBound(ArrayA,2)) 这应该会创建一个与ArrayA 大小相同的二维数组。 现在你有一个完全初始化的数组

现在你的程序应该可以运行了。