>即時新聞-熱門

2008年4月22日星期二

EXCEL 任意流水號 - 巨集

請依下列步驟執行
1 選定任何儲存格
2 點選 工具 / 巨集 / 錄製新巨集
3 輸入新巨集名稱 [例如:流水號] / 確定
4 點選 編輯 / 填滿 / 數列
5 點選 欄 [資料取自於項目] / 輸入終止值 [100] ,可以任意輸入 / 確定
您的螢幕上不會有任數據顯示

6 點選 工具 / 巨集 / 停止錄製
7 工具 / 巨集 / 巨集 / 點選您的巨集名稱 / 點選編輯 鈕[右側]
8 進入VBA編輯畫面
9 修改程式如下
Sub 流水號()

x = InputBox("請輸入起始值") <---這是自己加入的, 定起始值
y = InputBox("請輸入終止值") <---這是自己加入的, 定終止值


ActiveCell.Value = x <---這是自己加入的 , 定起始值的儲存格



Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=y, Trend:=False <---注意Y值 , 定終止值

End Sub


程式的修正是必要的

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