|
Private Sub UserForm_Initialize()
Dim Itm As ListItem '总是在此处报错 用户定义类型未定义
With ListView1
.ColumnHeaders.Add , , "定单号", 40, lvwColumnLeft
.ColumnHeaders.Add , , "产品型号", 50, lvwColumnCenter
.ColumnHeaders.Add , , "数量", 30, lvwColumnCenter
.ColumnHeaders.Add , , "单价", 50, lvwColumnRight
.ColumnHeaders.Add , , "金额", 50, lvwColumnRight
.ColumnHeaders.Add , , "发货日期", 60, lvwColumnRight
.View = lvwReport
.Gridlines = True
For i = 1 To Sheet2.[A65536].End(xlUp).Row
Set Itm = .ListItems.Add()
With Sheet2
Itm.Text = .Cells(i, 1)
Itm.SubItems(1) = .Cells(i, 2)
Itm.SubItems(2) = .Cells(i, 3)
Itm.SubItems(3) = Format(.Cells(i, 4), "0.00")
Itm.SubItems(4) = Format(.Cells(i, 5), "0.00")
Itm.SubItems(5) = Format(.Cells(i, 6), "yyyy-mm-dd")
End With
Next
End With
End Sub |
|