1: Sub Macro1()
2: Dim i As Integer
3: Dim x As String
4: For i = 1 To Sheet1.UsedRange.Rows.Count
5: With Sheet1.Rows(i).Interior
6: x = Cells(i, 3)
7: If x = "是" Then
8: Call Macro2(i, 3, 15773696)
9: ElseIf x = "否" Then
10: Call Macro2(i, 3, 5296274)
11: End If
12: End With
13: Next
14: End Sub
15:
16: Sub Macro2(x As Integer, y As Integer, colorIndex As Long)
17: Range(Cells(x, y), Cells(x, y)).Select
18: With Selection.Interior
19: .Pattern = xlSolid
20: .PatternColorIndex = xlAutomatic
21: .color = colorIndex
22: .TintAndShade = 0
23: .PatternTintAndShade = 0
24: End With
25: Range("G18").Select
26: End Sub
27:
28:
29: 或
30: Sub Macro1()
31: Dim i As Long
32: Dim x As String
33: Columns(3).Interior.ColorIndex = xlNone
34: For i = 1 To Sheet1.UsedRange.Rows.Count
35: With Sheet1.Rows(i).Interior
36: x = Cells(i, 3)
37: If x = "是" Then
38: Cells(i, 3).Interior.ColorIndex = 5
39: End If
40: End With
41: Next
42: End Sub