Mithilfe der Find-Funktion in VBA

1
2
3
4  
.
.

So, ich habe eine Zahlenreihe läuft von 1-20. Ich habe die Zahl "1" auf der Oberseite ausgewählt und möchte ich Suche die ganze Spalte, und die Zahl "9". Der code funktioniert, wenn ich nicht namens der Bereich "rng"; er findet die Nummer und wählt. Aber der code nicht mehr funktioniert, wenn ich den Namen der Palette der Reihe. Was ist Los mit der range-Funktion? könnte es sein, dass wenn ich definieren Dim rng as Range dass, wenn ich später definieren, das "Set rng=" ich nicht haben kann die ".Select" oder ".Copy" - Erweiterung am Ende?

Sub macro2()

Dim rng As Range
Set rng = Range(ActiveCell, ActiveCell.End(xlDown)).Select
rng.Find(10).Select

End Sub

Auch, Wenn ich will, um die Summe der gesamten Spalte von 1-20, auf der letzten Zelle unten die Zahl "20" sollte ich den folgenden code verwenden? da das application-Objekt nicht scheinen, es zu tun. Danke!

rng.End(xlDown).Offset(1, 0).Select
Application.WorksheetFunction.Sum (rng.Value)
Bitte fügen Sie keine Zusätze zu Ihrer Frage durch das schreiben von fake-Antworten, verwenden Sie die Schaltfläche Bearbeiten, und fügen Sie zu Ihrer Frage.
Sorry. nur eine Konsolidierung der Kommentare

InformationsquelleAutor gabriel | 2012-11-11

  1. 2

    Suchen 10 in der Spalte aktiv, die Sie könnten versuchen, diese (die bis Ende auswählen des ersten 10 - obwohl Select im vba ist nicht normalerweise erforderlich ist, andere als die Benutzer Standort auf code-Ende)

    • test, dass die Gefundene Reihe vorhanden ist (dh finden Sie 10 bevor Sie fortfahren)
    • sollten Sie auch xlWhole zu vermeiden matching 100 wenn der aktuelle Standard für [lookAt] ist xlPart
    • über die Suchfunktion [Nach] als Cells(1, ActiveCell.Column , und [Suchrichtung] als xlNext findet der erste Wert nach unten.

    code 

    Sub QuickFind()
Dim rng1 As Range
Set rng1 = ActiveCell.EntireColumn.Find(10, Cells(1, ActiveCell.Column), xlFormulas, xlWhole, , xlNext)
If Not rng1 Is Nothing Then
Application.Goto rng1
Else
MsgBox "10 not found"
End If
End Sub

    Teil 2

    Sub Other()
Dim rng1 As Range
Set rng1 = Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column).End(xlUp))
rng1.Cells(rng1.Cells.Count).Offset(1, 0) = Application.WorksheetFunction.Sum(rng1.Value)
End Sub
    Kann Ihnen nicht genug danken Brett!

    InformationsquelleAutor brettdj

  2. 1

    Versuchen, diese, ich hoffe, dies hilft u zu finden, die bestimmte Zeile nicht als auch als Spaltenname zu. In code, den Sie verwenden können, 

    strRw = FindColumn(Sheet name, "Value which need to be found", True, "Cell Name",Row number)
sourceCOL = colname(FindColumn(Shee Name, "Value which need to be found", False, , 4))

    Unten ist die Haupt-Funktion finden

    Public Function FindColumn(colnocountWS As Worksheet, srcstr As String, Optional rowflag As Boolean, Optional bycol As String, Optional strw As Integer, Optional stcol As Integer) As Integer
            Dim srcrng      As Range     'range of search text
            Dim srcAddr     As String  'address of search text
            Dim stcolnm     As String

            colnocountWS.Activate
            If stcol <> 0 Then stcolnm = colname(stcol)
            If stcol = 0 Then stcolnm = "A"
            If strw = 0 Then strw = 1


            colnocountWS.Range(stcolnm & strw).Select

            If ActiveSheet.Range(stcolnm & strw) = srcstr Then
                ActiveSheet.Range(stcolnm & strw).Select
                FindColumn = 1
            Else
            If bycol = "" Then
                Set srcrng = colnocountWS.Cells.Find(Trim(srcstr), after:=ActiveCell, LookIn:=xlValues _
                , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
            Else
                Set srcrng = colnocountWS.Cells.Find(Trim(srcstr), after:=ActiveCell, LookIn:=xlValues _
                , LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
            End If
            'ByPart
            If srcrng Is Nothing Then
                If bycol = "" Then
                    Set srcrng = colnocountWS.Cells.Find(Trim(srcstr), after:=ActiveCell, LookIn:=xlValues _
                    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
                Else
                    Set srcrng = colnocountWS.Cells.Find(Trim(srcstr), after:=ActiveCell, LookIn:=xlValues _
                    , LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
                End If
            End If

                If srcrng Is Nothing Then
                FindColumn = 0
                 Exit Function
                Else
                    srcAddr = srcrng.Address
                    colnocountWS.Range(srcAddr).Select
                    FindColumn = ActiveCell.Column
                    If rowflag = True Then FindColumn = ActiveCell.Row
                End If

            End If
        End Function

        'this function find column name
        Public Function colname(iFinalCol1 As Integer) As String
        Dim colnm As String
        On Error GoTo gg
        If Mid(Cells(1, iFinalCol1).Address, 3, 1) = "$" Then
                colnm = Mid(Cells(1, iFinalCol1).Address, 2, 1)
          Else
                colnm = Mid(Cells(1, iFinalCol1).Address, 2, 2)
        End If
        gg: colname = colnm

        End Function

    InformationsquelleAutor

Schreibe einen Kommentar