推 higger:感謝~這段碼有一半我都不知道能這樣寫(也疑惑很久了)~謝謝 10/31 01:16
如下 把不連續值填在sheet2 a1 a2 ......
myarr(i,1) 會依據把你填的值讀出來給你用
btw 我也是非資訊科班，十分羨慕的愚者 XD...
Private Sub CommandButton1_Click()
Dim myarr As Variant
myarr = Sheet2.Range("a1:a100").Value
For i = 1 To UBound(myarr, 1)
If myarr(i, 1) = Empty Then Exit For
MsgBox myarr(i, 1)
Next i
End Sub
※ 引述《higger (朝鄉而行)》之銘言：
: 標題: [VBA ] 怎麼讓程式迴圈考慮不連續的值(1，4，10，16)
: 時間: Tue Oct 30 22:45:47 2007
:
:
:
: 用vba寫了一個報表列印工具~
: 正常是讓它從1，2，3這樣跑下去~
: (打入1，則表內函數會去勾1的對應項目)
:
: 問題在...
: 我頂多只能讓它從1跑下去....
: 或指定從6跑到40這樣
:
: 如果今天我想讓它跑不連續值...
: 比如跑2、5、9、14四筆
: 這四個數間距都不同~
: 我可以用for~next來寫嗎???
:
: 或說那四個值在 sheet2!a1:a4 中~
: 要怎麼寫去引用呢?
:
:
: ps.我用四個變數~配合inputbox來輸入~這個請不要考慮~
:
: 謝謝~~~
:
: 非資訊科系~十分羡慕科班出身的愚者留
:
:
:
: --
:
: --
: ※ 發信站: 批踢踢實業坊(ptt.cc)
: ◆ From: 221.169.64.169
: 推 BearWu:我以VB概念的話，會將所輸的值，存到一個文字陣列，再用FOR 10/30 23:10
: → BearWu:來呼叫這個文字陣列，不過VBA適不適用了... 10/30 23:10
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.217.216.53