请选择 进入手机版 | 继续访问电脑版
用户
 找回密码
 立即注册

只需一步,快速开始

搜索
查看: 1704|回复: 0

EXCEL模板配色辅助 VBA自定义函数获取当前单元格背景颜色RGB值

[复制链接]

1

主题

1

帖子

11

积分

新手上路

Rank: 1

积分
11
发表于 2018-8-9 23:11:39 | 显示全部楼层 |阅读模式
Function RGB() As String
  addr = ActiveWorkbook.Application.ThisCell.Address
  c = Range(addr).Interior.Color
  r = c Mod 256
  g = (c - r) / 256 Mod 256
  b = (c - r - g * 256) / 256 ^ 2
  RGB = r & "," & g & "," & b
End Function

单元格输入函数 RGB() 获取当前单元格RGB值

回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册  

本版积分规则