Viivakoodit Excel 2016:ssa, Excel 2013:ssa ja Excel 365:ssa

Upota ja automatisoi viivakoodi Excel-taulukkoon

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

Tässä on lyhyt kuvaus siitä, kuinka lisätä viivakoodi Excel-asiakirjaan ja linkittää se solun sisältöön.

Käynnistä ensin Excel ja luo tai avaa asiakirja.

Varmista, että olet määrittänyt Excelin asetukset niin, että Kehittäjä-välilehti näkyy. Voit tehdä tämän siirtymällä Excelin asetuksiin napsauttamalla Tiedosto-välilehteä. Tämä siirtää sinut Backstage-näkymään. Napsauta sitten vasemmalla olevassa välilehtiryhmässä Asetukset. ActiveBarcode: Barcode, Excel

Ota Mukauta nauha-kohdassa käyttöön Kehittäjä -vaihtoehto päävälilehdillä ja sulje sitten asetusikkuna. ActiveBarcode: Barcode, Excel

Nyt voit upottaa ActiveBarcode-ohjauselementin asiakirjaasi. Valitse Kehittäjä- välilehti. Napsauta Lisää- painiketta ActiveX-ohjausobjektien valikosta ja valitse sitten Lisää ohjausobjekteja. ActiveBarcode: Barcode, Excel

Näyttöön tulee valintaikkuna: ActiveBarcode: Barcode, Excel

Valitse ActiveBarcode ja napsauta OK. Asiakirjaan luodaan nyt viivakoodi. Se on tavallinen EAN-128-viivakoodi. Tämä on oletustyyppi. Voit muuttaa sen mihin tahansa ActiveBarcoden tukemaan viivakoodityyppiin: 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 ...Voit nyt muokata tätä viivakoodia. Voit muuttaa tyyppiä, tekstiä, värejä jne. Voit tehdä tämän napsauttamalla hiiren kakkospainikkeella viivakoodin sisällä. Avautuu ponnahdusvalikko: ActiveBarcode: Barcode, Excel

Valitse ActiveBarcode-objekti ja sen jälkeen Ominaisuudet. ActiveBarcode-ominaisuusikkuna avautuu. Voit muokata viivakoodia haluamallasi tavalla.

Vaihtoehtoisesti voit käyttää Excelin ominaisuusvalintaikkunaa. Voit tehdä tämän napsauttamalla Ominaisuudet- painiketta Ohjaimet -alueella: ActiveBarcode: Barcode, Excel

Luo linkki solun ja viivakoodin välille: Avaa Excel-ominaisuusvalintaikkuna edellä kuvatulla tavalla. Aktivoi viivakoodiobjekti napsauttamalla sitä kerran. Viivakoodiobjektin ominaisuudet näkyvät nyt ominaisuusvalintaikkunassa. Etsi ominaisuus nimeltä LinkedCell. Tämä ominaisuus luo linkin solun ja viivakoodin välille: ActiveBarcode: Barcode, Excel

Kirjoita linkin solun nimi tähän ominaisuuteen. Siinä kaikki!

Jos haluat luoda viivakoodin, joka koodaa useiden solujen tiedot, sinun on ensin yhdistettävä nämä solut apusoluksi. Yhdistä sitten tämä yhdistetty solu viivakoodiobjektiin.

Seuraavassa esimerkissä solujen B3 ja B4 sisältö yhdistetään soluun B6. Solu B6 on linkitetty viivakoodiobjektiin. ActiveBarcode: Barcode, Excel

Viivakoodien käyttö ja automatisointi VBA:lla Excel

VisualBasic for Applications (VBA) -sovelluksella voit ratkaista monia asioita Excelissä. Tässä näytämme, kuinka ActiveBarcode-ohjausobjekti upotetaan, käytetään ja poistetaan VBA:n avulla:

ActiveBarcode-ohjausobjektin upottaminen taulukkoon:
Tässä esimerkissä viivakoodiohjaus sijoitetaan suoraan solun yläpuolelle. Silloin näyttää siltä, että viivakoodi olisi solun sisällä.

Ensin luemme solujen koon:

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

Huomaa, että solun on oltava riittävän suuri, jotta viivakoodi mahtuu siihen. Jos solu on liian pieni, näyttöön tulee kokoa koskeva virheilmoitus. Siksi muutamme solun korkeuden 30 pikseliksi:

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

Seuraava toiminto luo viivakoodiohjaimen suoraan solun yläpuolelle:

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

Voit linkittää viivakoodiobjektin suoraan soluun:

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

Jotta pääsemme helposti käsiksi ohjausobjektiin, tallennamme sen nimen muuttujaan MyBarcode:

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

Nyt voit käyttää viivakoodiobjektin ominaisuuksia ja menetelmiä haluamallasi tavalla:

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

Jos et enää tarvitse ohjainta, voit poistaa sen taulukosta:

ActiveSheet.OLEObjects(MyBarcode).Delete

Vinkki: Jos Windowsin on käsiteltävä tulevia tapahtumia (usein nimeltään KeepWindowsAlive) makron sisällä, voit pakottaa tämän käyttämällä seuraavaa VBA-funktiota:

DoEvents

Tämä voi olla tarpeen esimerkiksi silloin, kun ohjausyksikkö joutuu piirtämään itsensä uudelleen.