【excel BUG？】隐藏行，再取消隐藏，中间的控件全部消失（行高变成0）

AVEL

发个附件看看。什么情况

generalissimo

AVEL 发表于 2013-8-9 16:55
发个附件看看。什么情况

主楼有更新，请达人看下啊，我想应该说明白了吧，是否需要我再上附件？

generalissimo

jsxjd 发表于 2013-8-9 16:30
设置 Checkbox “大小、位置随单元格而变”

主楼有更新

generalissimo

yjh_27 发表于 2013-8-9 16:49
用代码非常快

仔细看了下，checkbox本身长度，以及所处sheet的高度发生变化。宽和所处的到最左端的位置没有变化。所以还原没法写了啊

generalissimo

AVEL 发表于 2013-8-9 16:55
发个附件看看。什么情况

关闭excel前的自动取消全部隐藏，是不是这样写啊，我写在模块里，报错诶

1. Private Sub workbook_beforesave(cancel As Boolean)
   
2. 
   
3. Sheet1.Range(A1, A32).EntireRow.Hidden = False
   
4. 
   
5. 
   
6. End Sub
   
7. 
   

复制代码

generalissimo

jsxjd 发表于 2013-8-9 16:30
设置 Checkbox “大小、位置随单元格而变”

关闭excel前的自动取消全部隐藏，是不是这样写啊，我写在模块里，报错诶

1. Private Sub workbook_beforesave(cancel As Boolean)
   
2. 
   
3. Sheet1.Range(A1, A32).EntireRow.Hidden = False
   
4. 
   
5. 
   
6. End Sub
   
7. 
   

复制代码

jsxjd

generalissimo 发表于 2013-8-9 17:32
关闭excel前的自动取消全部隐藏，是不是这样写啊，我写在模块里，报错诶

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2.     Sheet1.Range("A1:A32").EntireRow.Hidden = False
   
3. End Sub

复制代码

yjh_27

generalissimo 发表于 2013-8-9 17:32
关闭excel前的自动取消全部隐藏，是不是这样写啊，我写在模块里，报错诶

写在ThisWorkbook里，不是模块里。
代码按17L改

liucqa

嗯，只能根据控件关联的单元格来重新给控件定位了

mazeboy

jsxjd 发表于 2013-8-9 18:00

请问代码中的Sheet1如何换成多个表格或者所有表格。
比如我想Sheet1、Sheet2、Sheet3、Sheet4、Sheet5的相同单元格执行这个代码，怎么写，
如果是工作簿中所有表格中，相同的单元格执行这个代码，怎么写