Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.Value
Me.ListBoxl.Clear
Me.TextBoxl = ""
Me.ListBoxl.Visible = False
Me.TextBoxl.Visible = False
End Sub
改成
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.Value
Me.ListBox1.Clear
Me.TextBox1= ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
End Sub
这儿出错:
Me.ListBoxl.Clear
Me.TextBoxl = ""
Me.ListBoxl.Visible = False
Me.TextBoxl.Visible = False
你把textbox1输成textboxl
本来是数字1,你输入成字母l,肯定出错