|
Private Sub UserForm_Initialize()
Dim lst As ListItem
Dim i As Long, j As Long, k As Long, m As Long
arr = Sheets("销售明细").[a1].CurrentRegion
With Me.ListView1
.ListItems.Clear
For j = 1 To UBound(arr, 2)
.ColumnHeaders.Add , , arr(1, j), Sheets("销售明细").Columns(j).Width + 12
Next
'设置标题行
.View = lvwReport '报表视图
.Gridlines = True '显示网格线
.Font.Size = 12 '设置字号为12号
.FullRowSelect = True '整行选择
'.BackColor = 155
'设置视图
zd = ActiveCell.Value
For k = 2 To UBound(arr)
If arr(k, 1) = zd Then
Set lst = .ListItems.Add()
lst.Text = arr(k, 1)
For m = 2 To UBound(arr, 2)
lst.SubItems(m - 1) = arr(k, m)
Next
End If
Next
'添加记录
Set .SelectedItem = .ListItems(1)
'选择第一条记录
End With
Set lst = Nothing
End Sub |
|