Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 13525|回复: 10

[已解决]菜鸟求助:如果根据单元格内容自动调整行高?

[复制链接]
发表于 2015-1-31 12:03 | 显示全部楼层 |阅读模式
本帖最后由 alxixi520 于 2015-2-1 15:58 编辑

菜鸟求助:如果根据单元格内容自动调整行高?
如下图:31行为默认行高,能够显示一行文字,可是32行、33行却要手动调整。有没有什么代码可以根据窗口内容调整行高。

附件在五楼
最佳答案
2015-1-31 14:12
工作簿.rar (21.52 KB, 下载次数: 89)
11.png
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-1-31 12:13 | 显示全部楼层
设置格式;
选择列 -- 右键 -- 设置单元格格式 -- 对齐 -- 自动换行 -- 确定
回复

使用道具 举报

发表于 2015-1-31 12:25 | 显示全部楼层
Sub 自动换行()
    Columns("A:A").Select
      Selection.WrapText = True
End Sub
回复

使用道具 举报

 楼主| 发表于 2015-1-31 12:26 | 显示全部楼层
baksy 发表于 2015-1-31 12:13
设置格式;
选择列 -- 右键 -- 设置单元格格式 -- 对齐 -- 自动换行 -- 确定

这样解决不了根据内容调整行高的要求,传统方式已经试过很多了。有没有什么代码可以完成?
回复

使用道具 举报

 楼主| 发表于 2015-1-31 12:56 | 显示全部楼层
zhanmude 发表于 2015-1-31 12:25
Sub 自动换行()
    Columns("A:A").Select
      Selection.WrapText = True

可能是我没有描述清楚。请看附件效果。

工作簿1.rar

22.31 KB, 下载次数: 9

请下载解决

回复

使用道具 举报

发表于 2015-1-31 14:12 | 显示全部楼层    本楼为最佳答案   
工作簿.rar (21.52 KB, 下载次数: 89)
回复

使用道具 举报

发表于 2015-1-31 14:47 | 显示全部楼层
1.设定单元格为自动换行
2.选中行标,鼠标出现“+”双击即可。
回复

使用道具 举报

发表于 2015-1-31 15:34 | 显示全部楼层
alxixi520 发表于 2015-1-31 12:56
可能是我没有描述清楚。请看附件效果。

附件。

工作簿1.rar

15.35 KB, 下载次数: 16

回复

使用道具 举报

 楼主| 发表于 2015-1-31 21:22 | 显示全部楼层
本帖最后由 alxixi520 于 2015-1-31 21:25 编辑
zjdh 发表于 2015-1-31 14:12

谢谢您的帮助,基本实现了一半,还遇到几个问题:
1、文字如果只有一行,调宽了不可以自动恢复到一行的高度,不过这个问题不大,我可以使用双击鼠标实再,再利用宏功能完成多行的调整。
2、字体大小调整了,下面的代码不知道是依据个什么调整,我试着修改可是总是不准确。还请指教!
Sub 行高设置()
    Dim I&, W&, S%, T%
    Application.ScreenUpdating = False
    Columns("A:G").WrapText = True
    For I = 1 To 7       '目前合并单元格为7列
        W = W + Cells(1, I).Width
    Next
    T = W / 5.5         '字体大小时要调整      
    For I = 1 To Range("A65536").End(3).Row
        If LenB(Cells(I, 1)) > T Then
            S = Int(LenB(Cells(I, 1)) / T + 0.99)
            Cells(I, 1).RowHeight = S * 14       '字体大小时要调整系数
        End If
    Next
    Application.ScreenUpdating = True
End Sub

回复

使用道具 举报

发表于 2015-2-1 17:36 | 显示全部楼层
调整行高.rar (24.18 KB, 下载次数: 212)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 23:08 , Processed in 0.481071 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表