VBA-Wie man Werte aus den ausgewählten Zellen

Ich muss Daten aus markierten Zellen-array. Wie es zu tun? Ich kann nicht finden, Beispiel. Ich weiß, wie man Wert aus einer Zelle durch ActiveCell.Value aber, wie seine Arbeit mit Mehrfachauswahl. Ich Schätze, ich sollte ausgewählten Bereich setzen, um die variable als Objekt und Prozess ist es durch die foreach-Schleife. Kann mir jemand schreiben Beispiel dafür?

Lösung: 

Sub Button1_Click()

For Each OneCell In Selection
 MsgBox (OneCell.Value)
Next


End Sub
  • A = R.Value wo A ist eine Variante und R ist der Zielbereich ist alles, was Sie brauchen (vorausgesetzt, dass R ist ein Rechteckiger Bereich).
  • Ich weiß nicht, Zielband, dessen abhängt, was wurde vom Benutzer ausgewählt.
  • Selection ist der Bereich, den der Benutzer ausgewählt hat (es sei denn, Sie werden immer von den Eingaben des Benutzers auf andere Weise). Sie brauchen, um Ihren code und erklären Sie Ihr problem-wie es ist, deine Frage ist sehr unklar.
  • Würde Die Auswahl.Wert der Arbeit dann?
InformationsquelleAutor Yszty | 2016-12-13
  1. 1

    Application.Selection ist nicht immer Range (zum Beispiel, wenn die Form(en) oder ActiveX-Steuerelement(s) ausgewählt sind), und Selection.Value gibt verschiedene Dinge, je nachdem, was ausgewählt ist:

    • Zelle Wert, wenn nur eine Zelle ausgewählt ist
    • 2D-array mit Variant-Zelle Werte, wenn mehr als eine Zelle ausgewählt ist,
    • Fehler, wenn das Objekt(E) ausgewählt haben nicht .Value Eigenschaft

    Wenn mehr als ein Bereich ausgewählt ist, wird .Value gibt den Wert(s) nur von der ersten Bereich.

    If TypeOf Selection Is Excel.Range Then
    Debug.Print Selection.Address(0, 0)

    For Each area In Selection.Areas
        Debug.Print area.Address(0, 0)
    Next
Else
    Debug.Print TypeName(Selection)
End If

    Den Die einheimischen Fenster machen es leichter zu sehen, die Inhalte der Application.Selection

    • wenn eine einzelne Zeile von Zellen ausgewählt ist, werden Selection.Value noch gibt ein 2D-array der Größe (1 bis 1, 1 zu n)
    • gibt es einen Grund, warum die erste Debug.Print Selection.Address(0, 0) gibt es? in meinen Augen ist der zweite (Debug.Print area.Address(0, 0)) wird catch all "- Auswahl/ - Gebiete".
    • die erste zeigt die Adresse des ganze Auswahl, und das zweite zeigt, wie eine Schleife die rechteckigen Gebiete, die als nicht-zusammenhängenden Bereich kann nicht gesetzt werden in der Reihe direkt
    • aber dennoch, im wesentlichen die beide zeigen die gleichen Daten, richtig? Nur, dass selection. zeigt den ausgewählten Bereichen "auf einmal" und area. zeigt jede Palette "individuell".
    • ja, genau
    InformationsquelleAutor Slai
  2. 0

    Müssen Sie nicht verwenden OneCell.Value als die Zelle selbst enthält den Wert.
    Wenn Sie möchten, um die Zellen-Formel dann verwenden OneCell.FormulaR1C1.

        For Each OneCell In Selection
        MsgBox (OneCell)
    Next OneCell
    InformationsquelleAutor Navin
Schreibe einen Kommentar