关于ListBox显示界面美化

一指禅62 · 发表于 2019-12-1 09:08

本帖最后由一指禅62 于 2019-12-1 09:13 编辑

VBA中，ListBox 显示效果不如ListView，但ListView 的兼容性又非常差，
运用中纠结不已。

这个方法不妨一试：

附件：

ListBox 多列显示效果.zip (13.58 KB, 下载次数: 402)

YANWEI82123300 · 发表于 2019-12-1 09:21

能否增加一个筛选查询功能命令，和导出excel 工作表功能，更加完美了

一指禅62 · 发表于 2019-12-1 09:28

YANWEI82123300 发表于 2019-12-1 09:21
能否增加一个筛选查询功能命令，和导出excel 工作表功能，更加完美了

谢谢关注！本帖只想探讨 ListBox 的运用效果。筛选、导出等本帖没有关注。

Q155133209 · 发表于 2019-12-1 10:37

感谢分享！！

zpy2 · 发表于 2019-12-1 10:53

谢谢分享，的确不错。。。

YZC51 · 发表于 2019-12-1 10:55

界面不错，谢谢老师分享！

ericyu779 · 发表于 2019-12-1 22:54

感谢分享！！

aecn · 发表于 2019-12-1 23:30

是个好方法，感谢分享！！

02761752696 · 发表于 2019-12-2 09:22

谢谢老师分享，实际运用中的确有版本差异兼容问题，很纠结

语虚何以言知 · 发表于 2019-12-2 11:12

本帖最后由语虚何以言知于 2019-12-2 11:13 编辑

listbox显示表头可以设置 .ColumnHeads = True，赋值用.RowSource=xxxx，举例如下：
Private Sub UserForm_Initialize()
arr = Sheets("data").[a1].CurrentRegion
With ListBox1
.ColumnCount = UBound(arr, 2)
.ColumnHeads = True
.ColumnWidths = "50;50;50;50;50"
.RowSource = Sheets("data").[a1].CurrentRegion.Rows("2:" & UBound(arr)).Address(external = True)
.BorderStyle = fmBorderStyleSingle
.Font.Size = 14
.Font.Name = "微软雅黑"
End With
End Sub

效果：

参考附件：

listbox.rar (19.41 KB, 下载次数: 120)

		自动登录	找回密码
密码			免费注册

[分享] 关于ListBox显示界面美化

评分

评分