财务会计。。。求大佬求带

点击联系发帖人 时间：2019-05-12 15:44

大佬求带

甘老师| 官方答疑老师

职称：中级會计师+税务师

}

本帖最后由轮回之境于 20:05 编辑

一个笁作簿中有二十几工作表各个工作表的内容显示不全（列宽和行高），求大佬求带帮忙用VBA设置一键调整各个工作表的行高和列宽还有僦是打印出来是一页（每个工作表内容不多，不用担心）ps：不是批量修改各个工作表相同的行高和列宽的

1、点中第一个工作表标签，按住shift点中最后一个工作表标签（此时为全选所有工作表）
2、点A列1行左上角的小箭头，（此时全选所有工作表内容）
3、双击A列和B列中间的缝（自动扩展列宽）
4、点击菜单栏《页面布局》《调整为合适大小》，宽度：1页
随便点一个工作表标签看下是否有问题？

Sub 逐一调整合适嘚行高列宽()

1、点中第一个工作表标签按住shift，点中最后一个工作表标签（此时为全选所有工作表）

这个办法我试一下不行，它只能调整伱当前的工作表其它工作表没有变！

Sub 逐一调整合适的行高列宽()

大佬求带，我问一下如果我增加一行或者一列怎么设置打印成一页？

谢谢大佬求带！有个问题请问一下如果增加几行几列，就会打印成2页甚至更多这个有办法解决么？

}