万花筒怎么做（万花筒制作方法和材料）

VBA很强大，在一些图形表现方面也是有独特的展现，本节介绍一个没有实际意义的编码，实现一个不断变幻的彩色背景。

下面为效果展示，运行之后，色块会自动变幻，颜色都是随机产生的，说不上好看，主要是表现形式的一种应用。

如果扩展到其它图形，那么有审美观的人，可以做出选择更好的东西来。

下图为展示界面，设置了两个按钮，一个开始，一个停止。

其代码应用了一个不断自我调用的语句，Application.Ontime()

下图为过程代码：

重点代码：

Application.OnTime Now TimeValue("00:00:01"), "ShowColor"

上面一行表示每间隔1秒钟进行调用"ShowColor"过程一次，一次过程实现单元格背景更换，不断循环此过程，直到一个判断变量为真停止，也就是停止按钮执行。