Dette programmet i Excel VBA bruker Count -egenskapen, IsNumeric -funksjonen, IsEmpty -funksjonen og Intersect -metoden til test et utvalg.
Situasjon:
Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
1. Først erklærer vi to Range -objekter. Vi kaller Range -objektene rng og cell.
Dim rng As Range, cell As Range
2. Vi initialiserer Range -objektet rng med Range ("C4: D10") og Range -objektcellen med det valgte området.
Sett rng = Range ("C4: D10")
Sett celle = utvalg
3. Legg til følgende kodelinjer:
Hvis cell.Count = 1 Og IsNumeric (celle) og ikke er tom (celle) og ikke krysser (rng, celle) er ingenting da
MsgBox "Du vinner"
Ellers
MsgBox "Du taper"
Slutt om
Forklaring: Kryss (rng, celle) returnerer et områdeobjekt som representerer skjæringspunktet mellom de to områdene. Hvis dette områdeobjektet ikke er Nothing, er enkelttallet (de tre første betingelsene) i det grensede området.
4. Test programmet.
Bare når du velger et enkelt tall i det grensede området, blir resultatet:
I alle andre tilfeller blir resultatet: