mshd.net
当前位置:首页 >> vBA循环语句 >>

vBA循环语句

for i=0 to 9 next -------------- while i0 wend --------------- do while i0 loop ---------------- do loop while i0 ------------------- do until i=0 loop -------------------- do loop until i=0 ----------------------

1、For ……Next 语句,适用于顺序操作 例1.在立即窗口输出1到100 For n=1 to 100 '从1到100 ,执行下行代码 debug.Print n next n 2、For……Each……Next语句,适用于集合的操作 例2.输出指定单元格区域所有单元格的内容 For Each Cell in myRange '...

while-Wend循环语句的语法格式为 While Wend 在VBA中执行WhiIe-Wend循环语句的过程是先判断逻辑表达式的值是否为True,如果为True则执行循环体并执行Wend语句,再返回While语句对逻辑表达式进行判断。直到逻辑表达式的值 为False时,不执行循环...

代码:exit for 示例:for i=1 to 100 if i=50 then exit for end if next

如果是Do循环,简单的借鉴下: do while i>1 '当i>1的时候,循环体开始执行 i=i+1 ‘每次让i增加一个单位 if i>20 then ’增加i后判断i是否大于20 exit do ‘如果大于20,则跳出循环(exit do) end if '不是,则绕出判断语句,继续执行循环 loop ’...

for 循环 for i=1 to 100 next i

这个好简单的哇。 Sub 跳转() n = [a65536].End(xlUp).Row h = 2 t = 1 For i = 1 To n If i 1 Then If Cells(i - 1, 1) = "*F*" Then h = h + 1 t = 1 End If End If Cells(t, h) = Cells(i, 1) t = t + 1 Next End Sub

所先在界面上拉一个窗体,其标题改为累计 之后在其中加入以下代码 Sub 累计_单击() Cells(1, 2) = Cells(1, 2) + Cells(1, 1) ...... End Sub 其中的Cells(1, 2) = Cells(1, 2) + Cells(1, 1)即为在B1中累计A1的数值 其余的请自己添加(因不清楚...

Dim i%, a% a = Sheets("source data from 201010 to (2)").Range("h1").CurrentRegion.Rows.Count For i = 2 To a If Cells(i, 6).Value = "NB" Then Cells(i, 1) = Cells(i, 6).Value Cells(i, 2) = Cells(i, 7).Value Cells(i, 3) = Cells(i,...

EXCEL VBA i = 1 Do Until i = 10 Cells(i, 1).Value = i i = i + 1 Loop

网站首页 | 网站地图
All rights reserved Powered by www.mshd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com