返回目录：excel表格制作
对于这个问题，你百可以有一下解决办法：
①利用单元格range的属性entireColumn
如：更改sheet2上A列单元度格的列宽为问50
Sheet2.Range("a1").EntireColumn.ColumnWidth = 50答→ →上面这句回话也可以用下面这句话代替
Sheet2.Range("A1").ColumnWidth = 50→ →当然也可以用下面这句话代替
sheet2.Columns("A:A").ColumnWidth =50②可以更改工作表中所有单元格的列宽，利用cells的属性cloumnWidth
Sheet2.Cells.ColumnWidth = 50
注：用以上方式也可以设置行高，答rowHeight属性，方法相同；
希望能帮到你，谢谢！
楼主，像楼上这样操作一次之后，打开（不记得是在”视图“里还是”审阅“里）（vba）录制宏（指定合适的按钮（e.g. ctrl+shift+f)，然后，重复楼上的这些操作一遍，然后点停止录制（就在录制宏旁边，然后），然后就有了ctrl+shift+f，一键完成
1
楼主，我通过调试，改了你的代码（楼主为什7a64e78988e69d83335么不贴代码，难道是伸手党或者度娘……）
嗯……其中有两处小问题，'2007excel可能有点旧了，以致与楼主的不太一致
一是unload
me的问题，原来位置上的unload
me（被注释掉了）会让定义在整个窗体里的变量被清理掉，然后空值被清除，报错（也许可以把6个public变量定义放到private
workbook_open()里的userform1.show前面一行，而不用改unload
me的位置，应该也不会报错）'总之它们不能在userform1的代码里面
（嗯，确实没有问题，而且执行速度感觉快了几秒，图2，3）
2
3
4
另一个问题是打印的效果问题，默认的14行只有13行在a4纸里，这个调参数就好了（图5，6中a14的ckeko没有能被放在预览a4纸里面）
还有个严重点的问题是columns的使用，columns("1:"&ls).select会报错
可以改为range(columns(1),columns(ls)).select
5
6
7
需要代码的也可以发
1、首先zd我们打开电脑里的excel表格软件打开一个要设置列宽的表格。
2、在工作表中，点击菜单栏【开发工具】，在回其工具栏内，点击【visual basic】选项。
3、然后我们会进入VBA编辑界面，点击菜单栏【插入】，在其下拉菜单中，选择【模块】选项。
4、然后软件界面会弹出模块编辑窗口。
5、然后我们在代码编辑窗口输入以下代码。
6、然后我们在VBA窗口，点击【运行】按钮。
6、如下图所示，调整后的表格列宽已经设置成答功了。