2007年2月4日星期日

一段隔列将选择区域字体加粗和一段将选择区域的空格填0的excel宏代码


'隔列加粗
Sub BoldColumns()
Dim col
For Each col In Selection.Columns
If col.Column Mod 2 = 0 Then col.Font.Bold = True
Next
End Sub

'空格填0
Sub zeros()
Dim cel
For Each cel In Selection.Cells
If cel.Value = "" Then
cel.Value = "0"
cel.Interior.ColorIndex = 1
cel.Interior.Pattern = xlSolid
cel.Font.ColorIndex = 2
End If
Next
End Sub