VBA中有color(颜色)属性的对象,其color(颜色)可通过R(红)、G(绿)、B(蓝)三原色来搭配组成。我们可以用滚动条控制R、G、B三个通道的值使对象的颜色发生变化(如上方视频展示)。
注:RGB三原色各通道的取值范围均为0到255。
Step1. 格式及滚动条的准备
如下图,对A1到B7单元格做一些格式修改(合并及加宽),并确定某些单元格的作用(作用说明见红色文字)。
在A1单元格中输入如下公式以显示RGB三通道的当前值
如下图按①到③的顺序点选“开发工具”->“插入”->“滚动条(窗体控件)”
在B3区域拖动鼠标将滚动条外框大小调整到与B3单元格大小相当,再用键盘方向键精调滚动条位置使其填满单元格且大致居中。
右键滚动条,点选“设置控件格式”,在“控制”标签中依下图红框所示调整各项数据,其中“单元格链接”需选择B2单元格。
以相同方式在B5及B7单元格分别添加滚动条,并调整位置。滚动条控制项的“单元格链接”分别选择B4、B6。
三个滚动条设置完毕,最终状态如下图(备注信息见红色文字)
Step2. 代码的添加
Alt F11调出VBE界面,①双击左侧当前sheet,在代码区点选②Worksheet及③Calculate,并在调出的过程中添加④代码:
A1单元格的颜色由B2、B4、B6三个单元格的的值决定,此三个单元格的值分别链接到三个滚动条,故滚动条发生变化时会导致A1单元格颜色改变。
Step3. 代码的执行
返回前台sheet界面,点击或拖动各滚动条控件即可实现A1单元格的颜色变化。
注:开发工具选项卡的加载方法:
开启功能区选项并在⑦的位置勾选“开发工具“,如果⑦处没有此选项可由③到⑦的步骤调出,最终点⑧完成开发工具选项的加载。
Copyright © 2024 妖气游戏网 www.17u1u.com All Rights Reserved