Wie VBA verwenden, um wählen Sie die erste iterm in einem drop-down Liste in Excel

Ich verwendete Daten-Validierung zu erstellen, einige drop-down-Listen. Wer weiß, wie Sie VBA verwenden, um wählen Sie die erste iterm in einem drop-down-Liste?

Ich habe versucht, 'Split' - Funktion:

cell.Value = Split(cell.Validation.Formula1, ",")(0)

aber es hat nicht funktioniert gut, es funktioniert nur, wenn ich wie "option1, option2" in der Quelle wird im Data Validation Fenster. Wenn ich beziehe mich auf die Quelle, um eine Reihe von Optionen, dann wird es wieder mit Fehler.

Ich denke, es sollte einige intelligentere Wege.

Dank!

  • Können Sie klären, was Sie hier versuchen? Verwenden Sie irgendeine Art von Kombinationsfeld-Objekt? Könnten Sie uns ein Beispiel geben von dem, was Sie zu tun versuchen?
  • Könntet Ihr das vielleicht ändern Sie meine Antwort an in dieser Frage ALSO
  • Problem gelöst, danke alle Weg!
  • ersetzen "" mit ";".
InformationsquelleAutor Xiao Qiang | 2013-08-08
  1. 3
    Sub test()
    Dim adr As String
    With Range("c4")
        adr = Mid(.Validation.Formula1, 2)
        Debug.Print Range(adr).Cells(1, 1)
    End With
End Sub

    also Ihre Antwort ist:

    set c = range("c4")
    c.Value = Range(Mid(c.Validation.Formula1, 2)).Cells(1, 1).Value

    • Danke für die Antwort, ich habe gerade versucht, es hat nicht funktioniert. Es war kein Fehler, aber der drop-down-Liste nicht wählen Sie den ersten Eintrag, sondern nur gehalten, was verwendet werden, um.
    • Ich habe versucht auf meinem pc und es erfüllte die Zelle C4...habe ich "c" statt "Zelle" als variable, weil "Zelle" sieht aus wie ein reserviertes Wort = ärger.
    • Danke für die Antwort, ich habe gerade versucht. Es funktionierte gut für die Zellen mit Gültigkeitsprüfung bezieht sich auf eine Reihe von Optionen. Aber es funktioniert nicht gut für diejenigen, die ich "option1, option2" in der Quelle bei der Datenüberprüfung. Gibt es eine Möglichkeit um das zu beheben? Danke!
    • Ich denke, Sie verwenden Sie die "split" - option für diejenigen mit einer Liste, und der Bereich().Zellen() option für diejenigen, die mit einer Reihe...
    • Ich glaube ja, aber gibt es eine Möglichkeit zu sagen wie: wenn xxx dann xxx, sonst, wenn xxx dann xxx? Ich weiß nicht, wie die Bedingung gesetzt hier. Danke! Wir sind fast da
    • Verwenden Sie Instr() um zu testen, ob .Validation.Formula1 enthält ein ":" ? Wenn das stimmt, ist es eine Reihe.

    InformationsquelleAutor Patrick Honorez
Schreibe einen Kommentar