VBA颜色转换中英互译

Ailsa2019

已于 2022-03-20 11:21:00 修改

阅读量827

点赞数

分类专栏：其它文章标签： vba excel

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

本文链接：https://blog.csdn.net/Ailsa2019/article/details/122186178

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

英转中

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:="玫红"