Dieses Programm in Excel VBA verwendet die Count-Eigenschaft, die IsNumeric-Funktion, die IsEmpty-Funktion und die Intersect-Methode, um eine Auswahl testen.
Lage:
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir zwei Range-Objekte. Wir nennen die Range-Objekte rng und cell.
Dim rng als Bereich, Zelle als Bereich
2. Wir initialisieren das Range-Objekt rng mit Range("C4:D10") und die Range-Objektzelle mit dem ausgewählten Bereich.
Setze rng = Range("C4:D10")
Zelle setzen = Auswahl
3. Fügen Sie die folgenden Codezeilen hinzu:
If cell.Count = 1 And IsNumeric(cell) And Not IsEmpty(cell) And Not Intersect(rng, cell) Is Nothing Then
MsgBox "Sie gewinnen"
Anders
MsgBox "Du verlierst"
Ende Wenn
Erläuterung: Intersect(rng, cell) gibt ein Range-Objekt zurück, das den Schnittpunkt der beiden Bereiche darstellt. Wenn dieses Bereichsobjekt nicht Nothing ist, liegt die einzelne Zahl (erste drei Bedingungen) im umrandeten Bereich.
4. Testen Sie das Programm.
Nur wenn Sie eine einzelne Zahl im umrandeten Bereich auswählen, lautet das Ergebnis:
In allen anderen Fällen ist das Ergebnis:
