Alla tarkastelemme ohjelmaa Excel VBA että laskee kokonaismyynnin jokaisesta työntekijästä kolmen vuoden aikana.
Tilanne:
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 Kokonaisluku2. Alustamme kaksi muuttujaa. Alustamme muuttujan total arvolla 0. Käytämme InputBox -funktiota saadaksemme työntekijän nimen käyttäjältä.
yhteensä = 0työntekijä = InputBox ('Anna työntekijän nimi (kirjainkoko erottaa)')
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äänLaskentataulukot4. Aloitamme toisen For Next -silmukan.
Varteni = 2Vastaanottaja135. 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äSittenyhteensä = yhteensä + arkki. solut (i, 3). arvo
Loppu Jos
6. Älä unohda sulkea molempia silmukoita.
SeuraavaiSeuraavaarkki
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:
Siirry seuraavaan lukuun: Alueobjekti