Je to už několik let zpátky, co jsem zkoušel nejrůznější aplikace pro tvorbu čárových kódů. Většina z nich patřila do kategorie shareware a nezřídka si řekla o slušný balík peněz. Pomalu jsem se začínal ponořovat do teorie vykreslování kódů, viděl i doplňky, které doslova skládali kód čáru po čáře a nakonec jsem skončil na stránkách Grandzebu. Autor na nich velmi dobře popisuje danou tématiku, dává k dispozici font, kód Visual Basicu i samostatnou aplikaci. Odvedl tak skvělou práci, za kterou mu patří poděkování.
Jak to celé funguje? Ve výsledku velmi jednoduše. Nainstalujete si patřičný font, do VBA doplníte vlastní funkci a aplikujete ji na buňce s odpovídajícím fontem. Já se zabýval kódováním EAN-13 a Code 128. První z nich je typický pro většinu zboží, které u nás zakoupíte v obchodech. Pracuje pouze s čísly a u reálných výrobků z něho lze vyčíst zemi původce (naše produkty začínají 859). Druhý z nich zvládá 128 znaků ASCII tabulky. To znamená že pojme (a rozlišuje) i velká a malá písmena abecedy (bez diakritiky).
![Čárový kód EAN-13](https://sp-ao.shortpixel.ai/client/to_webp,q_glossy,ret_img,w_782,h_696/https://proexcel.cz/wp-content/uploads/excel-carovy-kod-ean-13.png)
![Čárový kód Code 128](https://sp-ao.shortpixel.ai/client/to_webp,q_glossy,ret_img,w_782,h_696/https://proexcel.cz/wp-content/uploads/excel-carovy-kod-code-128.png)
Pozn. V mém sešitu jsou funkce přejmenovány. Ne proto, že bych je chtěl vydávat za vlastní, ale proto, že přinejmenším název EAN13 koliduje s interním názvem v Excelu a dělá paseku.
Úkol: V příloze byly užity kódy EAN-13 reálných výrobků. Dokážete zjistit, o jaké jde?
Řešení: Stačí mít například po ruce chytrý telefon s Androidem a nainstalovanou čtečku kódů ZXing Team – Barcode Scanner. Uvedená aplikace umožňuje na internetu výrobek najít…
![Barcode Scanner - ukázka](https://sp-ao.shortpixel.ai/client/to_webp,q_glossy,ret_img,w_960,h_540/https://proexcel.cz/wp-content/uploads/barcode-scanner.jpg)
Příloha:
carove_kody.zip