Tento program v Excel VBA používa na to vlastnosť Count, funkciu IsNumeric, funkciu IsEmpty a metódu Intersect otestovať výber.
Situácia:
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme dva objekty Range. Objekty Range nazývame rng a bunka.
Dim rng As Range, cell As Range
2. Inicializujeme objekt Range rng pomocou Range („C4: D10“) a bunku objektu Range s vybratým rozsahom.
Nastaviť rng = rozsah ("C4: D10")
Nastaviť bunku = výber
3. Pridajte nasledujúce riadky kódu:
If cell.Count = 1 And IsNumeric (cell) And Not IsEmpty (cell) And Not Intersect (rng, cell) is nothing Then
MsgBox „Vyhrávate“
Inak
MsgBox „Prehrávate“
Koniec Ak
Vysvetlenie: Intersect (rng, cell) vráti objekt Range, ktorý predstavuje priesečník dvoch rozsahov. Ak tento objekt rozsahu nie je Nič, jediné číslo (prvé tri podmienky) je v ohraničenom rozsahu.
4. Otestujte program.
Iba keď vyberiete jedno číslo v ohraničenom rozsahu, výsledok bude:
Vo všetkých ostatných prípadoch bude výsledkom: