Excel文件内所有表格填写内容后都自动扩大，就是能全部显示内容

micsky9966

https://www.lanzouw.com/idXWc1wj8yxi
密码:dfab


希望里面1 2 3 4这些表格里面的单元格都能自动放大，显示全部内容


最好能将改好后的文件发给我，我自己试了网上的方法，没成功


我不会发图，做了个示例图片word，简单说，就是所有表格内能自动分行显示完整内容


https://www.lanzouw.com/iOX5b1wjkezc
密码:8xbg

帅帅糖爸

micsky9966 发表于 2024-4-26 13:21

我说的方法，自动换行就可以解决了
但是仔细看了你后边的表格，跟进反馈那一列是合并的单元格，所以自动换行是无效的，如果备注内容少，是否考虑这一列不要合并

niluelf

看来楼主的附件，但是没理解楼主的目标，我看现在单元格显示的内容是全的啊

愚无尽

全选
点击“开始”选项卡下的“格式”组中的“自动调整列宽”。

lorzl

[Visual Basic] 纯文本查看 复制代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim rng As Range
    Dim col As Range
    Dim beforeWidth As Double
    Dim afterWidth As Double
    Dim columnCounter As Integer
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查是否为当前工作表
        If ws.Name <> "客户总览" Then
            ' 设置要调整列宽的范围
            Set rng = ws.UsedRange
            
            ' 检查每一列是否需要自适应列宽
            For columnCounter = 1 To rng.Columns.Count
                ' 获取调整列宽前的宽度
                beforeWidth = rng.Columns(columnCounter).ColumnWidth
                
                ' 自适应当前列的列宽
                rng.Columns(columnCounter).AutoFit
                
                ' 获取调整列宽后的宽度
                afterWidth = rng.Columns(columnCounter).ColumnWidth
                
                ' 如果自适应后的宽度小于或等于调整前的宽度，则恢复调整前的宽度
                If afterWidth <= beforeWidth Then
                    rng.Columns(columnCounter).ColumnWidth = beforeWidth
                End If
            Next columnCounter
        End If
    Next ws
End Sub

在客户总览的数据改变事件下,写入以下代码
PS:  可以继续优化修改第几行只判断第几个表
示例文件如下: 示例文件 密码:52pj

micsky9966

愚无尽 发表于 2024-4-26 09:53
全选
点击“开始”选项卡下的“格式”组中的“自动调整列宽”。

我试了，不行呢，

micsky9966

lorzl 发表于 2024-4-26 10:25
[mw_shl_code=vb,true]Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
  ...

这样不行，我打开你的示例，我直接卡死了

lorzl

micsky9966 发表于 2024-4-26 10:53
这样不行，我打开你的示例，我直接卡死了

那就不用我的示例,代码直接写入你的VBA编辑器中,我这边是可以的,不行的话远程帮你处理

帅帅糖爸

选中单元格列，点击【自动换行】

micsky9966

帅帅糖爸 发表于 2024-4-26 11:19
选中单元格列，点击【自动换行】

用了，没用