vba 单元格背景色_VBA小技巧03:获取颜色的十六进制代码

学习Excel技术,关注微信公众号:

excelperfect

有时候,我们需要某些颜色对应的十六进制代码,可能是需要设计网站,也可能是需要开发Web应用。

在Excel中,我们可以通过“填充颜色——更多颜色”在单元格中插入各种各样的背景色,如下图1所示。

b869fa121433edb72d01b1802bb8b3af.png

图1

然而,这些自定义的颜色只有GRB值,如果想要其相应的十六进制代码,其实可以使用VBA来获取。如下图2所示,选取带有背景色的单元格区域,运行代码,则会在相应背景色单元格右侧相邻单元格中输入对应颜色的十六进制代码。

3e31ac2f85d38e8bb432503012e23f68.png

图2

代码如下:

'确定颜色的十六进制代码

Sub ColorHexCode()

    '变量声明

    Dim rng As Range

    Dim strHexCode As String

    '确保选择了单元格区域

    If TypeName(Selection) <>"Range" Then Exit Sub

    '遍历所选区域的每个单元格

    For Each rng In Selection.Cells

        '确保单元格中填充有背景色

        If rng.Interior.ColorIndex <>xlNone Then

            '获取十六进制值

            strHexCode = Right("000000" & Hex(rng.Interior.Color), 6)

            '反转十六进制值

            strHexCode = Right(strHexCode, 2)& Mid(strHexCode, 3, 2) & Left(strHexCode, 2)

            '添加#号并将值显示在相邻的右侧单元格

            rng.Offset(0, 1).Value ="#" & strHexCode

        End If

    Next rng

    '只选择活动单元格

    ActiveCell.Select

End Sub

上述代码的图片版如下:

c3b8e5f54c10ef98aee2a3df81979c6f.png

b10d9d3b1eb50b9268e48cc848e210bb.png

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
目录 01001获取Excel版本 01002获取Excel安装路径 01003获取当前用户名称 01004获取注册组织名称 01005获取当前操作系统名称和版本号 01006获取启动Excel路径 01007获取打开Excel文件时默认路径 01008获取模板保存默认路径 01009获取库文件夹路径 01010获取路径分隔符 01011获取Excel主窗口标题栏名称 01012获取Excel窗口状态(大) 01013获取Excel主窗口高度和宽度 01014获取Excel主窗口左边界位置和顶端位置 01015获取在Excel主窗口中一个窗口所能占有最大高度和宽度 01016获取当前打印机名称 01017获取MicrosoftExcel剩余内存 01018获取MicrosoftExcel总内存 01019获取计算机被Excel占用内存 01020改变Excel窗口大 01021改变Excel显示位置 01022将Excel移动到屏幕以外 01023隐藏Excel 01024改变Excel标题文字 01025删除Excel标题文字 01026将Excel设置为全屏显示 01027在状态栏中显示信息 01028显示、隐藏状态栏 01029显示、隐藏编辑栏 01030显示、隐藏常用工具栏 01031显示、隐藏格式工具栏 01032显示、隐藏任务窗格 01033改变鼠标指针形状 01034切换手动、自动计算 01035切换A1引用样式、R1C1引用样式 01036设置按【Enter】键后单元格移动方向 01037设置最近使用文件清单中最多文件数 01038设置新工作簿中工作表个数 01039设置文件默认位置 01040设置保存自动恢复文件时间间隔和保存位置 01041停止屏幕刷新 01042使事件无效 01043使取消键无效 01044不显示警告信息对话框 01045设置使用打印机 01046安装加载宏 01047利用GetOpenFilename方法获取文件名 01048利用GetOpenFilename方法获取某类型文件名 01049改变GetOpenFilename方法默认路径 01050改变GetOpenFilename方法标题文字 01051使用GetOpenFilename方法时出现错误处理 01052利用GetSaveAsFilename方法获取文件名 01053利用CentimetersToPoints方法将计量单位从cm转换为磅 01054利用InchesToPoints方法将计量单位从in转换为磅 01055显示Excel内置对话框 01056显示常用Excel内置对话框 01057获取Excel菜单栏信息 01058获取Excel图表工具栏信息 01059获取Excel常用工具栏信息 01060获取Excel格式工具栏信息 01061获取Excel数据透视表工具栏信息 01062获取ExcelWeb工具栏信息 01063获取Excel审阅工具栏信息 01064获取Excel窗体工具栏信息 01065获取Excel外部数据工具栏信息 01066获取Excel公式审核工具栏信息 01067获取Excel控件工具箱工具栏信息 01068获取Excel绘图工具栏信息 01069获取Excel命令按钮外观图像和FaceID号(添加到自定义工具栏) 01070获取Excel命令按钮外观图像和FaceID号(输出到工作表) 01071改变Excel命令按钮外观图像 01072删除、恢复Excel菜单栏和工具栏 01073隐藏Excel菜单栏和工具栏 01074显示Excel默认菜单栏和工具栏 01075执行菜单栏和工具栏命令按钮 01076改变工作表单元格快捷菜单 01077在工作表任意位置快速显示快捷菜单 01078在单元格中输入公式 01079在单元格中输入数字 01080在单元格中输入文本 01081单元格区域引用 01082在单元格中输入数字和文本 01083为输入对话框设置默认值 01084在指定时间运行程序(之一) 01085在指定时间运行程序(之二) 01086计划在未来运行一定时间宏 01087计划每隔一段时间运行宏 01088取消以前计划运行宏 01089结束应用程序 02001通过索引指定工作簿 02002通过名称指定工作簿 02003引用当前活动工作簿 02004引用最后打开工作簿 02005引用当前宏代码运行工作簿 02006引用新建工作簿 02007引用包含特定工作表工作簿 02008判断工作簿是否已经打开(之一) 02009判断工作簿是否已经打开(之二) 02010判断工作簿是否已经保存(之一) 02011判断工
©️2020 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页