LISTBOX 的问题

ME.李

   小弟 用字典去重了后，算是学艺不精  只能把KEYS 提出来  但是ITEMS 不会 。请教下 LISTBOX 怎么输出了



Private Sub CommandButton1_Click()

arr = Worksheets("BOM").Range("A1:C400")

Set d = CreateObject("Scripting.Dictionary")
  
            For b = 1 To UBound(arr)
            
               If Not d.exists(arr(b, 1)) Then
               
                d(arr(b, 1)) = arr(b, 2)
               
                End If
           Next
           
      Me.ListBox1.List = d.keys
      

End Sub

xjl565135022

1. Private Sub CommandButton1_Click()
   
2. arr = Worksheets("BOM").Range("A1:C400")
   
3. Set d = CreateObject("Scripting.Dictionary")  
   
4. For b = 1 To UBound(arr)
   
5.     If Not d.exists(arr(b, 1)) Then      
   
6.         d(arr(b, 1)) = arr(b, 2)
   
7.     End If
   
8. Next
   
9. For Each Value In d.keys
   
10.     Debug.Print Value, d(Value)
    
11. Next
    
12. End Sub
    

复制代码

ME.李

xjl565135022 发表于 2024-9-9 16:16

几个意思，这不是立即窗口的语句吗

xjl565135022

ME.李 发表于 2024-9-9 16:55
几个意思，这不是立即窗口的语句吗

是啊，item要输出到哪里你自己抄进去就好了呀

Qs18

1. Private Sub CommandButton1_Click()
   
2. 
   
3. arr = Worksheets("BOM").Range("A1:C400")
   
4. 
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6.   
   
7.             For b = 1 To UBound(arr)
   
8.             
   
9.                If Not d.exists(arr(b, 1)) Then
   
10.                
    
11.                 d(arr(b, 1)) = arr(b, 2)
    
12.                
    
13.                 End If
    
14.            Next
    
15.            
    
16.       Me.ListBox1.List = d.items
    
17.       
    
18. 
    
19. End Sub
    

复制代码

Qs18

试试。。。。

Qs18

试一下。。。。。。。。

micch

d.items  ?

醉眼看尘世

附件中。。。。。。

ww87725244

Me.ListBox1.List = d.items