vba - 尝试从 Worksheet Sub : 'Run-time Error: 1004' 调用 Module Sub

Question

我正在 Excel 上的 VBA 中编写一些代码，遵循以下过程:它在 E 列中搜索，直到找到标题“项目名称”，然后在 F 列中搜索，直到找到“小计”。根据这两个位置，我可以对它们之间的值总数 (n) 进行求和。

这是在模块中编写的，其代码如下所示:

Public Sub Sum()

Dim Sub_Total As Range
Dim Total As Range

   Set Item_Name = Sheets("Sheet1").Range("E:E").Find("Item Name")
   Set Sub_Total = Sheets("Sheet1").Range("F:F").Find("Sub Total")

   Range(Sub_Total.Address).Offset(0, 1) = Application.Sum(Range(Cells(Item_Name.Row + 1, 7), Cells(Sub_Total.Row - 1, 7)))

End Sub

然后我希望有一个功能可以检测用户是否更改了求和区域内的值，因此如果更改了值，它将再次对所有值求和(再次运行此子程序)。

我在工作表代码中编写了这部分代码，如下所示:

Public Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range(Cells(Range("E:E").Find("Item Name").Row, 7), Cells(Range("F:F").Find("Sub Total").Row, 7))) Is Nothing Then

        Call Sum

    End If

End Sub

我将其设置为如果用户更改了值，那么它将调用我之前生成的模块中的子程序。

但是，每当我尝试运行此代码时，我都会收到一条错误，指出“运行时错误‘1004’:应用程序定义或对象定义的错误”。当我单击“调试”时，它会突出显示这行代码作为问题:

Set Item_Name = Sheets("Sheet1").Range("E:E").Find("Item Name")

我曾尝试研究此错误，并多次尝试解决此问题，但无济于事。我觉得这一定是调用过程的问题，因为如果不在 Worksheet sub 中调用 sub Sum() ，它就可以正常工作。

任何想法或解决方案将不胜感激。非常感谢

Answer 1

这个问题一直困扰着我，因为 Excel 的行为非常奇怪。该代码现在对我有用(您不需要其他子代码)。

关闭事件不是必需的，但似乎确实会产生影响(并且在这些情况下通常建议这样做)。

您还有 Public Sub Worksheet_Change，我想您是徒手输入的，而它应该是 Private(不过我不知道这有什么区别)。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Sub_Total As Range
Dim Item_Name As Range

Application.EnableEvents = False

Set Item_Name = Range("E:E").Find("Item Name")
Set Sub_Total = Range("F:F").Find("Sub Total")

If Not Item_Name Is Nothing Then
    If Not Sub_Total Is Nothing Then
        If Not Intersect(Target, Range(Cells(Item_Name.Row, 7), Cells(Sub_Total.Row, 7))) Is Nothing Then
            Sub_Total.Offset(0, 1) = Application.Sum(Range(Cells(Item_Name.Row + 1, 7), Cells(Sub_Total.Row - 1, 7)))
        End If
    End If
End If

Application.EnableEvents = True

End Sub