Summējiet ciparu skaitļus šūnā, izmantojot pielāgotu VBA funkciju programmā Microsoft Excel

Anonim

Šajā rakstā mēs izveidosim pielāgotu funkciju, lai aprēķinātu šūnu ciparu summu.

Šī piemēra datu paraugi sastāv no pārdošanas datiem. Katrs aģents ir pārdevis dažādus produktus. Šūnā ir pārdoto preču skaits, kam seko produkta nosaukums. Mēs vēlamies atrast kopējo katra aģenta pārdoto preci.

Mēs esam izveidojuši funkciju “SumDigits”, lai aprēķinātu šūnas ciparu summu. Šī funkcija ievada šūnu diapazonu un atgriež šūnā esošo ciparu summu.

Loģisks skaidrojums

Mēs esam izveidojuši pielāgotu funkciju “SumDigits”, lai aprēķinātu šūnu ciparu summu. Šajā funkcijā mēs atrodam virknes garumu šūnā un pēc tam virkni no pirmās rakstzīmes līdz pēdējai rakstzīmei. Tad mēs atrodam un pievienojam virknē atrastās skaitliskās vērtības, lai iegūtu ciparu summu.

Koda skaidrojums

Vidus (skaitlis, i, 1)

Funkcija Mid tiek izmantota apakšvirknes izvilkšanai no galvenās virknes. Iepriekš minētais kods vienlaikus no galvenās virknes iegūs vienu rakstzīmi.

IsNumeric (vērtība)

Funkcija IsNumeric tiek izmantota, lai pārbaudītu, vai norādītā vērtība ir skaitliska.

Val (vērtība)

Val funkcija tiek izmantota, lai virkni pārvērstu skaitliskā vērtībā.

Lūdzu, sekojiet tālāk norādītajam kodam

 Opcija Skaidra funkcija SumDigits (skaitlis kā variants) Dim i kā vesels skaitlis i = 1 līdz Len (skaitlis), ja ir skaitlisks (vidējs (skaitlis, i, 1)), tad SumDigits = SumDigits + Val (vidus (skaitlis, i, 1)) Beigt, ja nākamais un beigu funkcija 

Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.

Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē