Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2112|回复: 1

[已解决]有关【ComboBox1.List = ListView1.第2列的问题】求帮忙!

[复制链接]
发表于 2017-7-16 22:44 | 显示全部楼层 |阅读模式
本帖最后由 js5 于 2017-7-16 22:45 编辑

2017-07-16_223826.jpg
图片上的ComboBox2其实是ComboBox1,我写错了~!
表格: listview内.rar (15.25 KB, 下载次数: 17)
发表于 2017-7-17 09:17 | 显示全部楼层    本楼为最佳答案   
不确定什么是你的 触发条件.
  '-----------------------------------------------
Private Sub 全部显示_Click()
    Dim Itm As ListItem, i As Integer, j%, aaarr() '如果提前给数组定义一个大尺寸, list的下面有空行
        
    ListView1.ListItems.Clear
    With Sheet1
        For i = 2 To .Range("A65536").End(xlUp).Row
            Set Itm = ListView1.ListItems.Add()
            Itm.Text = .Cells(i, 1)
            Itm.SubItems(1) = .Cells(i, 2)
            Itm.SubItems(2) = .Cells(i, 3)
            Itm.SubItems(3) = .Cells(i, 4)
        Next
    End With
   
    ReDim aaarr(i - 3, 1 To 1)
    For j = 0 To i - 3
        aaarr(j, 1) = ListView1.ListItems(j + 1).SubItems(1)
    Next j
    ComboBox1.List = aaarr

   
End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:27 , Processed in 0.440692 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表