代码之家 › 专栏 › 技术社区 › gizgok

如何通过Excel VBA增加列的文本区域

excel vba excel-vba

gizgok · 技术社区 · 14 年前

我正在通过vba从表中检索数据。select查询正确地给出了输出。我选择的列中有一列具有多行的文本描述。因此,当我获取行时,我希望根据获得的结果动态增加电子表格列的文本区域d。我如何做到这一点?

1 回复 | 直到 14 年前

MikeD 14 年前

你可以使用 自动装置 例如,包含查询结果的列上的方法

Columns("A:G").EntireColumn.AutoFit ' hardcoded ... works but isn't nice

如果为查询结果定义了一个范围,请使用以下代码片段:

Dim QRslt As Range, QCol As Range

    '....
    For Each QCol In QRslt.Columns
        QCol.AutoFit
    Next
    '....

如果要将列宽限制为某个最大值,可以将 包装文本 单元格的属性 =真

希望有帮助。

祝你好运-麦克

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前