在VBA中显示过滤器结果

时间:2018-07-16 15:13:23

标签: excel vba

我正在构建一个显示包含多个项目的列表框的用户窗体,并且用户可以选择列表框中的一个项目。选择后,我想根据所选项目过滤一个工作表,并将数据显示给用户。 我不想显示过滤后的工作表,而只显示带有过滤数据的图像或表。 我设法建立用于过滤和选择范围的代码,但是在处理数据时遇到了麻烦。例如:

Private Sub CommandButton2_Click()
    Worksheets("Resumo").Activate
    ActiveSheet.Range("$F$1:$W$400").AutoFilter Field:=2, Criteria1:=ListBox1.value

    Range("F1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select


End Sub

选择之后,我想将此选择显示在用户窗体中,作为无法编辑的图像或表格。

有人可以建议我显示数据的方法吗?

Edit1:感谢您的建议,我将展示当前显示数据的方式,以例证我正在尝试做的事情: 我正在使用一个消息框来显示数据(用vbCrLf分隔的数据构建一个数组)。 msgbox的问题是我无法正确定位数据,例如:

enter image description here

如何保持消息框样式并正确显示数据?

Edit2:Userform listbox to show values from a range显示的内容与我想要的类似,但就我而言,使用过滤器比命名区域更好,因为有多个要过滤的项目。

0 个答案:

没有答案