EXCEL的巨集-問卷統計設計

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

註 : 工作表總合要置於所有工作表的最右側