excel 用户表单总和

Question

我需要对一列求和，但我不知道如何 select 一个范围。例如，我在一列中有 10 行；当我按下 CommandButton5（我有一个 texbox 并输入 10）时，我的代码尝试对数字求和。在另外 15-20 行之后，我需要再次对数字求和，但我需要最后 15-20 行。我该怎么做？

Private Sub CommandButton5_Click()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets(ComboBox1.Value)
Dim n As Long
Dim total As Long
n = sh.Range("A" & Application.Rows.Count).End(xlUp).Row 'Adaugare rand nou

    total = Application.WorksheetFunction.Sum(sh.range("O" & n-me.sfarsitdeluna.value):Sh.range("O" & n).value)

End Sub

我在 excel 的用户窗体中工作，但我不知道为什么我的代码无法识别 :。

Answer 1

您的代码无法识别 : 冒号，因为它没有以预期格式将参数传递给 Sum 函数。尝试为范围地址创建一个字符串变量，然后将其传递给函数，如下所示：

Dim sRangeToSum as String
sRangeToSum = "O" & n-me.sfarsitdeluna.value & ":O" & n
total = Application.WorksheetFunction.Sum(sh.range(sRangeToSum))

excel 用户表单总和

excel userform sum

excel

vba

userform