Testen Sie eine Auswahl in Excel VBA
Dieses Programm in Excel VBA verwendet die Count-Eigenschaft, IsNumeric Funktion IsEmpty Funktion und Intersect-Methode eine Auswahl zu testen.
Situation:
Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:
-
Zuerst erklären wir zwei Range-Objekte. Wir rufen die Range-Objekte rng und Zelle.
Dim rng As Range, cell As Range
-
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
-
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.
-
Testen Sie das Programm.
Nur wenn Sie eine einzelne Zahl im begrenzten Bereich wählen wird das Ergebnis sein:
In allen anderen Fällen wird das Ergebnis sein: