VBA颜色转换中英互译

原创

已于 2022-03-20 11:21:00 修改 · 880 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel

于 2021-12-28 10:08:50 首次发布

本文介绍了如何在VBA中进行颜色代码的中英互译，涵盖了从英文颜色代码转换为中文描述，以及中文颜色名称转化为英文代码的过程。

英转中

Sub 颜色英中转换()
    Cells.Replace What:="White and Black", Replacement:="白+黑"
    Cells.Replace What:="Rose Red", Replacement:="玫红"
    Cells.Replace What:="AS PIC", Replacement:="如图"
    Cells.Replace What:="Darkblue", Replacement:="深蓝"
    Cells.Replace What:="Flesh", Replacement:="肉色"
    Cells.Replace What:="Brown", Replacement:="棕色"
    Cells.Replace What:="Black", Replacement:="黑色"
    Cells.Replace What:="White", Replacement:="白色"
    Cells.Replace What:="Clear", Replacement:="透明"
    Cells.Replace What:="Grey", Replacement:="灰色"
    Cells.Replace What:="Pink", Replacement:="粉色"
    Cells.Replace What:="Fuchsia", Replacement:="玫红"
    Cells.Replace What:="Purple", Replacement:="紫色"
    Cells.Replace What:="Blue", Replacement:="蓝色"
    Cells.Replace What:="Green", Replacement:="绿色"
    Cells.Replace What:="Orange", Replacement:="橙色"
    Cells.Replace What:="Red", Replacement:="红色"
    Cells.Replace What:="Silver", Re