安卓vba模拟器(介绍GBA模拟器最新版)

VBA 工作表自带的Worksheet_SelectionChange过程可监控鼠标对单元格的点选,确定某单元格为“颜色产生器”,点选“颜色产生器”取其填充色,再次选择其他单元格或区域时用所取的填充色填充选区,如此即可模拟拾色器的取色及涂色效果(如上方视频展示)。

注:1.“颜色产生器”中的颜色使用RGB三原色混色而成,三原色颜色值使用随机数产生。

2. RGB混色所成的颜色值为长整形数据,可使用long型数据进行接收。

Step1. 功能实现简述

选定A1单元格为“颜色产生器”,并使用命令按钮控制使此单元格产生随机填充色。

A1随机填充色产生后,鼠标点选此单元格即可获得填充色的颜色值,之后再点击或框选非A1单元格即可实现涂色。

Step2. 命令按钮的添加及命名

如下图按①到③的顺序点选“开发工具”->“插入”->“命令按钮”,随机点选单元格放置命令按钮,然后鼠标拖动按钮边框调整大小,并拖动或键盘上下左右键微调将命令按钮安放于合适的位置。

安卓vba模拟器(介绍GBA模拟器最新版)

右键命令按钮,点选属性,在属性页更改Caption值及Font属性(可根据自己喜好修改)。

安卓vba模拟器(介绍GBA模拟器最新版)

经调整后,命令按钮状态如下。

安卓vba模拟器(介绍GBA模拟器最新版)

Step3. 代码的添加

3.1 双击命令按钮在VBE界面右侧代码区域 Private Sub CommandButton1_Click() 子过程内外添加红色框所对应的代码

安卓vba模拟器(介绍GBA模拟器最新版)

命令按钮点击时,程序使用Cells.clear先对整个工作表单元格进行清空(主要清除上次A1单元格遗留的随机色及非A1单元格的涂色)。

之后使用For循环进行10次A1单元格颜色的填充。每次循环均使用Rnd随机数进行RGB三原色赋值,使A1的Color每次都不一样。

Sleep 200代表每次循环都要等待200毫秒,否则A1单元格颜色变化过快人眼无法察觉影响视觉效果。Sleep非VBA原生函数(属Windows API函数),故需在代码窗口前端使用Declare关键字进行声明。

3.2 在代码窗口列表框中点选①Worksheet及②SelectionChange,并在调出的过程中添加红色框所对应的代码。

安卓vba模拟器(介绍GBA模拟器最新版)

红色框中的代码主要判断点击的是否为A1单元格,若是,则将A1单元格中的填充色数据给变量selectedColor并将涂色开关f打开;若否,则判断是否已经取色(f为true表示已经取色),如果已取色则进行涂色(即将当前选择区域填充色变为selectedColor)。

Step4. 执行的代码

返回前台sheet界面,点击命令按钮使A1单元格生成随机填充色。鼠标点选A1即可取色,再点击其他单元格即可涂色。

注:开发工具选项卡的加载方法:

开启功能区选项并在⑦的位置勾选“开发工具“,如果⑦处没有此选项可由③到⑦的步骤调出,最终点⑧完成开发工具选项的加载。

安卓vba模拟器(介绍GBA模拟器最新版)

派优网部分新闻资讯、展示的图片素材等内容均为用户自发上传(部分报媒/平媒内容转载自网络合作媒体),仅供学习交流。用户通过本站上传、发布任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权,请联系我们一经核实,立即删除。并对发布账号进行封禁。
(0)
微商世界网的头像微商世界网

相关推荐

返回顶部