Zemāk mēs apskatīsim programmu Excel VBA ka aprēķina kopējo pārdošanas apjomu katram darbiniekam trīs gadu laikā.
Situācija:
Pārējām divām lapām ir vienāds iestatījums, taču ar dažādām mēnešu un darbinieku kombinācijām un dažādiem pārdošanas numuriem. Ir vairāki veidi, kā aprēķināt katra darbinieka kopējos pārdošanas apjomus programmā Excel, taču mēs redzēsim, ka to var izdarīt ļoti viegli programmā Excel VBA.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam trīs mainīgos un vienu darblapas objektu. Vienu virknes mainīgo, ko mēs saucam par darbinieku, vienu veselu skaitļa mainīgo, ko mēs saucam par kopējo, vienu darblapas objektu, ko mēs saucam par lapu, un vienu mainīgo, kura tips ir vesels skaitlis, ko mēs saucam par i.
Dim darbinieku kā virkni, kopā kā veselu skaitli, lapu kā darblapu, i kā veselu skaitli
2. Mēs inicializējam divus mainīgos. Mēs inicializējam mainīgo total ar vērtību 0. Mēs izmantojam funkciju InputBox, lai no lietotāja iegūtu darbinieka vārdu.
kopā = 0
darbinieks = InputBox ("Ievadiet darbinieka vārdu (reģistrjutīgs)")
3. Pēc tam, kad lietotājs ir ievadījis darbinieka vārdu, mēs vēlamies aprēķināt šī darbinieka kopējos pārdošanas apjomus. Darbgrāmata sastāv no trim lapām. Mēs vēlamies programmu, kuru joprojām var izmantot, ja lapas tiks pievienotas nākotnē. Tāpēc mēs izmantojam šādu koda rindu:
Par katru lapu darblapās
4. Mēs sākam citu For Next cilpu.
Ja i = 2 līdz 13
5. Ja ievadītais darbinieka vārds sakrīt ar darbinieka vārdu B slejā, Excel VBA pievieno pārdošanas numuru mainīgajam summai. Pievienojiet šādas koda rindiņas:
Ja lapa.Šūnas (i, 2) .Vērtība = darbinieks Tad
kopējais = kopējais + lapa. Šūnas (i, 3). Vērtība
Beigas Ja
6. Neaizmirstiet aizvērt abas cilpas.
Tālāk i
Nākamā lapa
7. Visbeidzot, izmantojot msgbox, tiek parādīts darbinieka kopējais pārdošanas apjoms.
MsgBox "Kopējais pārdošanas apjoms" & darbinieks & "ir" un kopējais
8. Pārbaudiet programmu.
Rezultāts Dāvidam:
