ExcelVBA中for循环语句地用法_第1页
ExcelVBA中for循环语句地用法_第2页
ExcelVBA中for循环语句地用法_第3页
已阅读5页,还剩5页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、Excel VBA中for循环语句的用法听语音i浏览:21306I更新:2015-05-30 16:57分步阅读for循环语句在VBA中扮演着比较重要的角色,为我们批量的处理表格数据提供了一个很好的途径,下面小编根据自己的一些亲身经验为大家分享一下ExcelVBA中for循环语句的两个用法吧!工具/原料? office Excel 软件?具备一定的VB基础更好方法/步骤1. 1For我们常用的for循环语句有两种,一个是 for next结构;一个是each next结构。这两种结构主要都是针对多数据循环遍历的时候用到的 那么下面我将分别来介绍一下两种循环结构的具体用法,首先还是要打开VBA编

2、辑器|範新建Bicrosoft Encel工作表I (代码j匚|用)tn环语旬Sub循环语句0一End SubJ12. 2l.for next 结构这个结构一般是这样的:for i=初始值to结束值step步长值n ext具体解释一下,初始值指的是循环开始的值,结束值指的是循环结束的值,实 质上就是i值得一个判断,如果i值在起始值和结束值之间,那么进入循环语 句,然后i值每运行到next语句后会自动加一个步长值,直至i值超出了初 始值到结束值这个围,循环才会结束。这里要说明一下”step步长值“往往是省略掉的,省略掉的话,步长取默认值为1。下面将以一段小实例来具体说明这个结构的用法:实例:在s

3、heetl工作表中一次输出1到10这个数,显示在第一列中。程序:Sub循环语句()Dim i As In tegerFor i = 1 To 10Cells(i, 1) = iNextEnd Sublicrosoft 7i anal c - WST li crosoft Excel12345610111315161710_4H 至潇 (i crosoft Excrl工作表(2.xls -漏掘劲 視国 a a)格貳a 调试运彳 丿I -一上已IV町 丄卄 丿乂 J 盘Sub傅坏愴句0Dim i As InlegerFar i = 1 To 10Cel Is(t 1) = i NextEnd Su

4、b3. 3步长为+2的for循环结构这里我们看一下一个示例程序吧 程序:Sub循环语句()Dim i As In tegerFor i = 1 To 10 Step 2Cells(i, 1) = iNextEnd Sub步长为-1的for循环结构这里同样的我们来看一下当step值为-1的时候,程序又会是如何的呢? 看下面实例程序:Sub循环语句()Dim i As In tegerFor i = 10 To 1 Step -1Cells(i, 1) = iNextEnd Sub5. 52.for each next 结构具体结构:For each对象变量in对象集合 n ext具体解释一下,这

5、里我们看到和上一个结构的而不同的是上面一种结构主要是 数值变量,而这种结构是对象变量。什么意思呢? each in指的是在这个对 象集合里面,一次将每一个对象都遍历一边。同样的道理,执行到next后对象自动指到下一个。具体我们来看一下下面的一个实例吧实例:给一个数据区域的所有单元格赋值,从1开始。分析:显然数据区域就是一个对象集合,单元格就是这个集合里面的对象程序:Sub循环语句()Dim i As In tegerFor Each c In Ran ge(a1:c5)i = i + 1c.Value = iNextEnd Sub6. 6循环语句运用起来是很灵活的,上面只介绍了两种循环语句的基

6、本用法,循环语句是可以套用的,这个就需要结合具体情况来灵活运用了!下面我们用多循环语句嵌套来实现乘法口诀:程序:Sub循环语句()Dim i, j As In tegerFor i = 1 To 9Forj = 1 ToiCells(i, j) = i & * & j & = & i * jNextNextEnd Sub21姑1:匚Zb*2M_!.3*1-33*j-5=45D斎 6= 36T*6=425+6=43 肌知7*7z*7-W&*a-725*3L10 .11工上;s15e-! EiEcV讥u潼I Baif&dKa i;rojFvFt Kstei. l.f |中豪!;初(VISFE即 裁入即 毘式如 删巧 吩行 工島 耳理帘罕吐 F口 哥总MiIB:日2021翌234粥tirel Ifl 4c . xLtc ShifHC I IftPS) _ LVj-【.Div h J 也 Ini cs?rfor i ? L T $?ar j - 1 Tc iCeibfh j = 1 1 * 4 j 4

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论