ListBox标签显示多列问题

lj3543711

ListBox标签显示多列问题

如增加第三列  销售日期


Sub LIS(B)
    ARR = Sheets(B).Range("A2:J" & Sheets(B).Range("A65536").End(3).Row)
    Set D = CreateObject("scripting.dictionary")
    For I = 1 To UBound(ARR)
        D(ARR(I, 1)) = ARR(I, 4)
    Next
    K = D.KEYS
    ListBox1.Clear
    For I = 0 To UBound(K)
        ListBox1.AddItem K(I)
        ListBox1.List(I, 1) = D(K(I))
    Next I
    GZB = B
End Sub

lisongmei

你可以将 单号，日期，名称 单独放一个数组arr，然后用
ListBox.List=arr
ListBox.ColumnCount = 3
就能把三列都显示出来了
反正我一般是这么操作的