相关文章推荐
小胡子的小马驹  ·  安阳学院--科研处·  11 月前    · 
愉快的铁链  ·  How to properly use ...·  1 年前    · 
兴奋的口罩  ·  query多选下拉框插件 ...·  1 年前    · 
Dima()PrivateSubUserForm_Initialize()a=Application.Transpose([liste])Me.ComboBox1.Lis... Dim a()Private Sub UserForm_Initialize() a = Application.Transpose([liste]) Me.ComboBox1.List = aEnd SubPrivate Sub ComboBox1_Change() If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, a, 0)) Then Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare) Me.ComboBox1.DropDown Else ActiveCell = UCase(Me.ComboBox1) Unload Me ActiveCell.Offset(1, 0).Select End IfEnd Sub