0

我正在编写一个电子表格，双击某些单元格会打开一个用户表单。当某些用户单击“X”关闭用户窗体时，整个工作簿都会关闭（这不是预期的行为）。如果单元格有内容，就会发生这种情况；如果单元格为空白，则用户窗体关闭时工作簿不会关闭。

这是调用用户窗体的一般代码：

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

我以前见过这种行为，只是相反：单击“X”关闭从空白单元格打开的表单关闭了工作簿，当我创建一个新工作簿并将所有代码复制到其中时，这个问题就消失了。

令我困惑的是，这个错误发生在一个用户的系统上，而不是另一个用户的系统上，即使两者都安装了相同的 Excel。

4

2 回答 2

1

可能是你的系统安装有问题。

尝试重新安装或修复安装。

于 2011-12-09T01:27:13.740 回答
0

我解决了它......通过重新启动 - 只需关闭计算机并再次打开它。

就这样。我不知道为什么它有效，但它有效。

于 2011-12-12T16:42:01.893 回答