求助：数据透视表中，如何固定行高与列宽？

nowsok · 发表于 2006-8-12 10:45

我在数据透视表中调整好了格式，可是一点击刷新后，格式及行高列宽均发生改变，

怎样可以令格式不变呢？

BIN_YANG168 · 发表于 2006-8-12 10:47

常规方法做不到。只能借助于VBA.

nowsok · 发表于 2006-8-12 10:58

谢谢回复！可是VBA对我来说很陌生，如果要用VBA，会很复杂吗？请指教

BIN_YANG168 · 发表于 2006-8-12 11:11

xNbgPphz.rar (7.55 KB, 下载次数: 131)

按ALT+F11查看代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns("A:A").ColumnWidth = 10
    Columns("D:D").ColumnWidth = 10
    Columns("b:b").ColumnWidth = 10
    Columns("E:E").ColumnWidth = 10
    Columns("C:C").ColumnWidth = 10
End Sub

本例中我将A-E列款都设为10

当然你可以根据需要改变列款。

自已试一下。

nowsok · 发表于 2006-8-12 11:15

谢谢!!我试一下,有疑问再请教你!

ABBY08 · 发表于 2009-4-7 12:19

不行,我按你提供方法操作一次,行高还是会变

zhouxvan · 发表于 2009-5-4 13:28

试试看，我也想实现那个效果

kuangben8 · 发表于 2012-10-26 09:34

BIN_YANG168 发表于 2006-8-12 11:11
按ALT+F11查看代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Colu ...

版主好！是固定行高不变，不是固定列宽不变，请教。

xpczff · 发表于 2012-10-26 11:31

rowwidth=10

EXCEL771220 · 发表于 2012-10-26 12:01

数据透视选项中有一个选项是：更新时自动调整列宽，把前面的勾去掉，先保证列不变再说吧。

		自动登录	找回密码
密码			免费注册