300 Esimerkkejä

Valuuttamuunnin

Currency Converter

Alla tarkastelemme ohjelmaa Excel VBA joka luo Userformin kääntyy mikä tahansa summa yhdestä valuutta toiseen.





Luomamme Userform näyttää seuraavalta:

Valuuttamuunnin Excel VBA: ssa





if-funktion testin on arvioitava joko tosi tai väärä.

Voit luoda tämän käyttäjämuodon suorittamalla seuraavat vaiheet.

1. Avaa Visual Basic Editor . Jos Project Explorer ei ole näkyvissä, valitse Näytä, Project Explorer.



2. Napsauta Insert, Userform. Jos Työkaluryhmä ei näy automaattisesti, napsauta Näytä, Työkaluryhmä. Näytön asetukset on määritettävä alla kuvatulla tavalla.

Userform -näytön asetukset Excel VBA: ssa

3. Lisää tarrat, luetteloruudut (ensimmäinen vasemmalla, toinen oikealla), tekstikentät (ensimmäinen vasemmalla, toinen oikealla) ja komentopainike. Kun tämä on suoritettu, tuloksen tulee olla yhdenmukainen aiemmin näytetyn Userform -kuvan kanssa. Luo esimerkiksi luetteloruudun ohjausobjekti napsauttamalla Työkaluryhmän Lista -ruutua. Seuraavaksi voit vetää käyttäjäruudun luetteloruudun.

4. Voit muuttaa säätimien nimiä ja kuvatekstejä. Nimiä käytetään Excel VBA -koodissa. Tekstitykset ovat niitä, jotka näkyvät näytölläsi. On hyvä käytäntö muuttaa säätimien nimiä, mutta se ei ole välttämätöntä, koska tässä esimerkissä on vain muutamia säätimiä. Jos haluat muuttaa Userformin, komentopainikkeen ja otsikoiden kuvatekstejä, napsauta Näytä, Ominaisuudet -ikkuna ja napsauta jokaista ohjainta.

5. Tuo Userform näkyviin asettamalla a komentopainiketta laskentataulukkoon ja lisää seuraava koodirivi:

Yksityinen SubCommandButton1_Click ()

UserForm 1.Näytä

Loppu Sub

Aiomme nyt luoda Sub UserForm_Initialize. Kun käytät Näytä -menetelmää Userformissa, tämä osa suoritetaan automaattisesti.

6. Avaa Visual Basic Editor .

7. Napsauta Project Explorerissa hiiren kakkospainikkeella UserForm1 ja valitse sitten Näytä koodi.

kuinka korostaa päällekkäisiä arvoja Excelissä

8. Valitse Userform vasemmasta avattavasta luettelosta. Valitse Alusta oikeasta avattavasta luettelosta.

9. Lisää seuraavat koodirivit:

Yksityinen SubUserForm_Initialize ()

KanssaListalaatikko 1
.AddItem 'Euro'
.AddItem 'Us Dollar'
.AddItem 'Ison -Britannian punta'
Loppu Kanssa

KanssaListBox2
.AddItem 'Euro'
.AddItem 'Us Dollar'
.AddItem 'Ison -Britannian punta'
Loppu Kanssa

ListBox1.ListIndex = 1
ListBox2.ListIndex = 0

TextBox1.Value = 1
TextBox2.Value = 0.722152

Loppu Sub

Selitys: ensin kaksi luetteloruutua täytetään. Seuraavaksi Yhdysvaltain dollarin valuutta asetetaan oletusarvoksi ensimmäisessä luetteloruudussa ja EURO -valuutta oletusarvoksi toisessa luetteloruudussa. Lopuksi arvo 1 syötetään ensimmäiseen tekstikenttään ja arvo 0,722152 kirjoitetaan toiseen tekstiruutuun.

Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää jo siistiltä, ​​mitään ei vielä tapahdu, kun napsautamme Siirry -painiketta.

10. Kaksoisnapsauta Project Explorerissa UserForm1.

11. Kaksoisnapsauta Siirry -painiketta.

kuinka lasketaan keskihajonta Excelissä 2010

12. Lisää seuraavat koodirivit:

Yksityinen SubCommandButton1_Click ()

Ei mitäänhinnat (0VastaanottajakaksikymmentäVastaanottaja2)Kuten Kaksinkertainen, iKuten Kokonaisluku, jKuten Kokonaisluku

hinnat (0, 0) = 1
hinnat (0, 1) = 1,38475
hinnat (0, 2) = 0,87452

hinnat (1, 0) = 0,722152
hinnat (1, 1) = 1
hinnat (1, 2) = 0,63161

hinnat (2, 0) = 1,143484
hinnat (2, 1) = 1,583255
hinnat (2, 2) = 1

Varteni = 0Vastaanottaja2
Vartenj = 0Vastaanottaja2
JosListBox1.ListIndex = iJaListBox2.ListIndex = jSittenTextBox2.Value = TextBox1.Value * hinnat (i, j)
Seuraavaj
Seuraavai

Loppu Sub

Selitys: ensin julistamme taulukon. Ryhmällä on kaksi ulottuvuutta. Se koostuu 3 rivistä ja 3 sarakkeesta. Seuraavaksi alustamme jokaisen taulukon elementin. Esimerkiksi kurssit (1,0) ovat Yhdysvaltain dollarin ja euron välinen valuuttakurssi. Seuraavaksi aloitamme kaksinkertaisen silmukan. Luetteloruutujen valuuttojen mukaan Excel VBA muuntaa ensimmäiseen tekstikenttään syötetyn summan ja näyttää tuloksen toisessa tekstikentässä.

Esimerkki: jos i = 2 ja j = 1 ja syötämme arvon 2 ensimmäiseen tekstikenttään, Excel VBA sijoittaa arvon 2 * hinnat (2,1) = 2 * 1,583255 = 3,16651 toiseen tekstikenttään.

13. Testaa Userform.

Tulos:

Valuuttamuunnin tulos

3/11 valmis! Lue lisää käyttäjämuodoista>
Siirry seuraavaan lukuun: Alue



^