Forms Excel 2007，用于根据条件筛选工作表记录的VBA表单

我有一个记录列表，我想通过VBA表单使用它

例如：以下记录列表

ID          Score   Date  
------------------------------
228483      80      5/10/2011  
243216      60      4/3/2011  
285483      40      5/1/2011  
291584      30      5/2/2011  
291323      70      4/4/2011  
285607      40      5/7/2011  
7158441     90      5/8/2011  
7083234     10      4/2/2011  

我想有一个vba的形式有多个形式的组成部分，每一个将列出从上述名单的记录根据条件

例如，在左上角，该组件将列出得分超过50分的记录，在右上角，来自同一类型的另一组件将列出第5个月的记录

我不太熟悉VBA表单，真的不知道什么组件会这样做以及如何做

工作表中的任何更改是否会直接反映到vba表单中的列表中

---

感谢Jonsca兄弟和harag兄弟的大力支持，是的，我正在寻找类似DataGridView的东西，这是一个基于条件从数据库中检索的可滚动和可排序的表。我试图寻找“Microsoft Office电子表格”，但似乎需要对excel2007进行一些修改才能添加它，但我的问题是，我们可以用更简单的方法来实现吗？例如，一个本地网页可以连接到excel工作表，并在其中具有相同的控件……我为我要找的东西绘制了一个草图

---

在网页和工作表之间建立danamic连接是否更容易（使用此控件）…提前感谢big brothers。

我建议您使用listbox控件。列表框可以显示多个列，您只需填充它。下面的内容应该会有所帮助

'clear the listbox
lst.Clear

' set the number of columns
lst.ColumnCount = 5

' iterate through the cells and populate the listbox
For x = 1 to 10
    With lst
        .AddItem "ID"                       ' Column 1 data
        .List(.ListCount - 1, 1) = "Score"  ' Column 2 data
        .List(.ListCount - 1, 2) = "Date"   ' Column 3 data
        .List(.ListCount - 1, 3) = "Col 4"  ' Column 4 data
        .List(.ListCount - 1, 4) = "Col 5"  ' Column 5 data
        'etc.
    End With
Next

' set the widths of the columns
lst.ColumnWidths = "2.0cm;1.0cm;2.0cm;1.0cm;1.0cm"

您需要相应地拉入所需的值

希望这有帮助

编辑：

---

>>工作表中的任何更改是否会直接反映到vba表单中的列表中？到目前为止您尝试了什么？如果您不了解表单，并且必须使用表单，那么在您使用表单进行项目之前，您应该花时间了解表单的工作方式。您能告诉我哪些组件可以这样做吗，我尝试了vba控件，但我没有得到在表单中显示记录的控件…我在vba中有一点不错，但在表单中没有，我尝试了，但仍然没有得到它，也没有人询问，所以请您提供帮助？我只需要至少一个控件名或组件名，根据条件在表单中显示工作表记录，，至少名称：|有listbox、comdobox和refedit，但它们一次显示一个单元格或一个两个列，但我需要一个显示符合条件的多个列和行（记录）的组件。也许文本框是最好的选择。请参阅（下半部分）以快速启动。出于您的目的，您可能需要将多行和锁定属性（可在IDE左侧的“属性”框中访问）调整为true（锁定将阻止用户编辑数据，但仍允许复制）.实际上，它就像图片中用红色圈起来的东西，应该与表格中的数据联系起来，但这是acces提供的，我不知道excel是否有？！我不知道这个组件的名称。这是一个以编程方式（在条件下）显示许多记录的组件，我可以滚动浏览和排序..对不起，我的评论太混乱了..对不起，我在你的帖子中没有看到任何图片，所以不确定红色圆圈是什么。我不知道问题，因为我没问题，链接是。。。在窗体设计窗口中，右键单击工具箱并添加新控件。在列表中搜索类似“MicrosoftOfficeSpreadsheet”的内容，这将基本上在您可以使用的表单上放置一个电子表格。我个人从未用过这个。