Sub JS()
For i = 1 To 10
x = i '(X是讓儲存格可以跟For迴圈向下移動)
Range("a" & (i)).Value = i '(a是控制欄位的如果你要在b欄產生則改成b)
Next i
End Sub
[如何使用此程式碼]
1.於開發人員選項內插入一模組。
2.點兩下新增出來的模組，之後將程式碼貼上。
3.於Excel 作業畫面插入任一個圖形
4.點選剛新增圖型按下右鍵，選擇指定巨集。
5.選取剛剛新增的模組，按下確定，回到主畫面後，按下剛剛新增的圖型，即可完成動作。
文章標籤
全站熱搜
留言列表
