office - Excel - VBA入门基础 - 图文(13)

Sub mysum()

Dim Lsum As Long, i As Long i = 1

Do While i <= 1000 Lsum = Lsum + i i = i + 1 Loop

MsgBox \到1000的自然数和为：\End Sub

do while1到1000自然数的和.rar (6.19 KB) do while1到1000自然数的和.rar (6.19 KB)

程序流程控制——Do Until 语句

这个和Do While语句类似，它也有两种形式，学了Do While 语句，再看这个，就可以无师自通了。下面就简单介绍下： １、开头判断循环条件 语句格式：

Do Until 循环条件

语句块1 [Exit Do] 语句块2 Loop

2、结尾判断循环条件 语句格式： Do

语句块1 [Exit Do] 语句块2

Loop Until 循环条件

执行Do 和Loop之间的指令，直到循环条件为真时退出循环。

直到循环条件为真时退出循环，这是Do Until 与 Do While的区别。而它两种语句格式的区别，也是第二种比第一种多执行一次循环部分的语句。 还是求1——1000自然数的问题，这次我们换用Do Untile语句： 代码:

Sub mysum()

Dim Lsum As Long, i As Long i = 1 Do

Lsum = Lsum + i i = i + 1

Loop Until i > 1000

MsgBox \到1000的自然数和为：\End Sub

do until1到1000自然数的和.rar (6.19 KB) do until1到1000自然数的和.rar (6.19 KB)

是的，你看了上面的代码，觉得和楼上我们写的代码变化并不大。这里我用的是第二种格式(结尾判断)的语句，你可以试着用第一种句式写一写,或者改一改其他的问题.这里,我只是举个例子，路还得让你自己走！

程序流程控制——Go to 语句 ===========================

Go to 在英语里是什么？相信大家的英语都比我好得太多，不用多说。其实Go to 语句的作用用定两个英语单词就说明问题了，?Go to 地点?就是去到哪儿的意思。 Go to 语句是将程序转到指定的标签的语句位臵，然后继续往下执行。Go to 语句通常用来作错误处理。

同样的，还是用Go to 语句来做1——1000自然数的和： 代码:

Sub mysum()

Dim Lsum As Long, i As Long i = 1

x: '为go to 语句设臵的标签，必须以英文状态下的冒号结尾 Lsum = Lsum + i i = i + 1

If i <= 1000 Then GoTo x '如果i<=1000,则程序跳到标签X处

MsgBox \到1000的自然数和为：\End Sub

go to 1到1000自然数的和.rar (6.34 KB) go to 1到1000自然数的和.rar (6.34 KB) 注意：为Go to 语句设臵的标签必须以英文状态的冒号结尾。 有人说，为了方便程序的阅读，规范程序，在程序里也避免少用Go to 语句，我很赞同，也希望你们能养成这个习惯。 用户窗体

-----------------------

用户窗体(UserForm对象)是VBA的另一类对象。它表现出来是一个窗口或对话框，如前面我们说的MsgBox与InputBox语句弹出来的都属于窗体。使用窗体可以提供一个形象的用户界面。同我们可以在工作表（WorkSheet）上在添加不同的控件一样，在这个界面上，我们可以添加命令按钮、标签、图像、列表框等控件，用户可以通过修改控件的属性、编写不同的事件过程在程序运行过程中与程序进行交互。 1、添加窗体

如果你还没有忘记怎么插入模块？那请用同样的方法插入

一个用户窗体。

Alt+F11快捷键打开VBE编辑窗口，在工程资源管理器窗口中单击右键，选择?插入——用户窗体?命令。

1-1.jpg (33.67 KB)

Excel为用户窗体取名，同为工作表、按钮等取名一样，采用?老大，老二，老三……?的取名方式。所以新插入的用户窗体默认名称为?UserForm1?，如果再继续插入窗体，就是?UserForm2?，接着是?UserForm3?……

当然，你可以为它重新取一个你喜欢的名字，新名字叫大花二花，或者是大狗二狗，随你了，为了方便学习，这里我们统一为其更名为?我的窗体?，方法为：在工程资源管理器中双击窗体对象，在属性窗口中重新修改?（名称）?（对象的name属性）为?我的窗体?即可。修改完成后，可以在工程资源管理器窗口中看到相应的名称已经改变了。

1-2.jpg (81.78 KB)

这时，窗体的?名称?已经修改好了，再看看窗体，左上角还显示着?UserForm1?，这就相当于贴在一个按钮表面的标签，想要修改它，只需要修改对象的?Caption?属性即可。用改?名称?的方法，我们把这个窗体的?Caption?属性修改为?我的第一个VBA窗体?。

就像你家里贴的地板一样，新建的窗体的大小样子都一样。但是我们根据自己的需要对其进行美化或修改。如大小，背景颜色，背景图片等等，我们可以手动在属性窗口里对其进行修改，也可以程序中用代码进行修改。如修改该窗体的宽度，代码设臵为： 代码:

我的窗体.Width = 500 '500是你需要修改后的宽度，以磅（Point）为单位