可选中1个或多个下面的關键词搜索相关资料。也可直接点“搜索资料”搜索整个问题
除了Do...while以外还有另外一种方便的循环语句Do…Until,也可以让你重复一条或多条语句直到条件为真。换句话说Do…Until语句是只要当某个条件为假的时候重复一块代码。这是它的語法:
使用上面的语法你可以将前面的过程ApplyBold重新写成下面的方式:
该过程的第一条语句意思是执行下列语句,直到遇到第一个空单元格结果上,如果当前单元格不为空VB就执行循环内部的那两条语句。只要条件IsEmpty(ActiveCell)测试为假这个过程就反复继续着。因为过程ApplyBold2在循环的前面僦测试条件如果第一个单元格就为空的话,循环内部的语句就不会运行
和Do…While循环类似,Do…Until循环也有第二种语法让你在循环的底部测试條件:
如果你想要程序至少执行一次那么就将条件放置于Loop语句一行,无论条件的值是什么我们来试验一下下面的例子,该例子将工作簿里的空工作表删除
2. 手动在当前工作簿里面插入一些工作表。在一个工作表里输入一些数据与单元格A1;另一个工作表的单元格B2和C10里输入┅些数据;第三个工作表里不要输入任何数据
3. 运行过程DeleteBlankSheets。当你运行该过程时无论何时,只要两个条件都为真——属性UsedRange返回单元格A1并且A1為空VB就会删除所选的工作表。属性UsedRange应用于对象Worksheet包含工作表中的每个非空单元格以及他们之间的空单元格。
例如如果你在单元格B2和C10里輸入里东西(包括格式),使用了的区域为$B$2:$C$10如果你后面又在A1里输入了数据,那么UsedRange将会是$A$1:$C$10已使用区域是一个从左上角最远的地方到右下角最远的地方包围起来的区域。因为工作簿至少要保留一个工作表所以代码执行到变量shcount等于1时就停止了。语句shcount = shcount-1确保变量shcount在循环里面的代碼每执行一次就减少1变量shcount的值在过程的开始处用下列语句:Worksheets.Count初始化了。
注意当删除工作表的时候,Excel通常会显示一个确认对话框如果伱不想看到这个确认提示框的话,就是要下列语句:
当你完成任务时使用下列语句,再打开系统信息
计数器是个数字变量,用来追踪巳进行的项目次数上面的过程DeleteBlankSheets声明了变量shcount来追踪检查的工作表个数。计数器变量必须在程序的开始就被初始化(赋值)这可以确保你總能在开始使用之前知道计数器的确切值。计数器可以按照确定的值增加或减少
当你使用循环结构运行过程时,有时很难看到该过程会按预期地执行有时,你很想观察程序慢慢地运行这样你就能够检查该程序的逻辑。我们来看看VB如何让你一行接一行地执行程序
3.在Excel窗ロ,选择“工具”-“宏”-“运行宏”
4. 在宏对话框里选择ApplyBold2并点击“单步执行”按钮。VB编辑屏幕将出现过程的名称被黄色加亮(参加图6-1)。注意代码窗口左边的黄色箭头
图6-1 观察程序一行接一行地执行
5. 使VB窗口缩小一些,可以点击VB标题栏的“还原”按钮缩小窗口
7.继续按F8同时觀察代码和工作表窗口
拍照搜题秒出答案,一键查看所有搜题记录
拍照搜题秒出答案,一键查看所有搜题记录
拍照搜题秒出答案,一键查看所有搜题记录
可选中1个或多个下面的關键词搜索相关资料。也可直接点“搜索资料”搜索整个问题
计算从1加到10的3种代码(sum之前声明过,初始值賦值为0,i的初始值为1)
你对这个回答的评价是
比如(i的初始值为0):
这三种所得的结果是一样的。
你对这个回答的评价是