VBA代码对单选框条件的控制方法

在上一篇文章的基础上，在创建好选项组之后，我们来看一下在单击事件后，它所返回的值是什么样的，首先右键单击选项组框，在弹出的菜单中选择事件生成器：

弹出代码窗口后，在单击事件中加入下列代码，意在显示我们单击触发后的返回值：

在保存后，运行窗体进入窗体视图，并单击第三项“不好”，可以看到其返回值为3：

当然选择“一般”则返回2，选择“很好”则返回1：

点击窗体进入到设计视图后，单击选项组进入到事件生成器，也就是进到了我们的代码窗口，我们先声明一个变量，变量名称可以自己任意命名：

回到单击事件代码位置，键入下列代码，这里面我们用到了“select case”语句，这个语法格式就是我们进行选择条件判断的：

上面的代码意在当我们依次选择不同选项时，会给予我们不同的提示信息，而不是单纯的返回数字代码啦，这样可以方便观察我们的选择是否符合我们的意愿，此时运行窗体进入到窗体视图，选择“很好”项，则系统会提示我们把做出的选择：

如果，我们利用上面的按钮对我们做出的选择进行提交，可以将代码复制到单击按钮事件中即可，我们先简单设置一下上面这个按钮，通过属性表来改一下标题为“提交”，并改一下字体和字号大小：

此时右键单击按钮进入到事件生成器，我们将原来的代码注释掉，写上新的代码，就是将刚刚的代码手复制过来：

此时再运行窗体进入到窗体视图后，单击选项后，再单击提交按钮，这时就进行了提交，即可显示提示信息啦：

我们所讲的都是一些简单的过程和条件控制，具体的情况和工作需要还要具体进行复杂的设计和编程。

VBA代码Do循环的使用方法

我们首先创建一个空白窗体，然后在窗体上通过窗体设计工具设计选项下的控件来放置一个按钮到窗体中：

放置完按钮后，鼠标右键单击按钮，选择第一项事件生成器后，然后继续选择最后一项代码生成器：

此时弹出代码编写窗口，在空白处可以写上实现一定功能的代码啦：

紧接着，我们来写循环代码，开始我们要声明变量，然后正式进入循环代码，这里面我们循环4次，并用立即窗口进行观察：

回到窗体页面进行保存后，运行窗体进入到窗体视图后，用鼠标点击按钮：

点击之后，我们来到代码窗口，可以看到立即窗口有4个数字，分别是每次循环后a的值，整个程序做了4次循环后，a的值发生了变化，最终a的值为4：

当然，while也可以放在循环的后面，就是先执行语句，再判断条件，而前面的语句是先判断条件再执行语句：

如果，我们将a的初始值设置为4，看看程序执行的结果会有什么不同，先看前面的程序执行的结果，可以发现程序并没有执行循环语句，因为先判断条件并不符合执行条件：

来看看放在后面的结果，可以看到输出的值为5，此时程序是先执行循环语句，后判断条件，这样就执行了第一次循环：

我们选择放在前面或者放在后面，要根据我们的具体需要进行正确的选择。

VBA代码中for循环的妙用

首先创建一个空白窗体,并通过窗体设计工具中设计选项创建一个按钮控件,并修改标题：

进入到窗体的设计视图下，右键单击按钮，选择代码生成器，进入代码编写窗口，也可以通过属性表中的事件选项进入到代码窗口：

下面,我们进行代码的编写，在代码开始我们需要定义我们需要的变量，然后对变量进行赋值，紧接着就是我们的FOR循环语句，这个语句有其固定的格式“FOR TO NEXT”：

我们来看一下循环过程中变量i的变化是什么样的，打开立即窗口后进入到窗体界面运行窗体进入到窗体视图下，点击for循环按钮，则观察立即窗口的运行结果，可以看到运行的结果显示了每个循环变量值的变化情况：

我们再来对循环的初始值进行改变：

改变后，看看循环结果有什么变化，可以看到初始值变化啦，从3开始到6结束：

FOR循环和我们上一期讲的DO循环是有一定区别的，它们的适用条件也不一样，这要看具体情况，来选择用什么样的循环更方便。

结语：喜欢的请关注、转发！