在简单的 VBA 矩阵代码中键入不匹配错误

Question

Sub MacroTemp()

   Dim i, j As Integer
   Dim c(1, 1) As Double
   For i = 0 To 1
        For j = 0 To 1
            c(i, j) = i + j
            Sheets(Sheet2).Cells(i + 1, j + 1).Value = c(i, j)
         Next j
    Next i
End Sub

It is showing Type Mismatch Error.So what is wrong in this code?

Answer 1

It doesn't look like you are referencing Sheet2 correctly.

If Sheet2 is the name of your worksheet, then you can reference it like so:

Sheets("Sheet2").Cells(i + 1, j + 1).Value = c(i, j)

Alternatively, if Sheet2 is the code name of the worksheet that you are referring to, you can use this:

Sheet2.Cells(i + 1, j + 1).Value = c(i, j)

I am assuming you haven't declared a string variable Sheet2 anywhere.