使用ListView控件动态显示Excel表中

Private Sub cmdDelete_Click()    '添加删除按钮
Dim i As Integer
     For i = Me.ListView1.ListItems.Count To 1 Step -1     '循环选定记录
        If Me.ListView1.ListItems(i).Selected Then
            Me.ListView1.ListItems.Remove i
        End If
    Next i
End Sub


Private Sub ComboBox1_Change()   '添加下拉列表框
   Dim ITM As ListItem            定义ListView控件
   Dim i As Integer
    ListView1.ColumnHeaders.Clear     ’添加筛选数据前，清空列表
    ListView1.ListItems.Clear
   ListView1.Icons = ImageList1      ‘绑定ImgeList控件
   ListView1.SmallIcons = ImageList1
   ListView1.ColumnHeaderIcons = ImageList1
   ListView1.ColumnHeaders.Add 1, , "num", ListView1.Width / 3, , 1    ’为列表添加表头
   ListView1.ColumnHeaders.Add 2, , "name", ListView1.Width / 3, lvwColumnCenter, 2
   ListView1.ColumnHeaders.Add 3, , "department", ListView1.Width / 3, , 3
   ListView1.View = lvwReport   ‘定义显示方式
   ListView1.Gridlines = True   ’显示表格
 For i = 2 To [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.Icon = 1
     ITM.SmallIcon = 4
     Next i
End Sub


Private Sub UserForm_Initialize()
Dim i, J
For i = 2 To Sheets("SHEET1").[C65536].End(xlUp).Row
  For J = 0 To ComboBox1.ListCount - 1
     If Cells(i, 3) = ComboBox1.List(J) Then GoTo 100     ‘设置筛选语句
  Next J
  ComboBox1.AddItem Cells(i, 3)
100:
Next i
ListView1.FullRowSelect = True                                        ’窗体初始化语法
ListView1.MultiSelect = True


End Sub

最后

以上就是耍酷西牛为你收集整理的使用ListView控件动态显示Excel表中的全部内容，希望文章能够帮你解决使用ListView控件动态显示Excel表中所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。