Čiarové kódy v Excel 2016, Excel 2013 a Excel 365

Vloženie a automatizácia čiarového kódu do tabuľky Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010

Tu je krátky popis toho, ako pridať čiarový kód do dokumentu Excel a prepojiť ho s obsahom bunky.

Najskôr spustite program Excel a vytvorte alebo otvorte dokument.

Uistite sa, že ste nakonfigurovali program Excel tak, aby sa zobrazovala karta Vývojár. Na to prejdite do možností programu Excel kliknutím na kartu Súbor. Tým prejdete do zobrazenia Backstage. Potom kliknite na možnosť Možnosti v skupine kariet vľavo. ActiveBarcode: Barcode, Excel

V časti Prispôsobiť pás kariet aktivujte možnosť Vývojár na hlavných kartách a potom zatvorte okno možností. ActiveBarcode: Barcode, Excel

Teraz môžete vložiť ovládací prvok ActiveBarcode do svojho dokumentu. Vyberte kartu Vývojár. Kliknite na tlačidlo Vložiť v oblasti Ovládacie prvky ActiveX a potom vyberte možnosť Ďalšie ovládacie prvky. ActiveBarcode: Barcode, Excel

Na obrazovke sa zobrazí dialógové okno: ActiveBarcode: Barcode, Excel

Vyberte ActiveBarcode a kliknite na OK. V dokumente sa teraz vytvorí čiarový kód. Bude to štandardný čiarový kód EAN-128. Toto je predvolený typ. Môžete ho zmeniť na akýkoľvek typ čiarového kódu, ktorý podporuje ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18 ...Teraz môžete tento čiarový kód upraviť. Môžete zmeniť typ, text, farby atď. Na to kliknite pravým tlačidlom myši vnútri čiarového kódu. Otvorí sa kontextové menu: ActiveBarcode: Barcode, Excel

Vyberte objekt ActiveBarcode a potom Properties(V lastnosti). Otvorí sa dialógové okno vlastností ActiveBarcode. Tu môžete čiarový kód upraviť podľa svojich potrieb.

Prípadne môžete použiť dialógové okno vlastností programu Excel. Na to kliknite na tlačidlo Vlastnosti v rozsahu Ovládacie prvky: ActiveBarcode: Barcode, Excel

Vytvorenie prepojenia medzi bunkou a čiarovým kódom: Otvorte dialógové okno vlastností programu Excel, ako je popísané vyššie. Aktivujte objekt čiarového kódu jedným kliknutím naň. Vlastnosti objektu čiarového kódu sa teraz zobrazia v dialógovom okne vlastností. Vyhľadajte vlastnosť s názvom LinkedCell. Táto vlastnosť vytvorí prepojenie medzi bunkou a čiarovým kódom: ActiveBarcode: Barcode, Excel

Do tejto vlastnosti zadajte názov bunky pre odkaz. To je všetko!

Ak chcete vytvoriť čiarový kód, ktorý kóduje údaje z viacerých buniek, musíte najskôr zlúčiť tieto bunky do pomocnej bunky. Potom pripojte túto zlúčenú bunku k objektu čiarového kódu.

V nasledujúcom príklade je obsah buniek B3 a B4 zlúčený v bunke B6. Bunka B6 je prepojená s objektom čiarového kódu. ActiveBarcode: Barcode, Excel

Používanie a automatizácia čiarových kódov pomocou VBA v Excel

Na riešenie mnohých úloh v programe Excel môžete použiť jazyk VisualBasic for Applications (VBA). Tu vám ukážeme, ako vložiť, používať a odstrániť ovládací prvok ActiveBarcode pomocou VBA:

Vloženie ovládacieho prvku ActiveBarcode do listu:
V tomto príklade bude ovládací prvok čiarového kódu umiestnený priamo nad bunkou. Potom to vyzerá, ako keby čiarový kód bol vnútri bunky.

Najprv prečítame veľkosť buniek:

CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left

Upozorňujeme, že bunka by mala mať minimálnu veľkosť, aby sa do nej vošiel čiarový kód. Ak je bunka príliš malá, zobrazí sa chyba veľkosti. Preto zmeníme výšku bunky na 30 pixelov:

' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30

Nasledujúca funkcia vytvorí ovládací prvok čiarového kódu priamo nad bunkou:

ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select

Objekt čiarového kódu môžete priamo prepojiť s bunkou:

ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"

Aby sme mali ľahký prístup k ovládacím prvkom, uložíme ich názvy do premennej MyBarcode:

MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

Teraz môžete vlastnosti a metódy objektu čiarového kódu používať podľa potreby:

' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")

Ak už ovládací prvok nepotrebujete, môžete ho z listu odstrániť:

ActiveSheet.OLEObjects(MyBarcode).Delete

Tip: Ak je potrebné, aby systém Windows spracoval nadchádzajúce udalosti (často označované ako KeepWindowsAlive) v rámci makra, môžete to vynútiť pomocou nasledujúcej funkcie VBA:

DoEvents

To môže byť potrebné napríklad v prípade, ak sa ovládač musí nakresliť nanovo.