请老师帮我写段VBA代码，谢谢。

Question

Excel 2007
自动获取工作表奇数行和偶数行
如果偶数行的C8有数值，则单元格C8:R8填充为黄色
如果奇数行的C9有数字，则单元格C9:R9填充为绿色

以此类推，偶数行C10..C12..C14......G1048576有数值填充为黄色....奇数行C11..C13..C15......C1048575填充为绿色.......
汇总表

Answer 1

Public Sub iColor()
Dim c As Range, iRng As Range, Rng As Range, re&, col%, tmp
With ActiveSheet '操作的工作表，当前活动sheet表

'<<----根据实际情况，改动下面两个变量的值----
Set iRng = .Range("C:R") '填充颜色的列位置
Set Rng = .Range("C1") '判断开始的第一个单元格
'----改动结束---->>

re = .UsedRange.Rows.Count + .UsedRange.Row - 1
If re < Rng.Row Then MsgBox "条件列内无数据", vbCritical: Exit Sub
col = Rng.Column
For Each c In .Range(Rng, .Cells(re, col))
If c.Value <> "" Then
tmp = IIf(c.Row Mod 2, vbGreen, vbYellow)
iRng.Rows(c.Row).Interior.Color = tmp
End If
Next
End With
End Sub追问

先谢谢各位的回答。
我复制代码后没任何反应，假设我的活动工作表名是“汇总表”该怎么写？

追答

在当前sheet表的名字上，右键，查看代码，将上面的代码复制到代码窗里面（当前sheet的代码窗，看窗口标题），然后按F5运行一次

---------
下面的 回答者： 714egcyvn |，都回答了1590个问题，还“第一次回答问题”？？！！

Answer 2

将下面的代码复制到VBA中，然后运行
Sub Macro1()
If Sheet3.Range("A5") < Date Then
Sheet8.Range("A5") = "过期"
End If
If sheet5.Range("A46")<>0 Then
Sheet8.Range("A46")="不平"
Else
Sheet8.Range("A46")="平衡"
end if
End Sub

怎么也要点分数，我是今天申请的帐号，第一次回答问题。
另外：百度的这个编辑器用起来真不方便。

Answer 3

Sub 奇偶数行()
Dim i
For i = 8 To 65536
If i Mod 2 = 0 And Not IsEmpty(Cells(i, 3).Value) Then Range("c" & i & ":r" & i).Interior.ColorIndex = 6
If i Mod 2 = 1 And Not IsEmpty(Cells(i, 3).Value) Then Range("c" & i & ":r" & i).Interior.ColorIndex = 10
Next
End Sub