Office中国论坛/Access中国论坛

标题: [求助]在合并的单元格中如何实现横宽自动增加？？？ [打印本页]

作者: fjsjtlzx 时间: 2005-7-1 14:21
标题: [求助]在合并的单元格中如何实现横宽自动增加？？？
在一般的单元格中，如果选择了自动换行的设置，是单元格的行或列会随文字增加而自动增宽，但在合并的单元格中实现不了，请高手指教，如何让合并的单元格列或行也会随文字的增加而增宽？？？

作者: 红池坝 时间: 2005-7-3 06:58
不行Excel在自动换行或者调整文字大小时会自动调整行高是在没有对初始行高进行任何改动的情况下才会出现，如果你对行高进行任何设置之后，系统将不会再自动调整行高的。在Excel中，合并单元格是一个对单元格的行列属性进行新的操作的，隐含了对行高的确认，所以，不会再自动调整了。

作者: 晓月清风 时间: 2005-7-3 16:33
在含有该合并单元格的工作表中，加入以下代码:

Private Sub Worksheet_Change(ByVal Target As Range)

Target.Columns.AutoFit '自动调整列宽

Target.Rows.AutoFit '自动调整行高

End Sub

但是有一个小毛病：在同一列中，如果新输入的字符较原有的短，则会缩小列宽，而必须用鼠标双击让EXCEL自动调整列宽

作者: fjsjtlzx 时间: 2005-7-4 02:19
请问晓月清风版主：这些代码应加在什么地方，要建立一个宏吗？请详细一点，多谢多谢！！

作者: 晓月清风 时间: 2005-7-4 23:17
按ALT+F11打开VBE窗口，在工程-VBProject窗口中找到含有该合并单元格的工作表（如Sheet1)，双击，打开一个代码窗口，将上述代码复制，粘贴在里面后保存即可

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)