求教：不知代码错哪了？正确的如何写？谢谢！

wjk7222

问题：设 单元格 的 行数 为 i , 列数 为 j 。如果 单元格Cells(i, j) 为黄色，那么，将 单元格Cells(i, j + 6) 填充为 绿色，如何用VBA实现？
我写了个VBA 代码，但 调试运行时 却总是 提示出错，不知错哪了？请高手指教！谢谢


Private Sub CommandButton1_Click()
Dim i, j As Integer
Set MySheet1 = ThisWorkbook.Worksheets("Sheet1")
For i = 1 To 1000
For j = 1 To 1000
   If MySheet1.Cells(i, j).Interior.Color = 65535 Then
     MySheet1.Cells(i, j + 6).Interior.Color = 65280
  End If
Next
End Sub

3190496160

Sub cs()
Dim i, j As Integer
With Worksheets("Sheet1")
    ws = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    For i = 1 To ws
        For j = 1 To y
             If .Cells(i, j).Interior.ColorIndex = 6 Then
               .Cells(i, j + 6).Interior.ColorIndex = 10
            End If
        Next j
    Next i
End With
End Sub

wjk7222

谢谢高手！

wjk7222

再请教高手：  我把 上面二楼的代码，复制 到 excel VBA 控件的 命令按钮 控件 CommandButton1
上，然后点击运行，没有显示结果，没反应。请问 是我应用错了吗？谢谢！