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

yjh_27

generalissimo 发表于 2013-8-9 16:46
怎么还原啊，求指点

我仔细看了下，那些消失的checkbox全部变成了行高非常窄（微软官网讨论说是隐藏保 ...

用代码非常快

generalissimo

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

我在微软官网讨论区那边看到的还原代码是要设置 长、宽、所在位置。有4个变量。然后我的checkbox很多啊，上万个。肯定不能一个一个设置位置了。


有办法一次性设置吗？我觉得应该只需要还原所有checkbox的长、宽即可。这个是统一的

AVEL

发个附件看看。什么情况

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的相同单元格执行这个代码，怎么写，
如果是工作簿中所有表格中，相同的单元格执行这个代码，怎么写