/ / Scripting.Dictionary ключі до Listbox VBA Excel - Excel, VBA, Excel-VBA, Listbox, scripting.dictionary

Ключі Scripting.Dictionary для Listbox VBA Excel - excel, vba, excel-vba, listbox, scripting.dictionary

Я працюю з VBA в Excel, і нещодавно почав працювати з об'єктом Scripting.Dictionary. Я не мав проблем з будь-якими серйозними проблемами до сьогодні.

В основному я намагаюся заповнити список зКлючові значення словника, а потім додайте ще одне значення до списку. Це призводить до того, що значення не тільки додаються до списку, а й до словника як ключ. Я намагався скопіювати значення з масиву dict.keys () до повністю окремого масиву, але все одно мають однакову проблему. Я припускаю, що це одна з проблем, але ще не з'ясовано рішення. Якщо хтось має будь-які ідеї, які могли б стати чудовими.

Private Sub Setup_settingLst()
"Set Settings listbox items
"On Error GoTo ErrorExit
Dim list_ary() As Variant
Dim tmp As Variant
Dim i As Integer

settingLst.Clear
settingLst.Value = "-Select Setting-"
i = 0
tmp = tmp_dict.Keys()
If tmp_dict.Count > 1 Then
ReDim list_ary(0 To tmp_dict.Count)
For i = 0 To UBound(tmp)
list_ary(i) = tmp(i)
Next i
list_ary(tmp_dict.Count) = "Back"
Else
ReDim list_ary(0 To tmp_dict.Count - 1)
For i = 0 To UBound(tmp)
list_ary(i) = tmp(i)
Next i
End If
settingLst.List = list_ary
Erase list_ary
Exit Sub
ErrorExit:
End Sub

Відповіді:

1 для відповіді № 1

Це, здається, працює

Private Sub UserForm_Click()

Dim dcValues As Scripting.Dictionary

Me.ListBox1.Clear
Set dcValues = FillDictionary

Me.ListBox1.List = dcValues.Keys
Me.ListBox1.AddItem "Back"

End Sub