VBA中ColumnWidths属性不符文档描述及超长设置问题

在通过VBA代码给列表框设置ColumnWidths属性时，少量列的场景下代码可以正常运行：

colString = "0 in; 2 in; 2 in; 1 in; 0 in;"
Me.lstListbox.ColumnWidths = colString

但当列数达到44列时，会遇到两个核心问题：

1. 构建的列宽字符串长度约267字符时，触发错误2176：“该属性的设置过长”。实际测试确认，ColumnWidths的字符串长度上限为255字符，这是官方文档未明确说明的隐性限制。
2. 按照文档说明（默认单位为磅，72磅=1英寸）改用无单位的数值设置时，代码完全不生效：

colString = "0; 144; 144; 72; 0;"
Me.lstListbox.ColumnWidths = colString

问题原因解析 #

1. 字符长度限制：Access对ColumnWidths的字符串值有255字符的硬限制，超过则抛出错误2176，这属于文档遗漏的细节。
2. 单位默认值偏差：官方文档描述的默认单位为磅并不准确，实际Access默认使用英寸作为单位，省略单位时会按英寸解析数值，导致磅值设置无效。

解决方案 #

1. 压缩字符串长度，规避255字符限制

• 去掉不必要的空格：删除分号后的空格，比如把"0 in; 2 in;"改为"0in;2in;"，能显著减少字符数。
• 使用更短的单位缩写：用"（英寸的缩写，VBA中需写两个双引号转义）替代in，进一步缩短字符串，比如"0"";2"";"。
• 批量生成重复列宽片段：如果多列宽度相同，用String函数批量生成重复的列宽字符串，避免手动重复输入。

示例代码（44列场景，假设前40列2英寸，第41列1英寸，最后3列0英寸）：

' 用缩写单位+批量生成的方式构建字符串
colString = "2"";" & String(39, "2"";") & "1"";0"";0"";0"""
Me.lstListbox.ColumnWidths = colString

2. 正确使用磅单位设置列宽

如果需要用磅作为单位，必须显式指定pt后缀，示例代码：

colString = "0pt;144pt;144pt;72pt;0pt;"
Me.lstListbox.ColumnWidths = colString

3. 极端场景备选方案

如果列数极多，压缩后仍超过255字符，可以考虑：

• 隐藏不必要的列，减少需要设置宽度的列数；
• 使用连续相同宽度的列时，利用Access的简化规则（比如"2"";*"表示第一列2英寸，剩余列均分剩余宽度），但该规则仅适用于最后一列用*的场景。

内容的提问来源于stack exchange，提问作者Pflipper