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时,不执行循环...

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,...

Sub a() Dim a As Integer, b As Integer, S As Long S = 0 a = InputBox("a") For b = 1 To a S = S + b ^ 2 Next MsgBox "1^2+2^2+...." & a & "^2" & " = " & SEnd Sub

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

这个好简单的哇。 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

貌似有两个问题: 暂定的Sheet1和Sheet2,相同字段是哪个?比如说是机台? 班数的1,2,3,……8……12……怎么对应到二(早)、二(晚)、三(早)、三(晚)……或者,只要依次填充满班数即可? 看数据的第二列【机台】,有两个“光-5”,是不是数据有误?如果不是...

Sub 宏1() for i=4 to 34 ActiveSheet.ChartObjects("图表 1").Activate ActiveChart.ChartArea.Copy Cells(5, n).Select ActiveSheet.Paste ActiveSheet.ChartObjects("图表 50").Activate ActiveChart.ChartTitle.Select Selection.Caption = ...

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