VBA练习

oyzjo

Private Sub UserForm_Initialize()
    Dim I%, X&, Y%, Z%
    With ListView1
        .BorderStyle = 1 'ccFixedSingle  '设置边框样式。
        .View = 3 'lvwReport  '设置 View 属性为报表型(表格)。
        .Gridlines = True
        .HoverSelection = True
        .FullRowSelect = True
    End With
    With Sheets("材料")
        Z = .Range("A1").End(xlToRight).Column
        For I = 2 To Z                                                 '加列标题
            ListView1.ColumnHeaders.Add , , .Cells(1, I), ListView1.Width / Z
        Next I
        For X = 1 To .Cells(65536, 2).End(xlUp).Row - 1          '加行数据
                ListView1.ListItems.Add X, , .Cells(X + 1, 2)
            For Y = 2 To Z '加列数据
                ListView1.ListItems(X).SubItems(Y) = .Cells(X + 1, Y)
            Next Y
        Next X
    End With
    ComboBox1.List = Array("白", "绿")
    ComboBox2.List = Array("T", "kg")
End Sub

2288liu

谢谢分享