作者:乔山办公网日期:
返回目录:excel表格制作
楼主应百该发现这些类模块中的事件前面的声明:度Private Sub
既然是 Private 的,那又如何能够允许你跳出某个问类模块而去执行另外一个类模块中答的 Private 的子程序呢?更何况你去执行工作簿的专 Open 事件属,而且这个工作簿已经被打开了,又何来再次发生 Open 事件呢?
没有直接的解决办法.
换一种来思路吧.
在关闭窗自体事件加入:
Application.ScreenUpdating = False'取消Excel刷新
Sheet1.Range("A65536").Select'关闭窗体后,自动选择百另一个固定单度元格
Application.ScreenUpdating = True'恢复Excel刷新
然后在Worksheet_SelectionChange事件中,加入
if Target.Address(0, 0)="A65536" then exit sub '如果是自知动选择的道单元格就退出事件
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
在这里面写
if target.column=2 then
sheet2.[d1].select
sheet2.[d1]=target.value
end if