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

2024-12-03 08:53:01

推荐回答（3个）

回答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

回答2：

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

回答3：

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