vba Do Until

一、Do Until语法

第一种语法:

Do Until 条件式

条件式为True为止,循环处理

Loop

第二种语法:

Do

条件式为True为止,循环处理

Loop Until 条件式

二、Do Until的例子

下面分别针对如上的两种语法,给出相应的例子:

如下代码功能为:'单元格A1~A10内,填入1~10

i = 1

Do Until i = 11

Worksheets("Sheet1").Cells(i, 1).Value = i

i = i + 1

Loop

如下代码的功能为:'单元格A1~A10内,填入1~10

i = 10

Do

Worksheets("Sheet1").Cells(i, 1).Value = i

i = i + 1

Loop Until i = 11

(0)

相关推荐

  • 如何让EXCEL文件只能在某台计算机上打开的VBA代码

    如何让某个EXCEL文件,限制在某台电脑上打开,而其它电脑不能打开该EXCEL文件。 这得借助VBA代码来实现。 只需要在工作薄打开的事件中,添加如下代码即可。 Private Sub Workboo ...

  • 关于vba在word文档中插入文字并设置相应的文字属性介绍

    下面的VBA代码功能,第一步,word当前文档的上面添加文字dzwebs文字。然后,又设置第一段居中对齐,并在该段落之后添加半英寸的间距。将dzwebs的格式设为36磅,隶书字体。 Dim rngFo ...

  • word修改页边距/纸张纵向/装定线等vba代码

    下面的WAPP是事先定义的word文档工程变量。 以下代码为通过VBA代码来实现页面的页边距、纸张纵向、装定线、页眉页静等。 复制代码 代码如下: WApp.ActiveDocument.PageSe ...

  • 怎样利用VBA代码编写一键插入Excel斜线表头

    有的时候,我们要在Excel中添加斜线表头,可Excel并没有提供制作斜线表头的功能,每次都要手工画一条斜线,非常麻烦。有没有解决方法呢?其实,我们可以利用VBA代码可以编写一个功能,一键插入Exce ...

  • excel通过数据模板与vba批量制作csv数据表

    通过数据模板与VBA结合,批量制作CSV数据表,要求使用规则逐步递增的命名方式来命名批量制作出来的数据表,数据表的内容根据实际需求由最初的模板和提供的基础值自动生成。尽量减少手动操作,真正实现全自动! ...

  • Excel VBA下标越界的原因分析与解决方法

    VBA初学者,常常会遇到下标越界问题。 尽管出现下标越界的原因是多种多样,但终究是因为对象不存在或者超出范围,就会出现下标越界的提示框,如下图所示: Microsoft Visual Basic ~运 ...

  • VBA运行时错误1004的解决方法

    初次接触excel的VBA,刚学习一段代码,VBA就运行报错,提示:运行时错误1004。如下图所示:运行时错误1004。 这段代码是测试当前VBA版本的: 复制代码 代码如下: Sub 获取VBA版本 ...

  • 此工作簿已丢失VBA项目,ACTIVEX控件以及其它任何与可编程序相关的功能

    版本一: 方式1:选定文件,右键-属性,将文档属性中的只读选项的勾去掉后再打开文件修改,修改后即可保存; 方式2:打开文件,另存为其它文件名,修改后也可保存。 无法保存时候处理方法: 从开始菜单进入程 ...

  • 如何设置Word表格的VBA代码

    VBA代码设置Word表格属性。 Dim i As Table, N As Integer On Error Resume Next ’忽略错误 Application.ScreenUpdating ...

  • 在Excel中如何使用VBA根据姓名自动插入照片

    一、前提条件 在Excel的单元格中,已输入人物的姓名,并且,在姓名的下面,留有空的单元格待插入相应的图片。 如下图一样。比如,B1是姓名,而B3则是要根据张三这个姓名,自动将张三这个人的照片插入到B ...