Excel VBA实例教程-RGB色块控制

Excel VBA实例教程-RGB色块控制

首页休闲益智点击色块更新时间:2024-07-31

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