5,139
社区成员
发帖
与我相关
我的任务
分享VBA中ListView控件
如何用Excel中的VB编辑器实现ListView的多列显示。在ListView的属性栏中没有象VB中的那样的插入列。
...全文
请发表友善的回复…
发表回复
yangzhaoyu 2002-03-11
- 打赏
- 举报
没有明白你的意思,是这个吗
Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "A"
.ColumnHeaders.Add , , "B"
For i = 1 To 10
.ListItems.Add , , Sheet1.Cells(i, 1)
.ListItems(i).SubItems(1) = Sheet1.Cells(i, 2)
Next
End With
End Sub
Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "A"
.ColumnHeaders.Add , , "B"
For i = 1 To 10
.ListItems.Add , , Sheet1.Cells(i, 1)
.ListItems(i).SubItems(1) = Sheet1.Cells(i, 2)
Next
End With
End Sub
