Bu makalede, aşağıdakileri oluşturmayı öğreneceğiz Excel için code 128 barkod yazı tipi Excel'de kod 128 barkod yazı tipini kullanmak için bazı yöntemler vardır, ancak çoğunun uygulanması zordur ve Excel'in tüm sürümlerinde çalışmaz. Bugün, Excel'de kolay adımlarla kod 128 barkod yazı tipi oluşturmak için bir yöntem göstereceğiz. Makaleyi okuduktan sonra, kod 128 barkod yazı tipini çok kolay bir şekilde kullanabileceksiniz. Öyleyse, gecikmeden şimdi tartışmaya başlayalım.

Alıştırma Kitabını İndirin

Alıştırma kitabını buradan indirebilirsiniz.

Code 128 Barkod Yazı Tipi Nedir?

Kod 128 modern ve ünlü bir barkod yazı tipidir. Alfanümerik karakterleri destekleyen yüksek yoğunluklu bir barkod yazı tipi olduğu için popülaritesi her geçen gün artmaktadır.

Genel olarak, kod 128 yedi bölümden oluşur. Bunlar

• Sessiz Bölge
• Başlangıç Sembolü
• Kodlanmış Veri
• Sembolü Kontrol Et
• Dur Sembolü
• Final Çubuğu
• Sessiz Bölge

Bu kod 128 barkod yazı tipi vardır 3 Bunlar aşağıda kısaca açıklanmıştır:

• Kod 128A : Destekler ASCII küçük harf karakterleri olmadan.
• Kod 128B : Destekler ASCII ilk özel karakterler olmadan.
• Kod 128C : Bu alt küme şunları destekler Sayısal Değerler .

Excel için Kod 128 Barkod Yazı Tipi Oluşturmak için Adım Adım Prosedürler

Adımları açıklamak için, bazı veriler hakkında bilgi içeren bir veri kümesi kullanacağız. ürünler ve onların Veri Yöntemi kullanarak, aşağıdaki özelliklere sahip barkodlar oluşturmaya çalışacağız Kod 128 Her bir ürünün verileri için yazı tipi.

ADIM 1: Code 128 Yazı Tipini İndirin

• Her şeyden önce, indirmeniz gerekir Kod 128 Yapabilirsin yazı tipini bu bağlantıdan indirin .
• Ondan sonra, özü indirilen klasörü C:\Windows\Fontlar Klasör.
• Aksi takdirde, indirilen klasörü açın, kopyalayın Kod 128 yazı tipini seçin ve C:\Windows\Fontlar Klasör.
• Ayrıca, şunları seçin Devam et Yönetici izinleri penceresi görünürse.

ADIM 2: VBA Kodunu Uygulayın

• İkinci olarak, şu adrese gidin Geliştirici sekmesini tıklatın ve Visual Basic .
• Sonuç olarak Visual Basic Pencere.

• Bundan sonra, şunları seçin Ekleme ve sonra Modül içinde Visual Basic Pencere.
• Şu anda Modül penceresi görünecektir.

• Şimdi, şu alana bir kod yazmamız gerekiyor Modül Pencere.
• Aşağıdan kopyalayabilir ve Modül Pencere:

 Option Explicit Public Function Code128(SourceString As String) Dim Counter As Integer Dim CheckSum As Long Dim mini As Integer Dim dummy As Integer Dim UseTableB As Boolean Dim Code128_Barcode As String If Len(SourceString)> 0 Then For Counter = 1 To Len(SourceString) Select Case Asc(Mid(SourceString, Counter, 1)) Case 32 To 126,203 Case Else MsgBox "Invalid character in barcode string" & vbCrLf & vbCrLf & "Please only use standard ASCII characters", vbCritical Code128 = "" Exit Function End Select Next Code128_Barcode = "" UseTableB = True Counter = 1 Do While Counter <=Len(SourceString) If UseTableB Then mini = IIf(Counter = 1 Or Counter + 3 = Len(SourceString), 4, 6) GoSub testnum If mini% <0 Then If Counter = 1 Then Code128_Barcode = Chr(205) Else Code128_Barcode = Code128_Barcode & Chr(199)End If UseTableB = False Else If Counter = 1 Then Code128_Barcode = Chr(204) End If End If If Not UseTableB Then mini% = 2 GoSub testnum If mini% <0 Then dummy% = Val(Mid(SourceString, Counter, 2)) dummy% =IIf(dummy% <95, dummy% + 32, dummy% + 100) Code128_Barcode = Code128_Barcode & Chr(dummy%) Counter = Counter + 2 Else Code128_Barcode = Code128_Barcode & Chr(200) UseTableB = True End If End If UseTableB Then Code128_Barcode =Code128_Barcode & Mid(SourceString, Counter, 1) Counter = Counter + 1 End If Loop For Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Counter, 1)) dummy% = IIf(dummy% <127, dummy% - 32, dummy% - 100) If Counter = 1 Then CheckSum& = dummy% CheckSum& = (CheckSum& +(Counter - 1) * dummy%) Mod 103 Next CheckSum& = IIf(CheckSum& <95, CheckSum& + 32, CheckSum& + 100) Code128_Barcode = Code128_Barcode & Chr(CheckSum&) & Chr$(206) End If Code128 = Code128_Barcode Exit Function testnum: mini% = mini% - 1 If Counter + mini% = 0 If Asc(Mid(SourceString, Counter +mini%, 1)) 57 Sonra Çık Do mini% = mini% - 1 Döngü End If Return End Fonksiyon 

