Code 128 formatlı barkod oluşturma?

Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
Merhaba

Excel üzerinde code 128 formatına uygun barkod nasıl üretebilirim. Herhangi bir hücrenin yazı tipini code 128'e çeviriyorum. İçinde yazan rakamlar barkoda dönüşüyor ama barkodu okuyucuyu bu barkodu okuyamıyor.

Daha önce Excel ile bu formatta barkod üretmiş olan var mı?


Yardımcı olabilirseniz sevinirim.
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,806
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Daha önce ben de bu türden bir şeyler yapmıştım.
Ean Barkod üretilirken rastgele rakamlarla olmaz. Rakamların dizilişinde bir formül var.
Tam hatırlamıyorum ama tekli rakamların toplamı 11 olması gerekiyordu sanırım.
Daha doğrusu siz Ean barkod nasıl oluşturulur diye bi arama yapın. Formülü ve yapıyı bulursunuz.
Excel zaten yazılan rakamları barkoda dönüştürüyor, yani sorun excelden kaynaklı değil, yapıyı bilmelisiniz.
 
Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
Muzaffer Ali' Alıntı:
Merhaba.
Daha önce ben de bu türden bir şeyler yapmıştım.
Ean Barkod üretilirken rastgele rakamlarla olmaz. Rakamların dizilişinde bir formül var.
Tam hatırlamıyorum ama tekli rakamların toplamı 11 olması gerekiyordu sanırım.
Daha doğrusu siz Ean barkod nasıl oluşturulur diye bi arama yapın. Formülü ve yapıyı bulursunuz.
Excel zaten yazılan rakamları barkoda dönüştürüyor, yani sorun excelden kaynaklı değil, yapıyı bilmelisiniz.
Genişletmek için tıkla ...
Durumu şöyle anlatırsam daha doğru olur. Şirketimde sipariş kağıtları var üzerinde barkod olan. Bu barkodları okutuyorum. Excelle barkodu okuttuğum hücrenin yazı biçimi code-128 seçili. onun çıktısını alınca okutamıyorum. Acaba yazı biçimi doğru değil mi? İnternette bununla ilgili bir araştırma yaptı, ülke kodu kurum kodu vs. bilgilerden bahsediliyor. Benim böyle bir şeyle işim yok kurum içinde dönecek bir etiket sistemini barkodlaştırmak istiyorum sadece.
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,806
Excel Vers. ve Dili
2019 Türkçe
Doğru mu anladım?

Excel hücresine rakamlar yazıyorsunuz, yazıtipi Ean-128 seçiyorsunuz yazıcıdan çıktı alıyorsunuz, barkod okuyucu ile çıktıyı okutuyorsunuz fakat barkod okuyucu hiç okumuyor. Eğer sorun buysa yazıcınız iyi çıktı almıyor yada barkod okuyucu aletinde sorun var okuyamıyor demektir.

Yoksa barkod okuyucu aleti barkodu okuyor da farklı rakamlar mı çıkıyor?
 
Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
Muzaffer Ali' Alıntı:
Doğru mu anladım?

Excel hücresine rakamlar yazıyorsunuz, yazıtipi Ean-128 seçiyorsunuz yazıcıdan çıktı alıyorsunuz, barkod okuyucu ile çıktıyı okutuyorsunuz fakat barkod okuyucu hiç okumuyor.
Genişletmek için tıkla ...
Buraya kadar doğru.
Muzaffer Ali' Alıntı:
Eğer sorun buysa yazıcınız iyi çıktı almıyor yada barkod okuyucu aletinde sorun var okuyamıyor demektir.
Genişletmek için tıkla ...
Bunu denemek için yazıcımdan internette bulduğum barkodları çıktı alıp denedim. Okumada yanlışlık yok.
Muzaffer Ali' Alıntı:
Yoksa barkod okuyucu aleti barkodu okuyor da farklı rakamlar mı çıkıyor?
Genişletmek için tıkla ...
Sanırım benim sorunum excellde oluşturduğum barkodu okutamamak. Farklı yerden aldığım barkodu kendi yazıcımla yazdırıyorum. Yazdırdığım barkodu excelle okutuyorum rakamları doğru yazıyor. Mesela bunu A1 hücresine okutuyorum. B1 hücresine ise =A1 yazıp yazı tipini code128 olarak seçiyorum. Ama bu şekilde aldığım çıktıyı barkod cihazı okumuyor.

Bizim şirketin office programı yeni barkod formatı eklemek için kapalı. Acaba sorun yazı tipinde mi ?
 
Levent Menteşoğlu

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
ywzyilmaz' Alıntı:
Merhaba

Excel üzerinde code 128 formatına uygun barkod nasıl üretebilirim. Herhangi bir hücrenin yazı tipini code 128'e çeviriyorum. İçinde yazan rakamlar barkoda dönüşüyor ama barkodu okuyucuyu bu barkodu okuyamıyor.

Daha önce Excel ile bu formatta barkod üretmiş olan var mı?


Yardımcı olabilirseniz sevinirim.
Genişletmek için tıkla ...
Barkod numarasının önüne ve arkasına "*" eklerseniz okuyucu okuyacaktır. Örneğin barkod numaranız A1 hücresinde ise ="*"&A1&"*" gibi.
 
Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
Levent Menteşoğlu' Alıntı:
Barkod numarasının önüne ve arkasına "*" eklerseniz okuyucu okuyacaktır. Örneğin barkod numaranız A1 hücresinde ise ="*"&A1&"*" gibi.
Genişletmek için tıkla ...
Geri dönüş için teşekkür ederim. Bunu yaptım okuyor evet fakat yanlış değerler veriyor.

Veri

Barkod

Barkodu Okutunca Çıktı

1589292541

="*"&A1&"*"

4511515514

 
Haluk

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,291
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Özel kişi
Aşağıdakini okutma şansınız var mı?




.
 
Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
benim QR tarayıcım yok telefonla tarattığım zaman hizliresim linki çıkıyor.
 
Levent Menteşoğlu

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
ywzyilmaz' Alıntı:
Geri dönüş için teşekkür ederim. Bunu yaptım okuyor evet fakat yanlış değerler veriyor.

Veri

Barkod

Barkodu Okutunca Çıktı

1589292541

="*"&A1&"*"

4511515514

Genişletmek için tıkla ...
Bu durumda başlama ve bitiş kodlarını değiştirmek gerekiyor. Aşağıdaki ihtimalleri deneyin.

="103"&A1&"106"
="104"&A1&"106"
="105"&A1&"106"

Detay için aşağıdaki linki inceleyin.

en.wikipedia.org

Code 128 - Wikipedia

en.wikipedia.org en.wikipedia.org
 
Haluk

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,291
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Özel kişi
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,806
Excel Vers. ve Dili
2019 Türkçe
9. mesajda paylaştığınız verilerden elde ettiğiniz barkod grafiğini de paylaşır mısınız?
Yani hem yazdığınız rakamlar, hem barkod grafiği hem de barkod okuyucunuzun okuduğu rakamları paylaşın.
 
Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
Levent Menteşoğlu' Alıntı:
Bu durumda başlama ve bitiş kodlarını değiştirmek gerekiyor. Aşağıdaki ihtimalleri deneyin.

="103"&A1&"106"
="104"&A1&"106"
="105"&A1&"106"

Detay için aşağıdaki linki inceleyin.

en.wikipedia.org

Code 128 - Wikipedia

en.wikipedia.org en.wikipedia.org
Genişletmek için tıkla ...
Bu verdiğiniz şekilde yapınca kodları okumadı. Sayfayı inceledim benim için epey karmaşık geldi. Benim excellin kodu oluştururken yanlışlık yaptığını düşünüyorum. Oluşturup yazdırdığım barkodları okutunca yazdığım rakamlar ne olursa olsun bütün rakamları 1-4-5 olarak okuyor.
 
Levent Menteşoğlu

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,056
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kullandığınız fontu eklermisiniz. Mutlaka Code128'mi kullanmak zorundasınız?
 
Y

ywzyilmaz

Katılım
15 Haziran 2021
Mesajlar
147
Excel Vers. ve Dili
Office 2016
Sorunu çözdüm,

Aynı konuda takılan biri olursa diye paylaşayım.

Araştırmalarım sonucu şöyle bir modüle ulaştım :

Kod: 
Public Function Code128$(Text$)
    Dim x%, y%, fehlzeichen%, checksumme&
    Dim Zeichensatz As Variant
    Zeichensatz = Array("ß", "!", Chr(34), "#", "$", "%", "&", "'", "(", ")", "*", "+", ",", "-", ".", "/", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ":", ";", "<", "=", ">", "?", "@", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "[", "\", "]", "^", "_", "`", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "{", "|", "}", "~", "´", "ä", "ö", "ü", "Ä", "Ö", "Ü", "µ", "À", "Á", "Â", "È")
    Code128$ = ""

    'Die Maximallänge des Textes wird auf 40 Zeichen begrenzt, um fehlerhafte Scans zu vermeiden.
    If (Len(Text$) > 40) Then
        x% = MsgBox("Der zu codierende Text ist " & Str(Len(Text$) - 40) & " Zeichen zu lang." & Chr(13) & "Um Fehler beim Scannen des Barcodes zu vermeiden, ist dieses Makro auf 40 Zeichen begrenzt.", 64, "Barcode-Generator (Code 128)")
        Exit Function
    End If

    'Wenn kein Text zu codieren ist, dann Funktion beenden.
    If (Len(Text$) = 0 Or Text$ = "0") Then
        Exit Function
    End If

    'Testen, ob im Ausgangstext ein ß enthalten ist
    If (InStr(Text$, "ß") <> 0) Then
        x% = MsgBox("Das Zeichen ß kann nicht dargestellt werden.", 64, "Barcode-Generator (Code 128)")
        Exit Function
    End If

    'Das Startzeichen hat den Wert 104
    checksumme& = 104

    'Leerzeichen durch ß ersetzen
    Text$ = Replace(Text$, " ", "ß")


    'Prüfziffer berechnen
    For x% = 1 To Len(Text$)
        fehlzeichen% = 1
        For y% = 0 To 94
            If (Mid$(Text$, x%, 1) = Zeichensatz(y%)) Then
                fehlzeichen% = 0
                checksumme& = checksumme& + (x% * y%)
                Exit For
            End If
        Next y%
        If fehlzeichen% = 1 Then
            x% = MsgBox("Das Zeichen " & Mid$(Text$, x%, 1) & " kann nicht dargestellt werden.", 64, "Barcode-Generator (Code 128)")
            Exit Function
        End If
    Next x%

    'Rest ermitteln
    checksumme& = checksumme& Mod 103

    'Ergebnis = Startzeichen + Text + Prüfziffer + Stoppzeichen
    Code128$ = "Á" & Text$ & Zeichensatz(checksumme&) & "È"
End Function
Bu kodu modül olarak excelle ekleyince sorun halloldu. Yönlendirmeler ve fikirler için herkese çok teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst