VBA Excel：参数不是可选的

Question

对 vba 非常陌生，我在使用一段代码时遇到了一些问题。本质上，我正在尝试对用户表单中列表框中的用户选择的项目执行不同的工作表功能。

Private Sub cmdRunStat_Click()
Dim averageValue As Single
Dim sdValue As Single
Dim maxValue As Variant
Dim minValue As Single
Dim modeValue As Single
Dim UserRange As String, sheetName As String


Set UserRange = ListBox1.Selected = True


If optAverage.Value = True Then

  averageValue = WorksheetFunction.Average(UserRange)
  MsgBox "The average of the selected data is " & averageValue

ElseIf optSD.Value = True Then

   sdValue = WorksheetFunction.StDev(UserRange)
   MsgBox "The standard deviation of the selected data is " & sdValue

ElseIf optMax.Value = True Then

   maxValue = WorksheetFunction.Max(UserRange)
   MsgBox "The maximum of the slected data is " & maxValue

ElseIf optMin.Value = True Then

   minValue = WorksheetFunction.Min(UserRange)
   MsgBox "The minimum of the slected data is " & minValue

Else

    modeValue = WorksheetFunction.Mode(UserRange)
    MsgBox "The mode of the slected data is " & modeValue

End If

End Sub

Answer 1

设置 UserRange = ListBox1.Selected = True

这是分配给String 对象的错误方法。

如果您尝试从列表框中获取选定的值，那么我认为这就是您所需要的？

Dim UserRange As String

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        UserRange = ListBox1.List(i)
        Exit For
    End If
Next i

如果它是Range 对象，那么你需要将上面的内容更改为

Dim UserRange As Range

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        Set UserRange = ListBox1.List(i)
        Exit For
    End If
Next i