マイVBAエクセル2013のコードは

Question

をコンパイルされていません。
コンパイルエラー：：次
のためにすることなく、しかし間違いなく、それぞれ次のための場合があり

Private Sub Workbook_Open() 
Dim i As Integer 
Dim j As Integer 
Dim range1 As Integer 
Dim range2 As Integer 
range1 = 53 
range2 = 102 

For i = range1 To range2 
    For j = (range1 - 50) To (range2 - 50) 

     If Cells(2, i) = Cells(2, j) Then 
      If Cells(7, i) > Cells(7, j) Then 
      Cells(2, i).Interior.ColorIndex = 37 'Went up; Green 
      ElseIf Cells(7, i) = Cells(7, j) Then 
      Cells(2, i).Interior.ColorIndex = 37 'No change; Grey 
      Else 
      Cells(2, i).Interior.ColorIndex = 37 'Went down; Red 
     End If 

    Next j 
    If Cells(2, i).Interior.ColorIndex = 0 Then 'Hasn't Changed; No Fill 
    Cells(2, i).Interior.ColorIndex = 37 'New Song; Blue 
    End If 

Next i 
End Sub 

エラーが言って表示されます。
だからどこが間違っていたのですか？
注： '37'はフィラーの数字です。明るい青色で表示されます。一貫した方法でコードをインデント

Answer 1

は以下を与える：

Private Sub Workbook_Open() 
    Dim i As Integer 
    Dim j As Integer 
    Dim range1 As Integer 
    Dim range2 As Integer 
    range1 = 53 
    range2 = 102 

    For i = range1 To range2 
     For j = (range1 - 50) To (range2 - 50) 

      If Cells(2, i) = Cells(2, j) Then 
       If Cells(7, i) > Cells(7, j) Then 
        Cells(2, i).Interior.ColorIndex = 37 'Went up; Green 
       ElseIf Cells(7, i) = Cells(7, j) Then 
        Cells(2, i).Interior.ColorIndex = 37 'No change; Grey 
       Else 
        Cells(2, i).Interior.ColorIndex = 37 'Went down; Red 
       End If 

       Next j ' <--- This Next has no For associated with it 

       If Cells(2, i).Interior.ColorIndex = 0 Then 'Hasn't Changed; No Fill 
        Cells(2, i).Interior.ColorIndex = 37 'New Song; Blue 
       End If 
      Next i 
     End Sub 

あなたは非常に迅速にNext jは現在Ifブロック内で、それに関連したFor文を持っていないことをインデントレベルで伝えることができます。これがあなたのエラーを得る理由です。

私はあなたが直前にEnd Ifを持っていることを意図していることを疑うことNext jので、あなたのコードは次のようになります。あなたが `どこか` j`ループのために（おそらくちょうど内If`を終了不足している

Private Sub Workbook_Open() 
    Dim i As Integer 
    Dim j As Integer 
    Dim range1 As Integer 
    Dim range2 As Integer 
    range1 = 53 
    range2 = 102 

    For i = range1 To range2 
     For j = (range1 - 50) To (range2 - 50) 

      If Cells(2, i) = Cells(2, j) Then 
       If Cells(7, i) > Cells(7, j) Then 
        Cells(2, i).Interior.ColorIndex = 37 'Went up; Green 
       ElseIf Cells(7, i) = Cells(7, j) Then 
        Cells(2, i).Interior.ColorIndex = 37 'No change; Grey 
       Else 
        Cells(2, i).Interior.ColorIndex = 37 'Went down; Red 
       End If 
      End If  

     Next j 

     If Cells(2, i).Interior.ColorIndex = 0 Then 'Hasn't Changed; No Fill 
      Cells(2, i).Interior.ColorIndex = 37 'New Song; Blue 
     End If 
    Next i 
End Sub