Šī programma iekšā Excel VBA izmanto rekvizītu Count, IsNumeric funkciju, IsEmpty funkciju un Intersect metodi pārbaudiet atlasi.
Situācija:
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam divus diapazona objektus. Range objektus saucam par rng un cell.
Dim rng As Range, šūna As Range
2. Mēs inicializējam Range objektu rng ar Range ("C4: D10") un Range objekta šūnu ar izvēlēto diapazonu.
Iestatīt rng = Diapazons ("C4: D10")
Iestatīt šūnu = Atlase
3. Pievienojiet šādas koda rindiņas:
Ja šūna. Skaitlis = 1 Un IsNumeric (šūna) Un nav tukša (šūna) Un nav krustota (rng, šūna) nav nekas
MsgBox "Tu uzvari"
Citādi
MsgBox "Tu zaudē"
Beigas Ja
Paskaidrojums: Krustošanās (rng, šūna) atgriež diapazona objektu, kas attēlo abu diapazonu krustojumu. Ja šis diapazona objekts nav nekas, vienīgais skaitlis (pirmie trīs nosacījumi) atrodas robežās.
4. Pārbaudiet programmu.
Tikai tad, kad robežu diapazonā atlasīsit vienu numuru, rezultāts būs šāds:
Visos citos gadījumos rezultāts būs šāds:
