菜鸟谈VBA最最基础入门《原创》.ppt

? ?? ?撰写:38度:老朽 ? ?? ?日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间奇数和2()? ? Dim I, J? ? For I = 10000 To 1 Step -2? ?? ???J = J + I? ? Next ? ? MsgBox 1到10000之间奇数和为 JEnd Sub ? ?? ?撰写:38度:老朽 ? ?? ?日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间能被5整除的数之和()? ? Dim I, J? ? For I = 0 To 10000 Step 5? ?? ???J = J + I? ? Next ? ? MsgBox 1到10000之间能被5整除的数之和为 JEnd Sub ? ?? ?撰写:38度:老朽 ? ?? ?日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间能被5整除的数之和2()? ? Dim I, J? ? For I = 10000 To 1 Step -5? ?? ???J = J + I? ? Next ? ? MsgBox 1到10000之间能被5整除的数之和为 JEnd Sub 程序流程控制——For—Each 循环语句===============================有了前面对循环一词的理解，这里我们不用再多说，如果你知道了For—next语句的工作原理，这里再来学习For—each循环以及下面我们接着要讲的句式，那就相当简单了，同样的工作原理。学会了吃苹果，那么离会吃梨的道路还会远吗？呵呵，只是开个小小的玩笑，下面我们继续，首先来看看For—Each语句的句式：For Eacn 元素变量 In 对象集合或数组名称? ?? ?语句块1? ?? ?[Exit For]? ?? ?语句块2next 元素变量和上面For—next句式是一样的工作原理。这里的“元素变量”是用来遍历集合或数中中元素的变量，它从集合或数组的第一个元素开始，直到最后一个元素，然后退出循环。 这里我们举个例子，把当前工作薄中工作表的名称写在A列，程序为： 复制内容到剪贴板 代码: Sub shtname()Dim i As Integer, sht As Worksheeti = 1For Each sht In Worksheets? ? Cells(i, 1) = sht.Name? ? i = i + 1 让写入名称的单元格下移一行NextEnd Sub ?? for-each返回工作表名称.rar (7.52 KB) [ 本帖最后由 ggsmart 于 2009-8-13 17:57 编辑 ] 程序流程控制——Do While语句===========================Do While也是循环语句，它分为两种情况，一种是把循环条件放在开头，一种是把循环条件放在结尾。1、开头判断循环条件? ? 语句格式：? ?? ? Do Wihle 循环条件? ?? ?? ?? ?语句块1? ?? ?? ???[Exit Do]? ?? ?? ?? ?语句块2? ?? ?Loop? ? 首先判断循环条件，条件为真则执行Do到Loop之间的语句。2、结尾判断循环条件? ? 语句格式：? ? ? ? Do ? ?? ?? ?? ?语句块1? ?? ?? ???[Exit Do]? ?? ?? ?? ?语句块2? ?? ? Loop Wihle 循环条件 ?先执行一次Do到Loop之间的语句，再判断循环条件，满足条件则进行循环。两种格式的区别：因为第二种格式是把循环体放在尾部，得先执行一遍语句再进行循环条件判断，所以，同样的条件，第二种格式的循环会比第一种多执行一次循环部份的语句。我们用Do While语句来解决求1——1000的自然数的和的问题： Sub mysum()Dim Lsum As Long, i As Longi = 1Do While i = 1000? ?Lsum = Lsum + i? ?i = i + 1LoopMsgBox 1到1000的自然数和为： LsumEnd Sub 程序流程控制——Do Until 语句这个和Do While语句类似，它也有两种形式，学了Do While语句，再看这个，就可以无师自通了。下面就简单介绍下：１、开头判断循环条件　　语句格式：? ?? ? Do Until 循环条件? ?? ?? ?? ?语句块1? ?? ?? ???[Exit