EXECL列宽自适应大小的问题!

bixueer 2003-08-22 10:52:52
怎么在程序中控制EXECL列宽可以自动适应数据长度的问题?就象在EXECL中双击列分隔线的效果一样!
...全文
165 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
HawaiiLeo 2003-08-23
  • 打赏
  • 举报
回复
Range("A1:D9").Columns.AutoFit
wm_ni 2003-08-23
  • 打赏
  • 举报
回复
Columns("起始列:结束列").EntireColumn.AutoFit
起始列和结束列只要用一个字母就可以了,比如我想让A、B、C、D列都自动适应,就用:
Columns("A:D").EntireColumn.AutoFit
dongshaoqing 2003-08-22
  • 打赏
  • 举报
回复
Range("C5").Select
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Times New Roman"
.FontStyle = "常规"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C5").Select
Selection.Columns.AutoFit
理解一下,然后改成适合自己的代码!OK?

5,139

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