vba Userform宏编辑错误的工作表

Question

我有一个用户窗体，它应该在 Sheet3 上插入一行并用一些值填充该行中的一些单元格。只要我显示了 sheet3，它就可以很好地工作。 （表格显示为无模式，以便我访问工作表）。

无论如何，我碰巧有另一个工作表处于活动状态并再次运行它，并惊讶地发现它插入的行不是在 sheet3 中，而是在我显示的那个中......（感谢上帝，我先保存了！）

在代码中，我指定了一个范围对象，如下所示：（为了简单起见，我将代码截断一点）

Dim RecordRange As Range
Set RecordRange = Sheet3.Cells(RowVariable,ColumnVariable)
RecordRange.Offset(1,0).EntireRow.Insert

哈哈哈哈哈哈。 一种解决方法是先激活工作表：

Sheet3.Activate

至少插入到正确的工作表中，但我宁愿在添加记录时不显示 sheet3，所以我什至用：

Application.ScreenUpdating = False
Sheet3.Activate
Application.ScreenUpdating = True

不幸的是，ScreenUpdating 不能在用户表单代码模块中工作，所以会咬人......

当我已经在代码中指定了 sheet3 时，我仍然不明白为什么它选择将行插入到任何活动的工作表中。我有另一个非常相似的宏没有这个问题。

有什么想法吗？

Answer 1

...所以您认为您的解决方法需要解决方法？ 嗯... 我认为这符合双重否定的条件，因为根据定义，解决方法应该修复问题而不是导致问题...

解决方法是绕过系统中已识别的问题。一个 解决方法通常是临时修复，这意味着真正的 需要解决问题。但是解决方法通常是 创造性作为真正的解决方案，涉及跳出框框思考 他们的创作。

通常它们被认为是脆弱的，因为它们不会响应 以及从原始设计之外的系统进一步施加压力。在 实施变通方法很重要的是标记更改，以便 稍后实施适当的解决方案。

对解决方法施加压力可能会导致以后的系统故障。 例如，在计算机编程中，变通方法通常用于 解决库中的问题或反模式，例如不正确的 返回值。更改库时，解决方法可能会中断 整体程序功能，有效地成为 反模式，因为它可能期望来自 图书馆。 _(Wikipedia)

只是说... :-)

因此，您的原始问题不是修复解决方法，而是（谢天谢地）直截了当。

您正在使用 Sheet3 作为对象，我怀疑您没有分配任何东西（例如将 Worksheets("Sheet3") 分配给名为 Sheet3 的对象。

试试这个：

Dim RecordRange As Range
Set RecordRange = Worksheets("Sheet3").Cells(RowVariable,ColumnVariable)
RecordRange.Offset(1,0).EntireRow.Insert

如果您确实打算将 Sheet3 用作对象，请确保将其声明为 set，例如，您可以改用：

Dim RecordRange As Range
Dim Sheet3 As Worksheet
Set Sheet3 = Worksheets("Sheet3")
Set RecordRange = Sheet3.Cells(RowVariable,ColumnVariable)
RecordRange.Offset(1, 0).EntireRow.Insert

另外，只是要指出：如果其中任何一个解决了您的问题，那么问题将通过在每个模块的顶部包含一行（至少在开发和故障排除期间）“让自己知道”：

Option Explicit

This link 有一个简短的解释，但基本上它会强制您正确声明所有变量（从而有助于防止将来出现变通方法！）