Question

如何通过VBA控制excel 单元格输出格式？请高手指教

需设置sheet 1，G6单元格的格式：1. 不填时无特殊格式；2.填大于等于90且小于等于100的数字为绿底；3.大于等于80且小于90为黄底；4. 大于等于0且小于80为红底；5. 如输入其他文字和数字（0-100以外的数字）则显示“Error“。

Answer 1

按ALT+F11，双击左边的Sheet1，输入如下内容。然后到表中测试即可。

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G6") = "" Then
Range("G6").Interior.Color = xlNone
ElseIf Range("G6") >= 90 And Range("G6") <= 100 Then
Range("G6").Interior.Color = vbGreen
ElseIf Range("G6") >= 80 And Range("G6") < 90 Then
Range("G6").Interior.Color = vbYellow
ElseIf Range("G6") >= 0 And Range("G6") < 80 Then
Range("G6").Interior.Color = vbRed
Else
Range("G6").Interior.Color = xlNone
Range("G6").Formula = "Error"
End If
End Sub

Answer 2

使用条件格式，如果有限制，将1和4并起来 使用公式 =AND($A$2<80,$A$2>=0,$A$2<>"")
2、3条使用条件格式 你懂的~，5.使用数据有效性你也懂的~

Answer 3

用条件格式和数据有效性就可以实现

追问

我电脑中Excel是2003版的，条件格式只可以写3条。没办法写完！

追答

你的题目就是3个条件：2、3、4
第 1 可以不设格式
第5 用数据有效性

追问

不设置1的话，不填时是红色的

追答

第4个条件设置为公式 =and（g6>=0,G6"")