Listbox Error “ Could not Set the List property. Invalid Property Value.”
问题 I have userform with a Listbox, textbox and comboboxes and a Save button. Below is my save button code. Private Sub cmdsave_Click() Dim x As Integer x = Me.ListBox1.ListCount If Me.cmbtrans.Value = "Debit" Then With Me.ListBox1 .Enabled = True .ColumnCount = 13 .ColumnWidths = "49.95 pt;10 pt;114.95 pt;10 pt;114.95 pt;10 pt;114.95 pt;10 pt;75 pt;10 pt;49.95 pt;10 pt;49.95 pt" .AddItem .List(x, 0) = Me.txtdate .List(x, 1) = "|" .List(x, 2) = Me.txtgrouphead .List(x, 3) = "|" .List(x, 4) = Me