筆記-市場分析-071030

巨集指令

錄製巨集時，將巨集儲存在..

個人巨集活頁簿 – 僅限自己的電腦可以用

現用活頁簿 – 文件傳給別人，別人也可以使用

把巨集指令放置在工具列

工具 / 自訂 /

「類別」選到「巨集」

「指令」選到「自訂按鈕」→拉到工具列

刪除工具列上的ICON Alt+拖拉

選擇下面「修改選取範圍」/ 「名稱」（改成要用的名稱）

修改巨集指令

工具 / 巨集 / 巨集

選擇要編輯的巨集指令 → 「編輯」

◎ 黑色為原程式碼

◎ 綠色為註記（可以刪除）

◎ 紅色為增加的程式碼

--------------------------------------------------------------

Sub 增加工作表()

' 增加工作表 Macro

' student 在 2007/10/30 錄製的巨集

x = InputBox("請輸入增加頁數", "Along系統")

For i = 1 To x

Sheets.Add

Next

End Sub

---------------------------------------------------------------

x=inputbox

設 X 接受使用者輸入的數值

("請輸入增加頁數", "Along系統")

第一個 ” ” 顯示提示的文字

第二個 “ “ 視窗標題顯示的文字

For i = 1 To x

執行回圈 I 為1跑到 X（使用者輸入的值）

Next

繼續執行下一個

巨集-合計

-----------------------------------------------------

Sub 合計()

y = InputBox("請輸入工作表數目")

x = 0

For i = 1 To y

Sheets(i).Select

x = Cells(2, 1) + x

Next

Sheets("總合").Select

Cells(2, 3) = x / y

Cells(2, 4) = 1 - (x / y)

End Sub

Sub 合計()程式起點

y = InputBox("請輸入工作表數目")

x = 0

先把X歸0

For i = 1 To y

Sheets(i).Select

Sheets表示工作表（i）表示第幾頁

x = Cells(2, 1) + x

cells表示儲存格的位置(2,1) 表示A2

（5,3）表示E3

Next

Sheets("總合").Select

Cells(2, 3) = x / y

Cells(2, 4) = 1 - (x / y)

End Sub程式結束

巨集-合計 計算十題

----------------------------------------------

Sub 合計()

y = InputBox("請輸入工作表數目")

For q = 1 To 10

x = 0

For i = 1 To y

Sheets(i).Select

x = Cells(q + 1, 1) + x

Next i

Sheets("總合").Select

Cells(q + 1, 3) = x / y

Cells(q + 1, 4) = 1 - (x / y)

Next q

End Sub

Sub 合計()

y = InputBox("請輸入工作表數目")

For q = 1 To 10共有十題

x = 0 x=0 要放這邊，不能放 for 之前

For i = 1 To y

Sheets(i).Select

x = Cells(q + 1, 1) + x

Next i

Sheets("總合").Select

Cells(q + 1, 3) = x / y

Cells(q + 1, 4) = 1 - (x / y)

Next q

End Sub

.