Ezt a programot Excel VBA használja a Count tulajdonságot, az IsNumeric függvényt, az IsEmpty függvényt és az Intersect metódust teszteljen egy kiválasztást.
Helyzet:
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először két Range objektumot deklarálunk. A Range objektumokat rng -nek és cellának hívjuk.
Dim rng As Range, cell As Range
2. Inicializáljuk a Range objektum rng -t a Range ("C4: D10") és a Range objektum cellát a kiválasztott tartományt.
Rng = tartomány beállítása ("C4: D10")
Cella beállítása = Kiválasztás
3. Adja hozzá a következő kódsorokat:
Ha a cell.Count = 1 And IsNumeric (cell) And Not IsEmpty (cell) And Not Intersect (rng, cell) akkor semmi
MsgBox "Te nyersz"
Más
MsgBox "Veszítesz"
Vége Ha
Magyarázat: Az Intersect (rng, cell) egy Range objektumot ad vissza, amely a két tartomány metszéspontját képviseli. Ha ez a tartományobjektum nem semmi, az egyetlen szám (az első három feltétel) a határolt tartományban van.
4. Tesztelje a programot.
Csak akkor, ha egyetlen számot választ ki a határolt tartományban, az eredmény a következő lesz:
Minden más esetben az eredmény a következő lesz: