作者triste (麦肯锡之梦)
看板Visual_Basic
标题Re: [VBA ]for~next 跳过某些数字...
时间Fri Nov 2 10:56:43 2007
※ 引述《higger (朝乡而行)》之铭言：
: 写了下列码...
: For ppn = 1 To Application.Count(Worksheets("LIST").Range("a:a")) - 1
: Range("J1") = ppn
: PrintA
: Next ppn
Dim x()
DIM I,J AS INTEGER
x = Range(Cells(8, 1), Cells(8, 5)).Value
'(8,1)~(8,5)的值得升幂排列
i=8
For ppn = 1 To Application.Count(Worksheets("LIST").Range("a:a")) - 1
For j = 1 To 5
If ppn = CInt(x(i, j)) Then
ppn = ppn + 1
'如果(8,1)~(8,5)未依大小顺序排列，加下面一行，每一次都重覆check
'j=1
End If
Next
'如果最後一个数字列入，回圈终了。
'Application.Count(Worksheets("LIST").Range("a:a")) - 1列在(8,1)~(8,5)中
if ppn = Application.Count(Worksheets("LIST").Range("a:a")) then
exit for
Range("J1") = ppn
PrintA
next
: ppn是用来计数的变数
: PrintA是另一个程序~
: Range("J1") = ppn 是把ppn的值送去表格，内有相关函数会去处理
: 正常ppn会从1跑到100
: 如果今天我想让它不要考量...比如6、15、23、77、92这五个数...
: 而这五个数我摆在sheet2!H1:H5中
: 要怎麽让它跑到6时...
: 自动会跳过去~直接再去考量7、8、9...
: 应该是要插入一个if...
: 可是要怎麽让每次的ppn值一个个再去比对这五个数...???
: 谢谢~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.64.60.162
1F：→ higger:谢谢~实验一下~ 11/04 19:18
※ 编辑: triste 来自: 218.168.68.172 (11/06 14:17)