请选择 进入手机版 | 继续访问电脑版

★我要吧★

 找回密码
 注册[Register]
搜索
qq空间相册密码查看为什么登陆后需要激活无法注册?

[分享] Excel自动调整列宽和行高

[复制链接]
发表于 2017-2-8 17:57:38 | 显示全部楼层 |阅读模式

在日常工作中,我们经常需要根据单元格内容去调整列宽和行高的问题。要是手动去调整,这必然会很繁琐,格式上也会造成混乱。要是我们可以用点击一下鼠标的方法,所有的列宽和行高会自动做出调整,这该多棒啊....

下面的方法就可以轻松搞定以上问题,请看:

第1步:依次单击[开发工具]--->[Visual Basic]--->[插入]--->[模块]命令,在模块窗口中输入以下代码,如下图:

在模块中输入代码

Sub AutoRowsColumns()

Application.ScreenUpdating = False

ActiveSheet.Rows("1:1048576").AutoFit

ActiveSheet.Columns("A:XFD").AutoFit

ActiveSheet.Range("A1:XFD1048576").HorizontalAlignment = xlLeft

ActiveSheet.Range("A1:XFD1048576").VerticalAlignment = xlCenter

Application.ScreenUpdating = True

End Sub

第2步:在活动工作表中插入命令按钮。方法是依次单击[开发工具]--->[插入],选择窗口控件按钮,松开左键的同时并指定宏名称为AutoRowsColumns,点击确认并命名为自动调整列款和行高,单击该按钮,最终效果如下图:


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

本版积分规则

QQ|手机版|小黑屋|☆我要吧☆ ( 豫ICP备13016831号-1 )

GMT+8, 2024-3-29 16:20 , Processed in 0.120469 second(s), 20 queries .

Powered by abc369 X3.4

© 2001-2023 abc369.

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