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.選取剛剛新增的模組,按下確定,回到主畫面後,按下剛剛新增的圖型,即可完成動作。

指定巨集2  

 

 


arrow
arrow
    創作者介紹
    創作者 黑天使 的頭像
    黑天使

    問問蓮蓬頭

    黑天使 發表在 痞客邦 留言(2) 人氣()