上一次，我们已通过代码调整了excel的sheet1表的行高列宽。今天我们来显示一个静止的红色小方块。用vba开发程序，有个好处，代码命令记不处，我们往往可以通过它的“开发工具”的“录制宏”，来录制代码，然后查看代码，大多时候都能帮助我们找到可用的代码。我们先打开上次保存的“方块小游戏.xlsm”,如图
点击“开发工具”－－“Visual Basic” ,打开VBA开发环境，如图，上次写的代码，显示在右边代码编辑区
我们依然采用“录制宏”的方法，提取有关代码。单击“开发工具”－－“录制宏”
然后，单击excel工作表sheet1的工作区的P11单元格
单击“开始”－－单击“填充颜色”按钮右侧的小三角箭头
点击出现的颜色框中的“标准色”－－“红色”按钮
在p11单元格出现了红色的小方块
我们再单击“开发工具”－－“停止录制”
再单击一旁的“宏”，在出现的宏对话框中单击“宏1”－－“编辑”
显示代码，如图
这个复杂的多行代码我们可以提取有用的部分即可，整理后的代码如下图：
即，“设置小方块”这个过程只有一条指令
Range("P11").interior.Color = 255 '这条指令的意思是把单元格p11的填充颜色设为红色
我们可以验证一下，我们单击红色小方块旁边的一个白色小方块，再单击“格式刷”，然后单击红色小方块，这时，红色消失。然后我们单击代码编辑区中的“设置小方块”这个过程，再单击“运行”按钮，发现红色小方块又出现了。
我们继续保存文档，下一步，我们要让小方块向下移动