关于VBA设置单元格格式，负数显示红色

liangheng007

如题所述，本来可以用range.numberformatlocal="#,##0;[红色]-#.##0"来设置，但是由于所用操作系统非中文，上述“红色”二字无法识别会出错，是否有别的设置方法。

另外比如中文系统编写的VBA程序，如果其中包含中文字，到其他语言系统，比如日文，则会显示乱码，有什么便捷的方法可以转码吗？VBE的工具→选项→编辑器格式中更改字体只能转换显示，但无法转码。

以上，望指教，谢谢。

autolzg

把红色换成Red试试

liangheng007

red 试过了，中文系统无法识别，有其他语句设置吗？

y1983y

用条件格式
录制宏
        .Range("f6:h200").Select
        Selection.FormatConditions.add Type:=xlCellValue, Operator:=xlLess, Formula1:="=0"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Font
            .Bold = True
            .Italic = False
            .Color = -16776961
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False

liangheng007

y1983y 发表于 2019-11-8 14:55
用条件格式
录制宏
        .Range("f6:h200").Select

感谢回复，谢谢！