/ / Excel VBA gumbi opcija

Excel VBA gumbi opcija

Ako imate više od jednog gumba opcija, možete odabrati samo jedan od gumba opcija. Stvoriti gumbima opcija u Excel VBA, izvršite sljedeće korake.

1. Na kartici Razvojni program kliknite Umetni.

2. U grupi ActiveX Controls, kliknite gumb Option (Opcija).

Napravite gumb opcije u programu Excel VBA

3. Povucite dva opcijska gumba na radnom listu.

4. Desnom tipkom kliknite gumb Prve opcije (provjerite je li odabran način rada Dizajn).

5. Kliknite Prikaz koda.

Prikaz koda

Bilješka: možete promijeniti titlu i naziv kontrolnog sustava desnim klikom na kontrolu (provjerite je li odabran način rada Dizajn), a zatim kliknite Svojstva. Promijenite opise gumba opcija na Ženski i Muški. Za sada ćemo ostaviti OpcijeButton1 i OptionButton2 kao nazive gumba opcija.

6. Dodajte sljedeću liniju koda:

If OptionButton1.Value = True Then Range("D3").Value = 10

7. Desnom tipkom miša pritisnite gumb druge opcije (provjerite je li odabran način rada Dizajn).

8. Kliknite Prikaz koda.

9. Dodajte sljedeću liniju koda:

If OptionButton2.Value = True Then Range("D3").Value = 20

10. Kliknite gumbe opcija na listi (provjerite je li način dizajna poništen).

Proizlaziti:

Gumb opcija 1 Istina

Tipka opcija 2 Istina

Iako u nekim situacijama može biti korisno izravno postaviti gumbe s opcija na radni list, opcijski gumbi su osobito korisni kada se stave na Userform.

Također pročitajte: