2

「実行時エラー '1004': アプリケーション定義またはオブジェクト定義のエラーです。私の if then ステートメントは、比較されているオブジェクトの 1 つを認識していません。私が間違っていることを理解するのを手伝ってください。

Sub Enter_deposits()

    Sheets("Deposits").Activate

    Dim x As Integer
    Dim y As Integer


    For x = 4 To 21
        For y = 10 To 500
            If Sheets("deposits").Range(2, 4).Value = Sheets((Cells(x, 14).Value)).Range(y, 2).Value _
                    And Sheets((Cells(x, 14).Value)).Range(y - 1, 3) = 0 _
                    And Sheets("deposits").Range(x, 15).Value <> Sheets((Cells(x, 14).Value)).Range(y, 3) Then

                Sheets("deposits").Range(x, 15).Copy
                Sheets((Cells(x, 14).Value)).Range(y, 3).PasteSpecial xlPasteValues

            Else

            End If
        Next y
    Next x
End Sub
4

1 に答える 1

4

範囲オブジェクトとセル オブジェクトが VBA でどのように機能するかを理解する必要があります。たとえば、"D2"「預金」シートのセルの値を参照したい場合は、次のいずれかを使用してこれを行うことができます。

Sheets("deposits").Range("D2").value

また

Sheets("deposits").Cells(2,4).value

コード内でこれら 2 つのオブジェクトの使用を混同しているようです。

于 2013-11-04T15:09:29.800 に答える