Microsoft Office Excel
uređuje Dragan Grbić

Ispišite broj slovima

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Da li vam je ikad zatrebalo da broj u Excelu ispišete slovima? A pride: želite li to da učinite ćirilicom? VBA makro će vam pomoći u tome

Poodavno, na Sezamu su objavljene funkcije za Clipper i za FoxPro koje napisani broj ispisuju slovima, kako se obično radi na čekovima i na fakturama (autori ovih makroa su kolege Nenad Batoćanin i Dragan Nedeljković). Nedavno sam imao sličnu potrebu u Excelu. Posao sam završio "pešice", ali sam se zainteresovao kako se posao može uraditi uz pomoć VBA. Funkcija u listingu je čisti plagijat odgovarajuće funkcije u FoxProu (koliko sam primetio, moj komšija Ndragan se nije naljutio zbog toga (: ) i nadam se da će vam biti od koristi.

Preuzmite makro Slovima(broj)

Funkcija će raditi u svim verzijama počev od Excela 5, jer su korišćene standardne klauzule VBA. U Excel-u 97 ubacite funkciju u novi modul u VBE; u Excel-u 5/95 dodajte novi list makroa (Insert / Macro / Module) i unesite funkciju u njega. Upotreba je jednostavna: dovoljno je u radnom listu uneti formulu =Slovima(ref).

Obratite pažnju na jedinu razliku u verzijama Excela: u VBA 5 (Excel 97) i VBA 6 (Excel 2000) separator argumenata u zagradama je uvek zarez. U ranijim verzijama, separator zavisi od lokalnih postavki Windowsa: ako ste postavili Windows za naše podneblje, umesto zareza u zagradama treba da koristite tačku-zarez (;).

Dopisano:

Pre izvesnog vremena javio se posetilac sajta Branko Pavlović sa vrlo zanimljivim predlogom. Naime, Branko je uspešno koristio makro Slovima(), ali je neke fakture pisao u ćirilici i trebalo mu je da i makro ispiše broj ćirilicom. Toga se uopšte ranije nisam setio!

Prionuo sam na posao, misleći da će makro biti gotov za pola sata. Ali, vraga: ćirilični stringovi se nisu mogli interpretirati direktno, pa sam "ukrao" jezgro makroa YUConv() kolege Vračara i formirao listu promenljivih koje valja koristiti kao "pseudoslova" da bi se formirao ćirilični string. Problem je na kraju rešen, rešenje je u Download zoni a u grupi priloga o VBA pročitajte nešto o tom ćiriličnom "jezgru" makroa, možda će vam zatrebati.

Preuzmite makro SlovimaC(broj)