（预期表达式）vba 错误

Question

所以基本上我的代码是这样的：

Sub clor2()

For j = 0 To 10    
  For i = 0 To 10    
  if i mod = 0 and and j mod=0 then    
    [D2].Offset(j, i).Interior.ColorIndex = 37       
 Else    
[D2].Offset(j, i).Interior.ColorIndex = 36    
End If        
  Next i    
  Next j        
End Sub

Answer 1

mod 运算符像这样使用5 mod 2 = 1 和6 mod 2 = 0.VBA equivalent to Excel's mod function。

因此，条件应该是i Mod SomeNumber = 0。

Option Explicit

Sub clor2()
    Dim j As Long, i As Long

    For j = 0 To 10
        For i = 0 To 10
            If i Mod 3 = 0 And j Mod 7 = 0 Then
                [D2].Offset(j, i).Interior.ColorIndex = 37
            Else
                [D2].Offset(j, i).Interior.ColorIndex = 36
            End If
        Next i
    Next j    

End Sub

Option Explicit 在 VBA 中也是一个很好的实践——因此你的变量 i 和 j 应该被声明。 - VBA: problems with defining variables in function if Option Explicit is used