添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
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