Question

VBA列表框的每列宽度如何随着其中的内容的长度来自动调节？

Answer 1

将列表框属性中的AutoSize属性设置为True就行了

Answer 2

简单点的可以计算出各列最长字符串长度,然后乘上某个系数设置listbox的columnwidths属性.

ps:每个字符的像素数和字体及屏幕分辨率有关,如果还要考虑这些变数,需要通过api那样就太复杂了.如果代码只用于本机该系数可以自行试验.

Answer 3

Sub autoFitColumn()
Columns("A:Z").EntireColumn.AutoFit
End Sub

执行完毕即可

追问

是窗体上的列表框的宽度

追答

是列宽不？上面那行就可以自动改列宽，不过要先输入字符串才可以