设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 8684|回复: 1
打印 上一主题 下一主题

[模块/函数] vba颜色和RGB颜色互转

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2015-5-27 17:01:02 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 盗梦 于 2015-5-27 18:01 编辑

要看懂这个贴的内容,需要知道下面几个知识点:

1、vba颜色数据类型是 Long
2、RGB是一种颜色表示方式,颜色是可以用红色(Red)、绿色(Green)、蓝色(Blue) 按照一定比例混合而成。
3、RGB颜色是十六进制体现的,例如 白色是FFFFFF,其中头两位FF是代表红色区域的值,中间两位是代表绿色,后两位是代表蓝色。也就是这六个数字分别是:红红绿绿蓝蓝
4、如果vba的颜色转成十六进制,结果它表示的颜色是:蓝蓝绿绿红红。也就是说,vba颜色区域中,红色和蓝色的位置和RGB颜色是相反的。
5、根据上面原理,就可以尝试vba颜色和RGB颜色互转了
6、互转思路有两种:
    (1)字符串操作,调转红色和蓝色;
    (2)数学计算,把十六进制转为十进制,提取其中的颜色值。

本例子采用第一种思路,在vba中第一种思路实现比较方便。

源码:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2015-5-27 17:57:38 | 只看该作者
谢谢分享
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-25 07:29 , Processed in 0.100515 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表