Msgbox行のExcel VBAエラー

Question

Msgbox行にアプリケーション定義またはオブジェクト定義のエラーが発生しました。私は両方のInputBox変数をStringとして宣言しています。シート（sheetname1）を実際のシート名に変更しようとしましたが、同じエラーが発生しました。私は知っているすべてを試しました、私はこのエラーに困惑しています。どんな助けもありがとうございます。

sheetname1 = Application.InputBox("Enter the name of your first sheet.") 
sheetname2 = Application.InputBox("Enter the name of your second sheet.") 
For i = 1 To 100 
    For j = 1 To 100 
     If Not Sheets(sheetname1).Cells(i, j).Value = Sheets(sheetname2).Cells(i, j).Value Then 
      Sheets(sheetname1).Select 
      Cells(i, j).Select 
      With Selection.Interior 
       .Pattern = xlSolid 
       .PatternColorIndex = xlAutomatic 
       .Color = 65535 
       .TintAndShade = 0 
       .PatternTintAndShade = 0 
      End With 
      ans = MsgBox("Cells " & i & "," & j & " do not match." & vbNewLine & "The value on " & sheetname1 & " is " & Sheets(sheetname1).Cells(i, j).Value & " and the value on " & sheetname2 & " is " & Sheets("sheetname2").Cells(i, j).Value, vbOKCancel + vbQuestion) 
      If ans = vbCancel Then Exit Sub 
      Else 
       GoTo skip1 
     End If 
skip1: 
    Next j 
Next i 

Answer 1

@BruceWayne correctly identifiedは、宣言されていない変数を使用しています。 Option Explicitを使用してください。

私はそれを修正してくださいしてみましょう...

は常にシンプル

明示的なオプションを使用します。 のトップにあなたが表示されごとに単一のモジュールを言葉 Option Explicitスティック、およびVBAコードどこをコンパイルすることを拒否します宣言されていない変数を使用しています。この場合

、あなたは彼らが宣言されていないと初期化されていない変形しているので、両方は、非値Emptyを含んでいる、i1とj1に言及しています。ここで

はあなたが宣言する必要がある変数です：

Dim i As Long 
Dim j As Long 
Dim ans As vbMsgBoxResult 
Dim sheetName1 As String 
Dim sheetName2 As String 

をOption Explicitがなければ、VBAは喜んでタイプミスをコンパイルし、としてそれを取る「ああ、私はその男を見たことがない、新しい変数でなければなりません！」