经验直达：
- excelvba修改代码
- 请帮忙修改一下EXCEL代码
- excel怎么自定义格式的常用代码
一、excelvba修改代码
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(X1, 2)
For Y = 2 To Z '加列数据
ListView1.ListItems(X).SubItems(Y) = .Cells(X1, Y)
Next Y
Next X
End With
ComboBox1.List = Array("白", "绿")
ComboBox2.List = Array("T", "kg")
End Sub