ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3050|回复: 8

[讨论] 关于 FOR NEXT 循环的具体含义

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-8-29 00:43 | 显示全部楼层 |阅读模式
FOR NEXT 循环是非常普通的循环,普通到无法再普通了,但是,有很多人用了无数次也不理解它的具体运行机制,今天闲来无事,征集一下对它的运行机制的解释,也算对初学者上一课吧,以下列代码为例:
Sub test()
Dim x, y, z, i&, sm
x = 1
y = 10
z = 2
sm = 0
For i = x To y Step z
    sm = sm + i
Next i
MsgBox sm
End Sub

TA的精华主题

TA的得分主题

发表于 2018-8-29 08:08 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
FOr next是有序循环,相当于对序号为等差数列特点进行遍历。
For each是对集合元素循环。而集合元素具有固定性,无序性。

TA的精华主题

TA的得分主题

发表于 2018-8-29 08:09 | 显示全部楼层
像sum函数一样,是程序员编译好的规则,或者像是1+1=2   一样

TA的精华主题

TA的得分主题

发表于 2018-8-29 08:20 | 显示全部楼层
for循环内置计数器,每次循环按步长累计一次,累计超出范围就退出for循环。

TA的精华主题

TA的得分主题

发表于 2018-8-29 08:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
For……Next实际就是一个计步器
  1. For i = x To y Step z
复制代码

i是计步器里的步数记录器,从x开始,以z为步长,每隔z步就记录一次,一直记录到小于或等于y结束

TA的精华主题

TA的得分主题

发表于 2018-8-29 10:20 | 显示全部楼层
'for next也可以这样,类似于do loop until,,,

Option Explicit

Sub test()
  Dim i, n, a
  For i = 1 To 1
    a = Int(Rnd * 1000)
    n = n + 1
    If a <> 555 Then i = i - 1
  Next
  Debug.Print a, n '每次运行后的循环数都是不确定的
End Sub

TA的精华主题

TA的得分主题

发表于 2018-8-29 10:38 | 显示全部楼层
Sub vf()
    For i = 1 To 5
        k = k + 1
    Next
    Debug.Print k
End Sub

Sub fg()
For i = 1 To 5
        k = k + 1
        If k = 2 Then i = i - 1
    Next
    Debug.Print k
End Sub

TA的精华主题

TA的得分主题

发表于 2020-11-12 16:06 | 显示全部楼层
我想把B列小于3的行删除,咋运行不了呢,一直说Next没有For
Sub 计划()

a1 = Range("A65536").End(xlUp).Row
With Sheets("采购计划")
For i = 2 To 在a1 Step 1
    If Range("b" & i).Value < 3 Then
    Rows("i").Delete
Next i


End Sub

TA的精华主题

TA的得分主题

发表于 2020-11-12 22:04 | 显示全部楼层
zhlflzh 发表于 2020-11-12 16:06
我想把B列小于3的行删除,咋运行不了呢,一直说Next没有For
Sub 计划()

with 没有end with
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 23:45 , Processed in 0.050061 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表