Spodaj si bomo ogledali program v Excel VBA ki ustvari Userform, ki spreobrnjenci kateri koli znesek od enega valuto v drugo.
Uporabniška oblika, ki jo bomo ustvarili, izgleda tako:
Če želite ustvariti ta uporabniški obrazec, izvedite naslednje korake.
1. Odprite urejevalnik Visual Basic. Če Project Explorer ni viden, kliknite View, Project Explorer.
2. Kliknite Vstavi, Uporabniški obrazec. Če se orodjarna ne prikaže samodejno, kliknite Pogled, Orodjarna. Zaslon je treba nastaviti tako, kot je prikazano spodaj.
3. Dodajte oznake, polja s seznamom (prvo levo, drugo desno), besedilna polja (prvo levo, drugo desno) in ukazni gumb. Ko je to končano, mora biti rezultat skladen s sliko uporabniške oblike, prikazano prej. Na primer, ustvarite kontrolnik polja s seznamom, tako da v orodjarni kliknete ListBox. Nato lahko povlečete polje s seznamom na uporabniškem obrazcu.
4. Lahko spremenite imena in napise kontrolnikov. Imena se uporabljajo v kodi Excel VBA. Napisi so tisti, ki se prikažejo na zaslonu. Dobra praksa je, da spremenite imena kontrol, vendar to ni potrebno, ker imamo v tem primeru le nekaj kontrol. Če želite spremeniti napis Userform, ukazni gumb in oznake, kliknite Pogled, Okno lastnosti in kliknite na vsak kontrolnik.
5. Če želite prikazati Userform, na svoj delovni list postavite ukazni gumb in dodajte naslednjo kodno vrstico:
Zasebni pod -ukaz Button1_Click ()
UserForm1.Show
End Sub
Zdaj bomo ustvarili Sub UserForm_Initialize. Ko uporabite metodo Show za Userform, se bo ta podprogram samodejno izvajal.
6. Odprite urejevalnik Visual Basic.
7. V Raziskovalcu projektov z desno miškino tipko kliknite UserForm1 in nato kliknite Ogled kode.
8. Na levem spustnem seznamu izberite Userform. Na desnem spustnem seznamu izberite Inicializiraj.
9. Dodajte naslednje kodne vrstice:
Zasebni podporabnikForm_Initialize ()
Z ListBox1
.Dodatek "Euro"
.AddItem "Us Dollar"
.AddItem "Britanski funt"
Končaj s
Z ListBox2
.Dodatek "Euro"
.AddItem "Us Dollar"
.AddItem "Britanski funt"
Končaj s
ListBox1.ListIndex = 1
ListBox2.ListIndex = 0
TextBox1.Vrednost = 1
TextBox2.Vrednost = 0,722152
End Sub
Pojasnilo: najprej sta izpolnjeni dve polji s seznamom. Nato je v prvem polju s seznamom privzeto nastavljena valuta ameriškega dolarja, v drugem polju s seznamom pa valuta EURO. Na koncu se vrednost 1 vnese v prvo besedilno polje, vrednost 0,722152 pa v drugo polje z besedilom.
Zdaj smo ustvarili prvi del Userform. Čeprav že izgleda lepo, se s klikom na gumb Pojdi še ne bo nič zgodilo.
10. V Raziskovalcu projektov dvokliknite UserForm1.
11. Dvokliknite gumb Pojdi.
12. Dodajte naslednje kodne vrstice:
Zasebni pod -ukaz Button1_Click ()
Stopnje zatemnitve (0 do 2, 0 do 2) kot dvojno, i kot celo število, j kot celo število
stopnje (0, 0) = 1
stopnje (0, 1) = 1,38475
stopnje (0, 2) = 0,87452
stopnje (1, 0) = 0,722152
stopnje (1, 1) = 1
stopnje (1, 2) = 0,63161
stopnje (2, 0) = 1,143484
stopnje (2, 1) = 1,583255
stopnje (2, 2) = 1
Za i = 0 do 2
Za j = 0 do 2
Če ListBox1.ListIndex = i In ListBox2.ListIndex = j Potem TextBox2.Value = TextBox1.Vrednost * stopnje (i, j)
Naprej j
Naprej i
End Sub
Pojasnilo: najprej razglasimo matriko. Niz ima dve dimenziji. Sestavljen je iz 3 vrstic in 3 stolpcev. Nato inicializiramo vsak element matrike. Na primer, tečaji (1,0) so valutni tečaj od ameriškega dolarja do evra. Nato zaženemo dvojno zanko. Odvisno od izbranih valut na poljih Excel VBA pretvori znesek, vnesen v prvo besedilno polje, rezultat pa prikaže v drugem besedilnem polju.
Primer: če je i = 2 in j = 1 in vnesemo vrednost 2 v prvo polje z besedilom, Excel VBA postavi vrednost 2 * stopnje (2,1) = 2 * 1,583255 = 3,16651 v drugo polje z besedilom.
13. Preizkusite obliko uporabnika.
Rezultat:
