vba循环语句实例 vb编程设计例题100例

这段是示100至200之间偶数的实例,看看符不符合你的要求 Sub 求100至200之间偶数() Dim Arr() Dim i, k, p As Integer p = 0 For i = 100 To 200 If i Mod 2 = 0 Then GoTo jilu jixu: Next For l = LBound(Arr) To UBound(Arr) Cells(l + 1, 4) = Arr(l) Next Exit Sub jilu: ReDim Preserve Arr(p) Arr(p) = i p = p + 1 GoTo jixu End Sub

循环变量是可以在循环体内改变的.E = 1 For D = E + 21 To 2000 Sheets(＂分组统计表＂).Cells(D, 2) = Sheets(＂分组统计表＂).Cells(E + 3, 2) If E > 10 Then E = 1 D = D + 4 Else E = E + 1 End If Next

要在VBA中使用工作表中使用的函数的话,要在函数前面加WorksheetFunction 以下是例子,自己看看吧. for j = 1 to 10 msgbox worksheetfunction.vlookup(,,j,) next

既然两个FOR之间没有联系,为何不直接做两个循环呢 FOR X=1 TO 20 IF X>15 THEN EXIT FOR NEXT FOR Y=1 TO 20 IF Y>x THEN EXIT FOR NEXT

刚巧我写了一个时间延迟的程序 sub yanchi() m=0 do m=m+1 loop until m=10000000 end sub 还有就是非常常用的控制单元格的循环 sub shuzi() for i=1 to 100 for j=1 to 100 cells(i,j)=1 next j next i end sub 还有就是 for i=100 to 1 step 2 cells(i,1)=i next i 这样可以灵活的变换.

循环是用for each,判断是用if for each rg in worksheets.range(＂A1:D10＂) if rg.value=＂abc＂ then //代码 end if next

把do while ……loop改成for……next 直接搜VBA for next循环

for.next------ for each xx in xxx.next------- do wile xxx.loop-------- do.loop until xxx

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

你的行标写错位置了,应该卸载Next h的位置: For h = 4 To Z3 ******If Cells(3, 2) = ＂＂ And Cells(6, 3) = ＂本月合计＂ Then h = h + 1 GoTo 10 End If ******* 10: '写这里!!!Next h