一招制胜 | WPS表格——VBA计算1+2+3+4+5+...+20之和的两种方法

⭐场景：使用VBA求和。

📢具体要求：使用VBA计算1+2+3+4+5+...+20之和。

📌说明：本文属于基础知识的应用，建议高手大神可以直接跳过忽略。

步骤1：先打开WPS软件，新建一份表格，并输入相应的内容。如下图所示：我们来实际操作一下。

步骤2：点击【工具】，【开发工具】，【查看代码】，然后点击【插入】，【模块】，然后输入具体代码，如下所示：

Option Explicit

Sub test1()

Dim i As Integer

Dim j As Integer

j = 0

For i = 1 To 20

j = j + i

Next i

MsgBox "1到20的和为：" & j, vbInformation, "操作提示"

[a2].Value = j

Range("A2").Borders.LineStyle = xlContinuous

End Sub

然后点击【运行】，就可以得到所要的结果。如下所示：

知识拓展：第二种方法

输入具体代码，如下所示：

Sub test2()

Dim i As Integer

Dim j As Integer

j = 0: i = 1

Do Until i > 20

j = j + i

i = i + 1

Loop

MsgBox "1到20的和为：" & j, vbInformation, "操作提示"

[b2].Value = j

Range("B2").Borders.LineStyle = xlContinuous

End Sub

然后点击【运行】，就可以得到所要的结果。如下所示：

以上就是今天要分享的内容，欢迎大家评论区留言，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!