VBA Kod Açıklaması:

Bu kodda, bir dizeyi barkodlara dönüştürecek bir fonksiyon oluşturacağız. Kod 128 Yazı tipi.

• Giriş parametresi bir dizedir.
• Çıktıda, şu alanda bir barkod alacağız Kod 128 dize geçerliyse yazı tipi.
• Aksi takdirde, boş bir dize görüntülenir.

 Public Function Code128(SourceString As String) 

Bu kısım fonksiyon adını belirtir ve Code128() Dizeyi parantezlerin içine yerleştirmeniz gerekir.

 Dim Counter As Integer Dim CheckSum As Long Dim mini As Integer Dim dummy As Integer Dim UseTableB As Boolean Dim Code128_Barcode As String 

Bunlar kodda kullanılacak değişkenlerdir.

 If Len(SourceString)> 0 Then For Counter = 1 To Len(SourceString) Select Case Asc(Mid(SourceString, Counter, 1)) Case 32 To 126, 203 Case Else MsgBox "Invalid character in barcode string" & vbCrLf & vbCrLf & "Please only use standard ASCII characters", vbCritical Code128 = "" Exit Function End Select Next 

Bu bölümde kod geçerli karakterleri kontrol edecek, geçerli bir karakter bulamazsa kullanıcıdan standart karakterleri kullanmasını isteyecektir. ASCII karakterler.

 For Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Counter, 1)) dummy% = IIf(dummy% <127, dummy% - 32, dummy% - 100) If Counter = 1 Then CheckSum& = dummy% CheckSum& = (CheckSum& + (Counter - 1) * dummy%) Mod 103 Next 

Burada, bu bölüm aşağıdaki değerlerin değerini hesaplar CheckSum değişken.

 CheckSum& = IIf(CheckSum& <95, CheckSum& + 32, CheckSum& + 100) Code128_Barcode = Code128_Barcode & Chr(CheckSum&) & Chr$(206) End If 

Bu bölümde kod, aşağıdaki değerleri hesaplar CheckSum ASCII kodunu ekledikten sonra ASCII kodu ile bir sonraki bölüme geçer.

 mini% = mini% - 1 If Sayaç + mini% = 0 If Asc(Mid(SourceString, Sayaç + mini%, 1)) 57 Then Exit Do mini% = mini% - 1 Loop End If 

Son kısımda, kod verilen dizenin içindeki sayısal değerleri kontrol edecektir.

Bu VBA kodu şuradan bulundu myonlinetraininghub.com .

• Kodu yazdıktan sonra Ctrl + S onu kurtarmak için.
• Bir sonraki adımda Visual Basic Pencere.

ADIM 3: Kod 128 İşlevini Kullanın

• Üçüncü olarak, oluşturduğumuz fonksiyonu VBA .
• Bunu yapmak için şunları seçin Hücre D5 ve aşağıdaki formülü yazın:

Burada, fonksiyon aşağıdaki verileri dönüştürecektir Hücre C5 bir barkoda dönüştürür.

• Bir sonraki adımda, tuşuna basın Girin Sonucu görmek için.

ADIM 4: Yazı Tipi Temasını ve Boyutunu Değiştirin

• Dördüncü adımda, yazı tipi temasını ve boyutunu değiştirmeniz gerekir.
• Bu amaçla, şunları seçin Hücre C5 .
• Ardından, şu adrese gidin Ev sekmesini seçin ve Kod 128 yazı tipi teması kutusuna girin.
• Ayrıca, şunları seçin 36 yazı tipi boyutu kutusunda.

ADIM 5: Sütun Genişliğini ve Satır Yüksekliğini Yeniden Boyutlandırın

• Yazı tipi temasını ve boyutunu değiştirdikten sonra, sütun genişliğini ve satır yüksekliğini yeniden boyutlandırmamız gerekir.
• Bizim durumumuzda, genişliğini ayarladık Sütun D için 30 ve Sıra Yüksekliği için 50 .

ADIM 6: Formülü Kopyalamak için Doldurma Tutamacını Kullanın

• Bir sonraki adımda şunları seçin Hücre D5 ve sürükleyin Doldurma Kolu hücrelerin geri kalanına kadar.

Nihai Çıktı

• Son olarak, değiştir Sıra Yüksekliği . Sıra 6 , 7 , 8 ve 9 için 50 .
• Tüm adımları tamamladıktan sonra aşağıdaki resimdeki gibi sonuçlar göreceksiniz.

Daha Fazla Oku: Excel için Code 39 Barkod Yazı Tipi Nasıl Kullanılır (Kolay Adımlarla)

Sonuç

Bu makalede, aşağıdakileri oluşturmak için adım adım prosedürleri gösterdik Excel için Code 128 Barkod Yazı Tipi . umarım bu makale size yardımcı olur barkod oluşturma Ayrıca, pratik yapmak için çalışma kitabını kullanabilirsiniz. Bunun için çalışma kitabını indirin. Çalışma kitabını yazının başına ekledik. Ayrıca, şu adresi ziyaret edebilirsiniz ExcelWIKI Son olarak, herhangi bir öneriniz veya sorunuz varsa, aşağıdaki yorum bölümünde sormaktan çekinmeyin.