当前位置：文江博客话题详情

如何检测列是否包含不适合其宽度的值？

发布于 2024-11-06 23:49:04 字数 44 浏览 3 评论 0原文

我需要检测列是否有一些需要更多宽度的值（网格中显示为 ###### 的值）

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

深爱成瘾 2024-11-13 23:49:05

解决方案取决于数据如何输入到单元格中。以下内容可能会帮助您开始：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Columns.AutoFit
End Sub

或者影响一张工作表 - 例如在宏中 - 您可以将其更改为通过工作表编号/名称

Sub SetColWidth()
    Sheets(1).Columns.AutoFit
End Sub

或通过所有工作表并立即设置它们：

Sub SetColWidthAllSheets()
    Dim s As Worksheet
    Application.ScreenUpdating = False
    For Each s In Sheets
        s.Columns.AutoFit
    Next
    Application.ScreenUpdating = True
    End Sub

希望这有帮助

编辑：将 ScreenUpdating 添加到上面的代码中。

The solution depends on how the data is entered into the cells.. the below might get you started:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Columns.AutoFit
End Sub

Or to affect one sheet - e.g. in a macro - you could change it to pass through the sheet number/name

Sub SetColWidth()
    Sheets(1).Columns.AutoFit
End Sub

or to go through ALL the sheets and set them all at once:

Sub SetColWidthAllSheets()
    Dim s As Worksheet
    Application.ScreenUpdating = False
    For Each s In Sheets
        s.Columns.AutoFit
    Next
    Application.ScreenUpdating = True
    End Sub

Hope this helps

EDIT: Added ScreenUpdating to above code.

回复收藏 0 原文

~没有更多了~