頁:
[1]
有關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> 建議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 重寫了For i = 1 to 10
For j = 1 to 10
Activesheet.Cells((i-1)*10+j,2).value=j
Next
Next 這個用if 公式就可以了,應該不用到vba吧。
b1 是 =1
b2 是 =if(b2<10,b1+1,1) 我也貢獻一個公式!
在B1輸入
=IF(MOD(CELL("row",A1),10)=0, 10, MOD(CELL("row",A1),10))
往下複製即可
不過這要在2007(含)以上的版本才適用。<br><br><br><br><br><div></div>
頁:
[1]