使用杂项单元格填充列表框

Question

我正在尝试使用工作表中的其他单元格填充用户窗体“ Listbox1”上的列表框。列表框最初是从EMAIL！R2：R33范围填充的。

我具有用于最小化已填充列表框的显示项目的选项按钮。

所以，我的问题是当我选择一个Option按钮时，我想在列表框中包含不同的单元格。如果选择了选项按钮2，我希望列表框显示来自EMAIL！R2：R4和EMAIL！R6和EMAIL！R10：R14单元格的内容。

我已经尝试从rowsource，additem进行各种操作，但都遇到各种错误或什么都不显示。

任何朝着正确方向提出的建议，我们将不胜感激。

Answer 1

您可以使用以下逻辑：

If OptionButton1 = true then
        ListBox1.Clear
        ListBox1.AddItem ActiveSheet.Range("R1:R4")
End if

类似地，您可以对其余的选项按钮执行此操作。