錦子老師

黃霑：「錦子老師，我是否可以在Inputbox中讓使用者輸入要計算的範圍後，自動計算出該範圍內數值的總和。謝謝！」

錦子老師：「這個需求可以使用Application.InputBox來建立一個對話方塊，供使用者輸入儲存格範圍並計算出總和。」

按ALT+F11鍵啟動VBA視窗。

點取「插入 > 模組」指令，新增Module1模組。

輸入下列程序

Sub TEXT()

Dim ran As Range

Dim cel As Range

Dim su As Integer

Set ran = Application.InputBox("請選擇計算總和範圍：", Type:=8)

su = 0

For Each cel In ran.Cells

  su = su + cel.Value

Next cel

MsgBox "總和：" & su

End Sub

按F5鍵或是點取「執行 > 執行SUB或USERFORM」指令，就會在Excel活頁簿視窗指定位置跳出一個對話視窗，讓使用者輸入資料，使用者輸入完儲存格範圍後，按「確定」鈕。

點取「確定」鈕，即會顯示計算結果。

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

部落格相關範例