Obsah
Tento program v Excel VBA používá vlastnost Count, funkci IsNumeric, funkci IsEmpty a metodu Intersect vyzkoušet výběr.
Situace:
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujeme dva objekty Range. Objekty Range nazýváme rng a buňka.
Dim rng As Range, cell As Range
2. Inicializujeme objekt Range rng pomocí Range („C4: D10“) a buňku objektu Range s vybraným rozsahem.
Nastavit rng = rozsah ("C4: D10")
Nastavit buňku = výběr
3. Přidejte následující řádky kódu:
If cell.Count = 1 And IsNumeric (cell) And Not IsEmpty (cell) And Not Intersect (rng, cell) is nothing Then
MsgBox „Vyhráváte“
Jiný
MsgBox „Prohráváte“
Konec If
Vysvětlení: Intersect (rng, cell) vrací Range objekt, který představuje průsečík dvou rozsahů. Pokud tento objekt rozsahu není Nic, je jediné číslo (první tři podmínky) v ohraničeném rozsahu.
4. Otestujte program.
Pouze když vyberete jedno číslo v ohraničeném rozsahu, výsledek bude:
Ve všech ostatních případech bude výsledkem: