LISTBOX 的问题

xjl565135022

1. Private Sub CommandButton1_Click()
   
2. Set ws = Worksheets("BOM")
   
3. arr = ws.Range("A1:B" & ws.[A65536].End(3).Row)
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For b = 1 To UBound(arr)
   
6.     If Not d.exists(arr(b, 1)) Then
   
7.         d(arr(b, 1)) = arr(b, 2)
   
8.     End If
   
9. Next
   
10. For Each Value In d.keys
    
11.     ListBox1.AddItem Value & "：" & d(Value)
    
12. Next
    
13. 
    
14. End Sub

复制代码

ME.李

Qs18 发表于 2024-9-9 17:06
试一下。。。。。。。。

我需要两列都显示啊  

ME.李

ww87725244 发表于 2024-9-9 17:12
Me.ListBox1.List = d.items

你改了这个 你KEYS 不是就没有了 ，我想要把KEYS和items 一起显示

xjl565135022

ME.李 发表于 2024-9-9 17:25
我需要两列都显示啊

我的天呐这饭不喂进嘴你是真的不会吃呀...

ME.李

醉眼看尘世 发表于 2024-9-9 17:08
附件中。。。。。。

谢谢  就是这个效果，嗯要是我比如需要显示三列  是不是需要把KEYS 合并字段 然后再拆开了

Qs18

ME.李 发表于 2024-9-9 17:25
我需要两列都显示啊

你也没有说清楚

醉眼看尘世

Key一列，Item一列，何来三列？
你求助的时候，需要给出期望的效果。大家才好帮你。这么多人，都在猜你想要什么结果。

ME.李

xjl565135022 发表于 2024-9-9 17:38
我的天呐这饭不喂进嘴你是真的不会吃呀...

我知道你的意思 你加个连接符，区别，但是效果没有那位朋友好

ME.李

醉眼看尘世 发表于 2024-9-9 17:41
Key一列，Item一列，何来三列？
你求助的时候，需要给出期望的效果。大家才好帮你。这么多人，都在猜你想 ...

没有 没有 我只是问个思路 ，你这个效果就是我想要的了 谢谢