Vba 点击";X";在Excel用户窗体上,有时会关闭电子表格
我正在写一个电子表格,双击某些单元格可以打开一个用户表单。当某些用户单击“X”关闭userform时,整个工作簿将关闭(这不是预期的行为)。如果单元格中有内容,则会发生这种情况;如果单元格为空,则当userform关闭时工作簿不会关闭 以下是调用Userforms的常规代码:Vba 点击";X";在Excel用户窗体上,有时会关闭电子表格,vba,excel,userform,Vba,Excel,Userform,我正在写一个电子表格,双击某些单元格可以打开一个用户表单。当某些用户单击“X”关闭userform时,整个工作簿将关闭(这不是预期的行为)。如果单元格中有内容,则会发生这种情况;如果单元格为空,则当userform关闭时工作簿不会关闭 以下是调用Userforms的常规代码: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim requestID As Long Dim ro
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim requestID As Long
Dim rowCount As Long
rowCount = UsedRange.Rows.Count
If (Target.Row > 2) And (Target.Row <= rowCount) Then
requestID = Cells(Target.Row, 1)
Select Case Target.Column
Case 2 To 4
requestUpdateForm.populate requestID
requestUpdateForm.Show
Case 5
initialSearchForm.populate requestID
initialSearchForm.Show
'etc, more forms using Case statements
End Select
End If
Private子工作表\u双击之前(ByVal目标作为范围,Cancel作为布尔值)
将请求ID变长
暗行数与长行数相同
rowCount=UsedRange.Rows.Count
如果(Target.Row>2)和(Target.Row可能是系统中的安装有问题
请尝试重新安装或修复安装。我通过重新启动解决了问题--只需关闭计算机并再次打开即可
仅此而已。我不知道它为什么起作用,但它起作用了。表单中是否有QueryClose事件?如果是,其中的代码是什么?这很有趣。我不确定为什么这个答案被否决。请看问题,这个问题只发生在一台计算机上。这肯定是由于安装问题。安装excel时,某些加载项可能不会起作用这些问题在Microsoft answer网站上也有报道。请尝试使用Microsoft提供的工具重新安装或修复安装。我也不知道为什么会被否决,所以我投票支持它。即使它不是答案,听起来也不是一个坏主意。感谢你的手势Remou。我看到的是t由于一些安装问题,excel的某些功能不起作用。我投了反对票,因为我认为这不是答案。最好先进行广泛调试。然后尝试代码清理、删除其他加载项、删除临时文件等。昨天的另一个类似情况-“excel不提示在应用程序上保存未保存的文件。退出”-已通过在代码不起作用的计算机上删除解算器修复。在您真正尝试查明问题后,重新安装应该是最后的手段。我同意Doug的评论。重新安装是锁定问题失败时的最后一步