43、Excel用户表单示例与高级技巧

Excel用户表单示例与高级技巧

1. 用户表单示例

1.1 列表框双击事件

在列表框中双击项目与点击“确定”按钮具有相同的效果。以下是 lbxSheets_DblClick 过程的代码，它只是调用了 cmdOK_Click 过程：

Private Sub lbxSheets_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    cmdOK_Click 
End Sub

此示例可在 listbox activate sheet.xlsm 文件中查看。

1.2 从文本框过滤列表框

当列表框中有大量项目时，可以通过文本框对列表框进行过滤，避免滚动浏览过多条目。以下是实现过滤的相关代码：

Private Sub FillContacts(Optional sFilter As String = "*")
    Dim i As Long, j As Long 
    'Clear any existing entries in the ListBox
    Me.lbxContacts.Clear
    'Loop through all the rows and columns of the contact list 
    For i = LBound(maContacts, 1) To UBound(maContact