Question

我在下面具有以下功能：

采用两个参数（标题名称，所需的功能）。
Header Name参数用于查找标题，并随后标识该列直到最后一行的范围。
“所需的功能”参数用于在select语句中切换所需的任何其他步骤。
在大多数语句的末尾，我执行Range.Select，然后退出选定范围的函数。

代码如下：

Function find_Header(header As String, fType As String)
    Dim aCell As Range, rng As Range
    Dim col As Long, lRow As Long
    Dim colName As String

    With ActiveSheet
        Set aCell = .Range("B2:J2").Find(What:=header, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)

        'If Found
        If Not aCell Is Nothing Then
            col = aCell.Column
            colName = Split(.Cells(, col).Address, "$")(1)

            lRow = Range(colName & .Rows.count).End(xlUp).Row + 1

            Set myCol = Range(colName & "2")

            Select Case fType
                Case "Copy"
                    'This is your range
                    Set rng = Range(myCol.Address & ":" & colName & lRow).Offset(1, 0)

                    rng.Select
            End Select

        'If not found
        Else
            MsgBox "Column Not Found"
        End If
    End With

End Function

在尝试清理代码时，我遇到了一个专门对区域进行硬编码的部分，而我试图使用我的函数，但是，现在我无法使用正确使用此功能，因为我无法将范围“传递”给子对象，而且似乎无法使选择成为子对象所需的范围对象。

以下是子内容：

Sub Copy_Failed()
    Dim xRg As Range, xCell As Range
    Dim i As Long, J As Long, count As Long
    Dim fType As String, colName As String
    Dim y As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet

    myarray = Array("Defect", "System", "Script")
    myEnv = Array("SIT", "UAT")
    myDefects = Array("New", "Existing")

    i = Worksheets("Run Results").UsedRange.Rows.count
    J = Worksheets("Failed").UsedRange.Rows.count

    Set y = Workbooks("Template.xlsm")

    Set ws1 = y.Sheets("Failed")
    Set ws2 = y.Sheets("Run Results")

    count = 3

    If J = 1 Then

        If Application.WorksheetFunction.CountA(ws1.UsedRange) = 0 Then J = 0

    End If

    ws2.Activate

    fType = "Copy"
    colName = "Status"

    Call find_Header(colName, fType)
End Sub

在使用该功能之前，代码如下：

lngLastRow = Cells(Rows.count, "B").End(xlUp).Row

Set xRg = ws2.Range("E3:E" & lngLastRow & i)

现在这2行是在函数中执行的，因此在子例程中不需要它。我尝试了以下方法：

Set rngMyRange = Selection

Set rngMyRange = ActiveSheet.Range(Selection.Address)

Set xRg = ws2.Range(rngMyRange  & i)

但是我得到了错误：

类型不匹配

所以我在想：

在函数中选择范围，然后在子菜单中使用它-但是如何？
弄清楚如何将实际范围对象从函数传递给子对象

尽管第二个选项需要对我的代码进行一些额外的更改，但我认为这是一个更好的选择。

Answer 1

好的，这是一个例子，以便您明白我的意思。如果在B2：J2中的某个位置放置“一个”，它将选择范围。我仅在此处使用“选择”，以便您可以看到其标识的范围。（免责声明：我不太了解您在做什么，并且不确定您是否需要所有这些代码来实现所需的功能。）

该函数现在返回一个范围变量，并被分配给r。运行过程x。

Sub x()

Dim r As Range

Set r = Range("a1", find_Header("one", "Copy"))
r.Select

End Sub

Function find_Header(header As String, fType As String) As Range

Dim aCell As Range, rng As Range
Dim col As Long, lRow As Long
Dim colName As String

With ActiveSheet
    Set aCell = .Range("B2:J2").Find(What:=header, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    'If Found
    If Not aCell Is Nothing Then
        col = aCell.Column
        colName = Split(.Cells(, col).Address, "$")(1)
        lRow = Range(colName & .Rows.Count).End(xlUp).Row + 1
        Set myCol = Range(colName & "2")
        Select Case fType
            Case "Copy"
                'This is your range
                Set find_Header = Range(myCol.Address & ":" & colName & lRow).Offset(1, 0)
            End Select
    'If not found
    Else
        Set find_Header = Nothing
    End If

End With

End Function

VBA-使用当前选择作为范围对象

1 个答案: