请问语句能用变量代替吗？有什么变通的方法

Question

Private Sub Command1_Click()
Dim SQL1 As Boolean
Dim SQL2 As Boolean
Dim SQL3 As Boolean
Dim SQL4 As Boolean
SQL1 = MSHFlexGrid1.TextMatrix(i, j + 9) > ""
SQL2 = MSHFlexGrid1.TextMatrix(i + 1, j + 8) > ""
SQL3 = MSHFlexGrid1.TextMatrix(i + 2, j + 7) > ""
SQL4 = MSHFlexGrid1.TextMatrix(i + 3, j + 8) > ""
For i = 1 To Adodc1.Recordset.RecordCount - 4
For j = 1 To 33
If SQL1 And SQL2 And SQL3 And SQL4 Then
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = j + 9
MSHFlexGrid1.CellBackColor = &HFF&
MSHFlexGrid1.Row = i + 1
MSHFlexGrid1.Col = j + 8
MSHFlexGrid1.CellBackColor = &HFF&
MSHFlexGrid1.Row = i + 2
MSHFlexGrid1.Col = j + 7
MSHFlexGrid1.CellBackColor = &HFF&
MSHFlexGrid1.Row = i + 3
MSHFlexGrid1.Col = j + 8
MSHFlexGrid1.CellBackColor = &HFF&
End If
Next j
Next i
End Sub

Answer 1

谢谢了，太崇拜你了，问题解决了