å¯ä»¥ä½¿ç¨VBAç¼åèªå®ä¹å
¬å¼ã
å°å¦ä¸ä»£ç è¾å
¥å°æ件模åä¸ã
Public Function Color_Red(Range1 As Range, Range2 As Range)
If Range1.Font.Color = vbRed And Range2.Font.Color <> vbRed Then Color_Red = "ç²è¶
è¿èå´"
If Range1.Font.Color = vbRed And Range2.Font.Color = vbRed Then Color_Red = "ç²ãä¹è¶
è¿èå´"
If Range1.Font.Color <> vbRed Then Color_Red = ""
End Function
温馨提示:答案为网友推荐,仅供参考