錦子老師

2032	如何在 Excel中表達出級數-VBA
實用性	●○○	難易度	●●○○	範本檔	2032.XLSX

鳯書：「錦子老師，請問我要如何表達出級數?級數:A2+A6+A10… 這樣」

錦子老師：「鳯書，其實這需要妳建立如下VBA程式。」

首先按ALT+F11開啟VBA視窗。

點取「插入 > 模組」指令，開啟一張空白模組表。

輸入下列程式：

Sub test()

Dim rng As Range

Set rng = Range("A:A")

rlast = Range("A" & rng.Rows.Count).End(xlUp).Row

mySum = 0       '初始化總值

myStart = 2     '從哪個儲存格開始；若為2代表 A2，若為10代表 A10

myD = 4         '每次往下幾個儲存格；若為4代表：A2,A6,A10,...

i = 0

Do While myStart + i * myD <= rlast

        mySum = mySum + Range("A1").Cells(myStart + i * myD)

        i = i + 1

Loop

MsgBox mySum

End Sub

按F5鍵，即會執行程式，回到活頁簿，顯示如下圖的對話方塊。