窗体中，多个COMMAND BUTTON共用LISTBOX1

lucasmnp

各位前辈，老师们好，

小生不惑！！！！！！小生想自制一个百家姓的窗体应用于实际工作当中，但在实际过程中，觉得窗体太多！
如何能在窗体中，多个COMMAND BUTTON共用LISTBOX1！才能更加确保窗体更加实用并且美观！
详见附件！

祝各位，前辈，老师们身体健康，财源滚滚，小生在此拜谢！

microyip

没看懂要做什么

lucasmnp

microyip 发表于 2018-8-19 08:30
没看懂要做什么

前辈你好，我的意思是，我现在的工作，是用USERFORM1这种形式的，相当累，因为我按B，就会出现第一个拼音字母为B的姓氏出来，按C BUTTON，就会出现第一个拼音字母为C的姓氏出来，但现在，他们都是运用在各自的LISTBOX 1.....我现在就是想，运用USERFORM2....将所有A-Z归类全部按钮，达到，比如我按Z，就会在LISTBOX中显示Z开头的姓氏，比如我按C，就会在LISTBOX中显示C开头的姓氏，但重点是，只能出现在一个LISTBOX 中，谢谢

microyip

对数据进行筛选，在ListBox清理数据重新组建数据即可

lucasmnp

继续顶一下，谢谢各位

lucasmnp

microyip 发表于 2018-8-19 08:45
对数据进行筛选，在ListBox清理数据重新组建数据即可

有劳前辈，小生还在学习当中....-_-!!!!!!!!!!!!!!!!!

microyip

窗体代码

1. Dim cltBT As New Collection
   
2. 
   
3. Private Sub SetOLEObjectControl()
   
4.     Dim oControl As Object, clsBT As ButtonClass
   
5.    
   
6.     For Each oControl In Me.Controls
   
7.         If TypeName(oControl) = "CommandButton" Then
   
8.             If oControl.Caption <> "确定" Then '不是“确定”按钮
   
9.                 Set clsBT = New ButtonClass
   
10.                 Set clsBT.Control = oControl
    
11.                 cltBT.Add clsBT
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     Set clsBT = Nothing
    
16. End Sub
    
17. 
    
18. Private Sub UserForm_Initialize()
    
19.     SetOLEObjectControl
    
20. End Sub

复制代码

ButtonClass类代码

1. Public WithEvents Control As CommandButton
   
2. 
   
3. Private Sub Control_Click() '点击动作
   
4.     Dim vData As Variant, nRow As Integer, vList As Variant, nList As Integer, sCaption As String
   
5.    
   
6.     ReDim vList(1 To 1)
   
7.     nList = 0
   
8.     sCaption = Control.Caption
   
9.     vData = Sheet1.[L1].CurrentRegion.Value
   
10.     For nRow = 1 To UBound(vData)
    
11.         If vData(nRow, 1) Like sCaption & "*" Then
    
12.             nList = nList + 1
    
13.             ReDim Preserve vList(1 To nList)
    
14.             vList(nList) = vData(nRow, 1)
    
15.         End If
    
16.     Next
    
17.     With Control.Parent.ListBox1
    
18.         .Clear
    
19.         If nList > 0 Then .List = vList
    
20.     End With
    
21. End Sub

复制代码

microyip

附上附件以供参考

lucasmnp

microyip 发表于 2018-8-19 10:00
附上附件以供参考

您好，老师，我已经将“确认”改为“确定”，但仍然无法输出？？？？是我EXCEL版本原因吗？

microyip

lucasmnp 发表于 2018-8-19 10:06
您好，老师，我已经将“确认”改为“确定”，但仍然无法输出？？？？是我EXCEL版本原因吗？

你有点过了ABCD……按钮了吗？