如何通过Excel VBA增加列的textarea

Question

我正在通过VBA从表中检索数据。选择查询正确输出。我选择的一个列的文本描述是多行的。所以当我得到我的行时，我想增加我的textaread电子表格列根据我得到的结果动态地显示。如何执行此操作

Answer 1

您可以对包含查询结果的列使用自动调整方法，例如

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
    '....

如果您想将列宽限制为特定的最大尺寸，您可以将单元格的 .WrapText 属性设置为 = True

希望有所帮助。

祝你好运 - MikeD