Question

所以我正在尝试编写一个快速脚本，允许自动生成管网以计算流量和其他内容。我花了三天的时间尝试获取一些我为Range.Find工作的代码，无论我找到什么样的例子，或者我尝试的是什么都没有用。

我摆脱了我一直在做的工作，然后回到基础，试图找到一个简单的.find工作实例。

现在我收到1004运行时错误，应用程序定义或对象定义错误。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ContributingRuns As Range
Dim Structures As Range
Dim FirstStructure As String
Dim wsCollection As Sheets

'Set Range of Sheet That has Receiving Pipe Structures
Set Structures = Sheets("Pipes").Range("C5:C12")

With Structures
    Set ContributingRuns = .Find("S-1")

    If ContributingRuns Is Nothing Then
        Range("N1").Value = "None"
    Else
        Range("N1").Formula = "=M1"
    End If
End With
End Sub

在C栏中，有一个S-1，S-2，......，S-25等形式的结构清单。

我遇到的问题是现在错误会停止此行的代码

Set ContributingRuns = .Find("S-1")

我不能为我的生活弄清楚为什么它不起作用。除了显式选项外，所有示例基本上都与我提供的代码类似。

使用.Find设置范围时出错

0 个答案: