Barcode u Excelu 2016, Excelu 2013 i Excelu 365

Ugradite i automatizirajte crtični kod u Excel tablicu.

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

Evo kratkog opisa kako dodati crtični kod u Excel dokument i povezati ga sadržajem ćelije.

Prvo pokrenite Excel i stvorite ili otvorite dokument.

Provjerite jeste li konfigurirali Excel tako da se pojavi kartica Programer. Da biste to učinili, idite na Opcije programa Excel klikom na karticu Datoteka. Time ćete prijeći u pozadinski prikaz. Zatim kliknite Opcije u grupi kartica s lijeve strane. ActiveBarcode: Barcode, Excel

Pod Prilagodi vrpcu omogući opciju Programer na glavnim karticama, zatim zatvori prozor opcija. ActiveBarcode: Barcode, Excel

Sada možete ugraditi kontrolni element ActiveBarcode u svoj dokument. Odaberite karticu Programer. Kliknite gumb Umetni iz grupe ActiveX kontrola, a zatim odaberite Više kontrola. ActiveBarcode: Barcode, Excel

Na ekranu se pojavljuje dijaloški okvir: ActiveBarcode: Barcode, Excel

Odaberite ActiveBarcode i kliknite OK. U vašem dokumentu sada će biti stvoren barkod. Bit će to standardni EAN-128 barkod. To je zadani tip. Možete ga promijeniti u bilo koji tip barkoda koji ActiveBarcode podržava: 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 ...Sada možete mijenjati ovaj crtični kod. Možete promijeniti vrstu, tekst, boje itd. Da biste to učinili, kliknite desnom tipkom miša unutar crtičnog koda. Otvorit će se skočni izbornik: ActiveBarcode: Barcode, Excel

Odaberite objekt ActiveBarcode, a zatim svojstva. Otvorit će se dijalog svojstava ActiveBarcode. Ovdje možete mijenjati barkod kako god želite.

Alternativno, možete koristiti dijalog svojstava u Excelu. Da biste to učinili, kliknite gumb Svojstva u grupi Kontrole: ActiveBarcode: Barcode, Excel

Stvorite vezu između ćelije i barkoda: otvorite dijalog svojstava u Excelu kao što je gore opisano. Aktivirajte objekt barkoda jednim klikom. Svojstva objekta barkoda sada će biti prikazana u dijalogu svojstava. Potražite svojstvo nazvano LinkedCell. Ovo svojstvo stvara vezu između ćelije i barkoda: ActiveBarcode: Barcode, Excel

Unesite naziv ćelije za poveznicu u ovu svojinu. To je sve!

Ako želite stvoriti crtični kod koji kodira podatke iz više ćelija, prvo morate te ćelije spojiti u pomoćnu ćeliju. Zatim povežite tu spojenu ćeliju s objektom crtičnog koda.

U sljedećem primjeru sadržaji ćelija B3 i B4 kombiniraju se u ćeliji B6. Ćelija B6 povezana je s objektom barkoda. ActiveBarcode: Barcode, Excel

Korištenje i automatizacija barkodova pomoću VBA u Excel

Možete koristiti Visual Basic za aplikacije (VBA) za rješavanje mnogih stvari u Excelu. Ovdje ćemo vam pokazati kako ugraditi, koristiti i izbrisati kontrolu ActiveBarcode pomoću VBA:

Ugradnja ActiveBarcode kontrole u list:
U ovom primjeru kontrola barkoda bit će postavljena izravno iznad ćelije. Tako izgleda kao da je barkod unutar ćelije.

Prvo pročitamo veličinu ćelija:

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

Molimo imajte na umu da ćelija mora imati minimalnu veličinu kako bi se bar kod mogao u nju uklopiti. Ako je ćelija premala, prikazat će se pogreška veličine. Stoga visinu ćelije mijenjamo na 30 piksela:

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

Sljedeća funkcija stvorit će kontrolu barkoda izravno iznad ćelije:

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

Možete izravno povezati objekt crtičnog koda s ćelijom:

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

Kako bismo olakšali pristup kontroli, pohranjujemo ime kontrole u varijablu MyBarcode:

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

Sada možete koristiti svojstva i metode objekta crtičnog koda po želji:

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

Ako vam kontrola više nije potrebna, možete je izbrisati s lista:

ActiveSheet.OLEObjects(MyBarcode).Delete

Savjet: Ako je potrebno da Windows obradi nadolazeće događaje (često nazivane KeepWindowsAlive) unutar makra, to možete prisiliti koristeći sljedeću VBA funkciju:

DoEvents

Ovo može biti potrebno, npr. ako Kontrola mora ponovno nacrtati sebe.