VBA:单元格实例(格式化工资条),拾取的颜色求平均
Sub 格式化工资条()
Dim i%
i = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To i
If j Mod 2 Then
With Cells(j, 1).EntireRow.Range(\"a1:g1\").Font
.Bold = True
.Size = 8
.ColorIndex = 56
End With
Else
With Cells(j, 1).EntireRow.Range(\"a1:g1\").Interior
.ColorIndex = 40
End With
End If
Next j
End Sub
Sub 清除格式化()
Selection.ClearFormats
End Sub
案例二:
Sub 根据查找功能拾取的颜色求平均()
On Error GoTo 100
Dim erng As Range, rng As Range, i As Long
i = Application.FindFormat.Interior.Color
Set erng = Cells(Rows.Count, \"e\").End(xlUp)
For Each rng In Range([b2], erng)
If