如何用VBA来自动隔行填充颜色

jack007

如题，
我会用以下语句来判断奇偶行数
但是不会用命令来填充颜色，注意 红色代码是错的！请高人指点。
Dim addcs As Long
  addcs = Worksheets("CT").Range("G65536").End(xlUp).Row + 1
If addcs Mod 2 = 0 Then
    RANGE(CELL(ADDCS,1).Interior.ColorIndex = 36
  Else
    RANGE(CELL(ADDCS,1).Interior.ColorIndex = xlColorIndexNone
End If

[ 本帖最后由 jack007 于 2011-3-29 20:58 编辑 ]

dragonthree

这只给一行填充了颜色吧！
cells(i,1).entirerow

lijiawu1122

应该用FOR I=1 TO ADDCS STEP 2
            RANGE(i,1).Interior.ColorIndex = 36
            NEXT i

dragonthree

Dim addcs As Long
  addcs = Worksheets("CT").Range("G65536").End(xlUp).Row + 1
For i = 1 To addcs
If i Mod 2 = 0 Then
    Cells(i, 1).EntireRow.Interior.ColorIndex = 36
  Else
    Cells(i, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone
End If
Next

jack007

谢谢 大家
以下代码 才是我需要的，这段代码是放在 sub add()里面的，可以每次增加一行数据时自动隔行填充颜色，不要用for 循环
  Dim addcs As Long
  addcs = Worksheets("CT").Range("G65536").End(xlUp).Row + 1
If addcs Mod 2 = 0 Then
    Cells(addcs, 1).EntireRow.Interior.ColorIndex = 36
  Else
    Cells(addcs, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone
End If

旭日升

要自动，还不用循环的话，　只能使用事件触发了。
Sub WORKSHEET_CHANGE(ByVal TARGE As Range)
Dim addcs&
addcs = Worksheets("CT").Range("G65536").End(xlUp).Row
If addcs Mod 2 = 0 Then
    Cells(addcs, 1).EntireRow.Interior.ColorIndex = 36
  Else
    Cells(addcs, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone
End If
End Sub

qing0408

没有完整代码？

liyn0235

Sub ADD() Dim addcs As Long, i%   addcs = Worksheets("SHEET5").Range("A65536").End(xlUp).Row + 1      For i = 1 To addcs If i Mod 2 = 0 Then     Cells(i, 1).EntireRow.Interior.ColorIndex = 36   Else     Cells(i, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone End If Next End Sub

liyn0235

Sub ADD()
Dim addcs As Long, i%
  addcs = Worksheets("SHEET5").Range("A65536").End(xlUp).Row + 1
  
  For i = 1 To addcs
If i Mod 2 = 0 Then
    Cells(i, 1).EntireRow.Interior.ColorIndex = 36
  Else
    Cells(i, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone
End If
Next
End Sub

zxx212

最后知道范围的话，直接VBA增加一个条件格式快点，FOR循环数很大的话