作者：乔山办公网日期：
返回目录：excel表格制作
您好，百您的需求可以通过 VBA 添加单元度格的条件格式来专实现，演示代属码如下：
Public Sub SetTop5()
Dim t5 As Top10
Set t5 = Union(Range("B1:B10"), _
Range("D1:D10"), _
Range("F1:F10"), _
Range("H1:H10")).FormatConditions.AddTop10
With t5
.TopBottom = xlTop10Top
.Rank = 5
.Interior.Color = &HCEC7FF
End With
Set t5 = Nothing
End Sub
dim n as integer
n=range("A1")
另外,站长团上有产品团购,便宜有保证
放在代码窗口的声明区百就可以
看到那条横线度吗？放在横线上面就行，如果你的代码窗口没有看到横线，知直接放到道最上面第一行就好了。版另外你的后面两句不权能放到声明区，这个赋值语句放到你最先执行的sub里面，或者Workbook_Open()里面。
这是你没开启宏吧？程序根本没运行！