VBA模拟器手机版(VBA模拟器),本文通过数据整理汇集了VBA模拟器手机版(VBA模拟器)相关信息，下面一起看看。

VBA自带的Worksheet_SelectionChange进程可以监控鼠标& # 039；单击一个单元格，确定该单元格是一个& quot颜色生成器& quot，单击& quot颜色生成器& quot以获取其填充颜色，并在再次选择其他单元格或区域时用该填充颜色填充所选区域，这样就可以模拟拾色器的拾色和上色效果(如上图视频所示)。

注：1。& quot颜色生成器& quot由RGB原色混合，原色值由随机数生成。

2.RGB混色形成的颜色值是长整形数据，可以用长数据接收。

第一步。功能实现简介

选择A1单元格作为& quot颜色生成器& quot并使用命令按钮控件使该单元格生成随机的填充颜色。

生成A1随机填充颜色后，用鼠标单击该单元格得到填充颜色的颜色值，然后单击或框选非A1单元格进行着色。

第二步。添加和命名命令按钮

如下图所示，从到依次点击开发工具-插入-命令按钮，随机点击一个单元格放置命令按钮，然后用鼠标拖动按钮边框调整大小，上下左右拖动或微调键盘按键将命令按钮放置在合适的位置。

右键单击命令按钮，点击属性，在属性页更改标题值和字体属性(可以根据自己的喜好修改)。

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

第三步。添加代码

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

单击命令按钮时，程序先用Cells.clear清空整个工作表单元格(主要是去掉最后一个A1单元格留下的随机颜色和非A1单元格的着色)。

然后使用For循环填充A1单元格的颜色10次。每个周期用Rnd随机数给RGB分配三原色，这样A1的颜色每次都不一样。

睡眠200是指每个周期等待200毫秒，否则A1细胞颜色变化太快，不影响视觉效果。Sleep不是VBA本地函数(Windows API函数)，所以需要在代码窗口前端使用declare关键字声明。

3.2在代码窗口的列表框中点击工作表选择更改，在调出过程中添加红框对应的代码。

红框中的代码主要判断被点击的单元格是否为A1，如果是，则将A1单元格中填充的颜色数据赋给变量selectedColor，并打开着色开关F；如果不是，则判断颜色是否已被选中(如果f为真，则表示颜色已被选中)，如果是，则绘制颜色(即将当前选中区域的填充颜色改为selectedColor)。

第四步。执行代码

返回前景工作表界面，单击命令按钮，使A1单元格生成随机填充颜色。单击A1进行着色，然后单击其他单元格进行着色。

注意：开发工具页签的加载方式：

打开功能区选项并选中& quot开发工具& quot在位置。如果没有这个选项，可以调出到的步骤，最后点击，完成开发工具选项的加载。

更多VBA模拟器手机版(VBA模拟器)相关信息请关注本站。