Barcode generator

[Cor-Assa]

Beste Excel vrienden,

 

Ik heb een excel bestand daar zitten diverse kolommen met data in.

Nu heb ik de data van 2 kolommen samengevoegd om daarvan een ean13 barcode te genereren.

Zo staat er b.v.b. in cel F10 de cijfers van een postcode v.b. 5638

In cel I10 staat een gsm nummer v.b. 687349812

Deze 2 heb ik samen gevoegd in cel Q10, dan staat er 6873498125638

Nu is het de bedoeling dat in cel P10 een ean13 barcode gegenereerd wordt.

Alleen het lettertype aanpassen naar ean13 werkt niet dan kan de scanner m niet lezen.

Wie weet een goede oplossing, de opties via google werken tot op heden niet.

 

M.vr.gr.

Cor Assa

[stegisoft]

Ten eerste is ean13 van de oude tijd tenzij je voor hobby doet.

Helaas mag je niet zomaar een barcode maken want daarvoor moet je lidgeld betalen.

Je kan add-inn download doch ik heb geen ervaring omdat ik vroeger om een andere manier deed maar dan voor access. Het is weliswaar niet gratis)

Je kan geen 13 cijfers omzetten naar barcode ean13 maar slechts 12 dacht ik.

 

17 februari 2018 aangepast door stegisoft

[Cor-Assa]

Beste stegisoft, met de ean13 mag je wel degelijk vrij zelf codes maken, daarvoor zijn er o.a. ook de generators die aangeboden worden.

Bepaalde sets codes zijn echter geregistreerd en die zijn verboden.

Ik wil de codes die ik in excel wil genereren gebruiken om toegangs kaartjes te maken.

Ben al zo ver dat ik ze met een generator kan produceren en inplakken, maar dat moet automatisch in excel gaan.

Dat lukt me al met de 39 code maar deze is voor mijn doel te groot vandaar dat ik de 13 wil gebruiken.

 

M.vr.gr.

Cor Assa

18 februari 2018 aangepast door Cor-Assa

[Cor-Assa]

Ik ben onderstaande tekst tegen gekomen maar snap het nog niet helemaal.

 

Function EAN(Invoer As String) As String
    
    Dim C(1 To 13), CS, i As Integer
    Const L = 65, G = 75, R = 97
    ' Opruimen
    Invoer = Right(String(12, "0") & Left(Invoer, 12), 12)
    ' Klaarzetten
    For i = 1 To 12
        C(i) = Val(Mid(Invoer, i, 1))
    Next
    'CheckSum maken
    CS = C(1) + C(3) + C(5) + C(7) + C(9) + C(11) + ((C(2) + C(4) + C(6) + C(8) + C(10) + C(12)) * 3)
    'Controlegetal genereren
    C(13) = (10 - (CS Mod 10)) Mod 10
    
    '1e cijfer
    EAN = Left(Invoer, 1)
    '2e t/m 7e cijfer
    EAN = EAN & Chr(C(2) + Choose(C(1) + 1, L, L, L, L, L, L, L, L, L, L))
    EAN = EAN & Chr(C(3) + Choose(C(1) + 1, L, L, L, L, G, G, G, G, G, G))
    EAN = EAN & Chr(C(4) + Choose(C(1) + 1, L, G, G, G, L, G, G, L, L, G))
    EAN = EAN & Chr(C(5) + Choose(C(1) + 1, L, L, G, G, L, L, G, G, G, L))
    EAN = EAN & Chr(C(6) + Choose(C(1) + 1, L, G, L, G, G, L, L, L, G, G))
    EAN = EAN & Chr(C(7) + Choose(C(1) + 1, L, G, G, L, G, G, L, G, L, L))
    'Middelste scheiding
    EAN = EAN & "*"
    'Rechtse cijfers
    EAN = EAN & Chr(C(8) + R) & Chr(C(9) + R) & Chr(C(10) + R) & Chr(C(11) + R) & Chr(C(12) + R) & Chr(C(13) + R)
    'Afsluiten
    EAN = EAN & "+"
    
End Function

[Cor-Assa]

De optie bestand toevoegen is er ineens weer?

Waarom was die er gisteren niet?

 

M.vr.gr.

Cor Assa

Gasten-Lijst Meista 05-05-2018 test.xlsm

[Cor-Assa]

Sorry had niet alles gekopieerd, bij deze.

 

Barcode zelf maken[bewerken]

VBA[bewerken]

Gebruik:

• Te gebruiken lettertype bij deze code: Code EAN-13 van Eaglefonts
• Met of zonder controlecijfer, dit wordt ALTIJD gegenereerd.
• VBA:

