查看完整版本: 有關EXCEL 的程式迴圈

論壇 › Visual Basic 語言 › 有關EXCEL 的程式迴圈

gift1314520 發表於 2016-1-14 12:43 PM

有關EXCEL 的程式迴圈

請問各位神人，小弟最近碰到一個難題
就是EXCEL的VAB迴圈問題
假設:
我A1~A100有用到都有數值，我寫要在B1~B100填寫上1~10，1~10共有10組連續是填寫不用判斷任何東西

就是B1~B10   顯示1~10
     B11~B20  顯示1~10     ，  直到100全部填寫完畢共10組1~10，請問vab程式要如何撰寫?

拜託跪求高手神人，小弟急需{:38:}

<div></div>

jasonlin7 發表於 2016-1-15 12:16 AM

建議Google一下，學習如何使用Range或Cells控制儲存格，
程式碼請參考：Sub Main()
    Dim myCnt As Long
   
    For myCnt = 1 To 100
        Range("B" & myCnt) = myCnt Mod 10
        
        If myCnt Mod 10 = 0 Then Range("B" & myCnt) = 10
    Next
End Sub

qeczwdxa 發表於 2016-3-12 11:12 PM

重寫了For i = 1 to 10
For j = 1 to 10
    Activesheet.Cells((i-1)*10+j,2).value=j
Next
Next

cjohnjohn 發表於 2016-4-25 01:31 AM

這個用if 公式就可以了，應該不用到vba吧。
b1 是 =1
b2 是 =if(b2<10,b1+1,1)

rr09192084 發表於 2016-5-7 03:56 AM

我也貢獻一個公式！
在B1輸入
=IF(MOD(CELL("row",A1),10)=0, 10, MOD(CELL("row",A1),10))
往下複製即可
不過這要在2007(含)以上的版本才適用。<br><br><br><br><br><div></div>