VBA-Anwender-Definierte Funktion "Verketten, Wenn" durch die Zeilen

Habe ich einige Daten, ob oder nicht, einen bestimmten "Dienst" (z.B. Bird Survey) durchgeführt wurde, für eine bestimmte Website, die mit einem "ja" oder "Nein" für jeden Dienst.

E. G.

  • Spalte A enthält den site-Namen, sagen wir A, B, C, D und E mit dem Titel "Site-Name" in A1 dann "A" in A2 usw.
  • Spalte B enthält die "Vogel-Studie" in B1, dann entweder ein "ja" oder "Nein" für B2-B6.
  • Dito für andere Dienstleistungen in den Spalten C, D und E, können sagen, "Bat Survey", "LVI" und "Grundbuch" ersetzt.
  • In F I verketten möchten Sie den service-Namen für die jeweilige Zeile mit einem "ja". E. G. können sagen, dass die Werte für B2,C2,D2 und E2 sind "ja", "ja", "Nein" und "ja", ich will F2 enthalten Vogel-Umfrage, die die Bat-Umfrage.

Wie ich es verstehe, gibt es keine native Funktionen, die in excel, kann dies tun, und so habe ich versucht, zu erstellen eine benutzerdefinierte Funktion in VBA. Ich habe versucht, zwei Ansätze

  • basiert auf Fütterung zwei Bereiche (Spalte Namen und die Reihe von "ja/Nein"'s) in das UDF und dann kombiniert diese in ein array zu gelten, die irgendeine Art von lookup-Kriterien
  • und andere Rückgabe-Spalte Brief von einem ja/Nein-Auswahl nur dann die Auswahl aus den Namen der Spalten, basierend auf der Spalte Brief.

Habe ich nicht in der Lage zu bekommen, entweder zu funktionieren aber. Beachten Sie, dass am Ende brauche ich zum erstellen einer UDF, die für eine unterschiedliche Zahl von Dienstleistungen, werden diese nicht vordefiniert wie in diesem Beispiel.

Irgendwelche Vorschläge?

Vielen Dank im Voraus.

Würde helfen, um Ihre versucht, code auf Ihre Frage - auch wenn es nicht ganz funktioniert.
Ein paar Fragen... (1) Gegeben, Ihrem Beispiel " E. G. können sagen, dass die Werte für B2,C2,D2 und E2 sind "ja", "ja", "Nein" und "ja", ich will F2 enthalten Vogel-Umfrage, die die Bat-Umfrage." - Sollten die, die sagen, "Vogel-Umfrage, die die Bat-Umfrage, Land Registry"? (2) Sie Sind beschränkt auf "ja" / "Nein" oder können es werden (1 / 0) oder (True / False)?
Woops, sorry, ja du hast Recht, es sollte in der Tat sagen: "Vogel-Umfrage, die die Bat-Umfrage, Land Registry". Es könnte auch geändert werden, um einen unterschiedlichen binären Zustand (1/0) oder (True/False), wie Sie vorschlagen.
Posting jetzt eine Lösung....
TEXTJOIN für xl2013 mit den Kriterien

InformationsquelleAutor vbastrangledpython | 2014-03-25

  1. 7

    Basierend auf, was Sie suchen, fand ich diese Funktion schon vor langer Zeit und es arbeitete ein Charme:

    Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, _
        ConcatenateRange As Range, Optional Separator As String = ",") As Variant
    Dim i As Long
    Dim strResult As String
    On Error GoTo ErrHandler
    If CriteriaRange.Count <> ConcatenateRange.Count Then
        ConcatenateIf = CVErr(xlErrRef)
        Exit Function
    End If
    For i = 1 To CriteriaRange.Count
        If CriteriaRange.Cells(i).Value = Condition Then
            strResult = strResult & Separator & ConcatenateRange.Cells(i).Value
        End If
    Next i
    If strResult <> "" Then
        strResult = Mid(strResult, Len(Separator) + 1)
    End If
    ConcatenateIf = strResult
    Exit Function
ErrHandler:
    ConcatenateIf = CVErr(xlErrValue)
End Function

    Angesichts Ihrer Frage, würde es wie folgt verwendet werden:

    =ConcatenateIf(B2:E2,"yes",$B$1:$E$1,", ")

    Ersten Kredit geht an dieser link.

    Hoffe, dass dies funktioniert der trick!!

    Das hat wunderbar funktioniert, vielen Dank!
    nette Antwort und herzlichen Glückwunsch zu 5k:)

    InformationsquelleAutor John Bustos

Schreibe einen Kommentar