Dieses Programm in Excel VBA verwendet die Count-Eigenschaft, IsNumeric Funktion IsEmpty Funktion und Intersect-Methode eine Auswahl zu testen.

Situation:

Test a Selection in Excel VBA

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Zuerst erklären wir zwei Range-Objekte. Wir rufen die Range-Objekte rng und Zelle.

Dim rng As Range, cell As Range
  1. Wir initialisieren das Range-Objekt RNG mit Range ( „C4: D10“) und der Range-Objekt Zelle mit dem gewählten Bereich.

Set rng = Range("C4:D10")

Set cell = Selection
  1. die folgenden Codezeilen hinzu:

If cell.Count = 1 And IsNumeric(cell) And Not IsEmpty(cell) And Not Intersect(rng, cell) Is Nothing Then

MsgBox "You win"

Else

MsgBox "You lose"

End If

Erläuterung: Intersect (RNG, Zelle) gibt ein Range-Objekt, das die Verbindung darstellt: / vba-Beispiele-union-intersect [Kreuzung] der beiden Bereiche. Wird dieser Bereich Objekt nicht Nichts ist, die einzige Nummer (die ersten drei Bedingungen) im begrenzten Bereich.

  1. Testen Sie das Programm.

Nur wenn Sie eine einzelne Zahl im begrenzten Bereich wählen wird das Ergebnis sein:

Test a Selection Result

In allen anderen Fällen wird das Ergebnis sein:

Test a Selection Result