EANtekst = EAN(MijnString)

EANtekst = EAN("12345")

EANtekst = EAN("1234567890123")

• Excel (in cellen):

=EAN(MijnCel)

Function EAN(Invoer As String) As String
    
    Dim C(1 To 13), CS, i As Integer
    Const L = 65, G = 75, R = 97
    ' Opruimen
    Invoer = Right(String(12, "0") & Left(Invoer, 12), 12)
    ' Klaarzetten
    For i = 1 To 12
        C(i) = Val(Mid(Invoer, i, 1))
    Next
    'CheckSum maken
    CS = C(1) + C(3) + C(5) + C(7) + C(9) + C(11) + ((C(2) + C(4) + C(6) + C(8) + C(10) + C(12)) * 3)
    'Controlegetal genereren
    C(13) = (10 - (CS Mod 10)) Mod 10
    
    '1e cijfer
    EAN = Left(Invoer, 1)
    '2e t/m 7e cijfer
    EAN = EAN & Chr(C(2) + Choose(C(1) + 1, L, L, L, L, L, L, L, L, L, L))
    EAN = EAN & Chr(C(3) + Choose(C(1) + 1, L, L, L, L, G, G, G, G, G, G))
    EAN = EAN & Chr(C(4) + Choose(C(1) + 1, L, G, G, G, L, G, G, L, L, G))
    EAN = EAN & Chr(C(5) + Choose(C(1) + 1, L, L, G, G, L, L, G, G, G, L))
    EAN = EAN & Chr(C(6) + Choose(C(1) + 1, L, G, L, G, G, L, L, L, G, G))
    EAN = EAN & Chr(C(7) + Choose(C(1) + 1, L, G, G, L, G, G, L, G, L, L))
    'Middelste scheiding
    EAN = EAN & "*"
    'Rechtse cijfers
    EAN = EAN & Chr(C(8) + R) & Chr(C(9) + R) & Chr(C(10) + R) & Chr(C(11) + R) & Chr(C(12) + R) & Chr(C(13) + R)
    'Afsluiten
    EAN = EAN & "+"
    
End Function

[stegisoft]

Ik ben hier geen specialist in.

Maar jij maak de barcode met de VBA code.

Wordt die barcode afgedrukt op etiket?

Dan met uw scanner de barcode scannen zodat je bestelling ingeboekt is?

Ik deed dat toen met de barcode van de verpakking.

Nota: een scanner kan geen cijfers lezen maar enkel barcode en zet die om in cijfers.

 

 

18 februari 2018 aangepast door stegisoft

[Cor-Assa]

9 minuten geleden, stegisoft zei:

Ik ben hier geen specialist in.

Maar jij maak de barcode met de VBA code.

Wordt die barcode afgedrukt op etiket?

Dan met uw scanner de barcode scannen zodat je bestelling ingeboekt is?

Ik deed dat toen met de barcode van de verpakking.

Nota: een scanner kan geen cijfers lezen maar enkel barcode en zet die om in cijfers.

 

 

Beste stegisoft, dat is mij bekend, maar de bedoeling is dat met een combinatie van hp-nummer en postcode een barcode gegenereerd wordt met de VBA code.

Een cel font omzetten naar EAN code is niet voldoende die is niet te scannen.

De barcode wordt naderhand met adres gegevens op een etiket uitgeprint.

 

M.vr.gr.

Cor Assa

[stegisoft]

Een cel font omzetten naar EAN code is niet voldoende die is niet te scannen

Een cel font omzetten naar EAN code is niet voldoende die is niet te scannen

Dat klopt.

Maar het is uw computer die de scanner leest en vergelijk met uw barcode cijfers op uw pc. Het is deze vba code dat je moet maken.

Ik had mijn code veel later moet toevoegen en dus moet ik met de oude systeem doen.

Toen was het zo dat access de barcode leest in het vak inkomende barcode en vergeleek met de barcode dat op pc aanwezig is en als beiden overeenkomen dan wordt er een regel toegevoegd aan de bestelling met product code en niet barcode. Bij fout kreeg je een melding als barcode niet bestaat.

Dus ik maakte toen product code uit 6 cijfers en barcode 13 cijfers

Die 6 cijfers code gebruik in dan om factuur te maken.

 

 

 

[Gast]

Kijk eens of deze werkt. (ik heb geen scanner)

Gebruik het juiste lettertype

Quote

Code EAN-13 van Eaglefonts

De UDF staat in module mEan, formule in  P6, naar beneden doortrekken.

Gasten-Lijst Meista (scan).xlsm