[已解决]负数红色在VBA中的表达

SFSH

诸位大侠:

我在编辑VBA语句时,要把对负数的颜色设置为红色:
    Range("F22").Select
    Selection.NumberFormatLocal = "#,##0_ ;[Red]-#,##0 "
可是因为Office中英文版的关系, 当别人使用该宏时, 会出错, Red应该改用汉字才能通过.

请问大家,如何修改以上语句,使得中英文都能运行通过. 谢谢

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-8-1 18:04

直接判断数字，然后通过颜色参数值来做，参考代码

1. Range("F22").Select
   
2.     With Selection
   
3.         If .Value < 0 Then
   
4.             .Font.ColorIndex = 3
   
5.         End If
   
6.     End With

复制代码

跳转到最佳答案楼层

望帝春心

直接判断数字，然后通过颜色参数值来做，参考代码

1. Range("F22").Select
   
2.     With Selection
   
3.         If .Value < 0 Then
   
4.             .Font.ColorIndex = 3
   
5.         End If
   
6.     End With

复制代码

雪舞子

删除语句中“[red]”，
后面加上一句：
If Selection.Value < 0 Then Selection.Font.ColorIndex = 3 Else Selection.Font.ColorIndex = xlAutomatic