→ higger:謝謝~實驗一下~ 11/04 19:18
※ 編輯: triste 來自: 218.168.68.172 (11/06 14:17)
※ 引述《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