Kazalo
Ta program v Excel VBA uporablja lastnosti Count, funkcijo IsNumeric, funkcijo IsEmpty in metodo Intersect za preizkusite izbor.
Situacija:
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasimo dva predmeta Range. Objekte Range imenujemo rng in cell.
Dim rng As Range, celica As Range
2. Inicializiramo objekt Range rng z Range ("C4: D10") in objektno celico Range z izbranim obsegom.
Nastavi rng = območje ("C4: D10")
Nastavi celico = Izbor
3. Dodajte naslednje kodne vrstice:
Če cell.Count = 1 In IsNumeric (celica) In Not IsEmpty (celica) In Not Intersect (rng, cell) potem ni nič
MsgBox "Zmagal si"
Sicer pa
MsgBox "Izgubili ste"
Konec Če
Pojasnilo: Intersect (rng, cell) vrne objekt Range, ki predstavlja presečišče obeh območij. Če ta objekt ni nič, je posamezna številka (prvi trije pogoji) v obrobljenem območju.
4. Preizkusite program.
Samo če izberete eno samo številko v obrobljenem obsegu, bo rezultat:
V vseh drugih primerih bo rezultat: