300 Esimerkkejä

Myyntilaskin

Sales Calculator

Alla tarkastelemme ohjelmaa Excel VBA että laskee kokonaismyynnin jokaisesta työntekijästä kolmen vuoden aikana.





Tilanne:

Myyntilaskin Excel VBA: ssa





Kahdella muulla taulukolla on sama asetus, mutta eri kuukausien ja työntekijöiden yhdistelmät ja eri myyntiluvut. On olemassa useita tapoja laskea kunkin työntekijän kokonaismyynti Excelissä, mutta näemme, että se voidaan tehdä Excel VBA: ssa erittäin helposti.

Aseta a komentopainiketta laskentataulukkoon ja lisää seuraavat koodirivit:



kuinka tehdä keskiarvo Excelissä

1. Ilmoitamme ensin kolme muuttujaa ja yhden laskentataulukko -objektin. Yksi muuttuja tyyppi String kutsumme työntekijä, yksi muuttuja tyyppi Integer kutsumme yhteensä, yksi laskentataulukko objekti kutsumme taulukko ja yksi muuttuja tyyppi Integer kutsumme i.

Ei mitääntyöntekijäKuten Jousisoitin, kaikki yhteensäKuten Kokonaisluku, arkkiKuten Laskentataulukko, iKuten Kokonaisluku

2. Alustamme kaksi muuttujaa. Alustamme muuttujan total arvolla 0. Käytämme InputBox -funktiota saadaksemme työntekijän nimen käyttäjältä.

yhteensä = 0
työntekijä = InputBox ('Anna työntekijän nimi (kirjainkoko erottaa)')

Anna työntekijän nimi

mikä on eksponentointiin tarkoitettu excel-operaattori

3. Kun käyttäjä on antanut työntekijän nimen, haluamme laskea tämän työntekijän kokonaismyynnin. Työkirja koostuu kolmesta arkista. Haluamme ohjelman, jota voidaan edelleen käyttää, jos arkkeja lisätään tulevaisuudessa. Siksi käytämme seuraavaa koodiriviä:

Varten JokainenarkkiSisäänLaskentataulukot

4. Aloitamme toisen For Next -silmukan.

Varteni = 2Vastaanottaja13

5. Jos syötetty työntekijän nimi vastaa sarakkeen B työntekijän nimeä, Excel VBA lisää myyntinumeron muuttujaan total. Lisää seuraavat koodirivit:

Jostaulukko. solut (i, 2). Arvo = työntekijäSitten
yhteensä = yhteensä + arkki. solut (i, 3). arvo
Loppu Jos

6. Älä unohda sulkea molempia silmukoita.

Seuraavai
Seuraavaarkki

7. Lopuksi näytämme työntekijän kokonaismyynnin viestiviestin avulla.

vertaamalla kahta saraketta tietoihin Excelissä
MsgBox '' & työntekijä & '' kokonaismyynti on & yhteensä

8. Testaa ohjelma.

Tulos Davidille:

Myyntilaskimen tulos

5/8 valmis! Lisätietoja kirjoista ja arkeista>
Siirry seuraavaan lukuun: Alueobjekti



^