V tem članku se bomo naučili ustvariti pisava črtne kode code 128 za Excel . Obstaja nekaj metod za uporabo pisave črtne kode code 128 v Excelu, vendar je večina zahtevna za uporabo in ne deluje v vseh različicah Excela. Danes bomo prikazali metodo za ustvarjanje pisave črtne kode code 128 z enostavnimi koraki v Excelu. Po branju članka boste lahko zelo enostavno uporabili pisavo črtne kode code 128. Zato brez odlašanja zdaj začnimo razpravo.

Prenesi knjigo za prakso

Knjigo za vadbo lahko prenesete s spleta tukaj.

Kaj je pisava črtne kode Code 128?

Koda 128 je sodobna in znana pisava črtne kode. njena priljubljenost se iz dneva v dan povečuje, saj gre za pisavo črtne kode visoke gostote, ki podpira alfanumerične znake.

Na splošno je koda 128 sestavljena iz sedmih delov:

• Mirno območje
• Začetni simbol
• Kodirani podatki
• Preverite simbol
• Simbol zaustavitve
• Končna vrstica
• Mirno območje

Spletna stran koda 128 pisava črtne kode ima 3 V nadaljevanju so na kratko opisane:

• Koda 128A : Podpira ASCII brez malih črk.
• Koda 128B : Podpira ASCII brez začetnih posebnih znakov.
• Koda 128C : Ta podmnožica podpira Številčne vrednosti .

Postopki po korakih za generiranje pisave za črtno kodo Code 128 za Excel

Za razlago korakov bomo uporabili nabor podatkov, ki vsebuje informacije o nekaterih izdelki in njihove podatki Z uporabo metode bomo poskusili ustvariti črtne kode z Koda 128 pisava za podatke o vsakem izdelku.

KORAK 1: Prenos pisave Code 128

• Najprej morate prenesti Koda 128 Lahko prenesite pisavo s te povezave .
• Nato, izvleček preneseno mapo v C:\Windows\Fonts mapo.
• V nasprotnem primeru razpakirajte preneseno mapo, kopirajte Koda 128 in jo prilepite v C:\Windows\Fonts mapo.
• Izberite tudi Nadaljuj če se prikaže okno z upraviteljskimi dovoljenji.

KORAK 2: Uporaba kode VBA

• Drugič, pojdite v Razvijalec v traku in izberite Visual Basic .
• Tako bo odprl Visual Basic okno.

• Nato izberite Vstavite in nato Modul v Visual Basic okno.
• V tem trenutku je Modul Prikaže se okno.

• Zdaj moramo vnesti kodo v polje Modul okno.
• Kopirate ga lahko spodaj in ga prilepite v Modul okno:

 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 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& +(Števec - 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 Then Exit Do mini% = mini% - 1 Loop End If Return End Function 

Razlaga kode VBA:

V tej kodi bomo ustvarili funkcijo, ki bo pretvorila niz v črtne kode. Koda 128 pisava.

• Vhodni parameter je niz.
• V izpisu bomo dobili črtno kodo v polju Koda 128 pisava, če je niz veljaven.
• V nasprotnem primeru se prikaže prazen niz.

 Javna funkcija Code128(Izvorno besedilo kot niz) 

Ta del označuje ime funkcije in je Code128() . Niz morate vstaviti v oklepaje.

 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 

To so spremenljivke, ki bodo uporabljene v kodi.

 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 

V tem delu koda preveri, ali so znaki veljavni. Če ne najde nobenega veljavnega znaka, od uporabnika zahteva, da uporabi standardni ASCII liki.

 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 

V tem delu se izračuna vrednost CheckSum spremenljivka.

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

V tem delu koda izračuna CheckSum ASCII koda. Po dodajanju kode ASCII kodo, se premakne na naslednji del.

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

V zadnjem delu koda preveri, ali so znotraj danega niza številske vrednosti.

Na spletni strani . VBA koda je bila najdena v myonlinetraininghub.com .

• Ko vnesete kodo, pritisnite Ctrl + S da bi ga rešili.
• V naslednjem koraku zaprite Visual Basic okno.

KORAK 3: Uporaba funkcije Code 128

• Tretjič, uporabiti moramo funkcijo, ki smo jo ustvarili z uporabo VBA .
• Če želite to storiti, izberite Celica D5 in vnesite spodnjo formulo:

V tem primeru bo funkcija pretvorila podatke iz Celica C5 v črtno kodo.

• V naslednjem koraku pritisnite Vnesite da si ogledate rezultat.

KORAK 4: Sprememba teme in velikosti pisave

• V četrtem koraku morate spremeniti temo in velikost pisave.
• V ta namen izberite Celica C5 .
• Nato pojdite v Domov in izberite zavihek Koda 128 v polju za temo pisave.
• Izberite tudi 36 v polju Velikost pisave.

KORAK 5: Spremeni velikost širine stolpca in višine vrstice

• Po spremembi teme in velikosti pisave moramo spremeniti širino stolpca in višino vrstice.
• V našem primeru smo nastavili širino Stolpec D na . 30 in Višina vrstice na . 50 .

KORAK 6: Uporabite ročaj za zapolnitev za kopiranje formule

• V naslednjem koraku izberite Celica D5 in povlecite Ročaj za polnjenje do preostalih celic.

Končni rezultat

• Na koncu spremenite Višina vrstice na spletnem mestu Vrstica 6 , 7 , 8 in 9 na . 50 .
• Po opravljenih korakih boste videli rezultate, kot so prikazani na spodnji sliki.

Preberite več: Kako uporabiti pisavo za črtno kodo Code 39 za Excel (z enostavnimi koraki)

Zaključek

V tem članku smo po korakih prikazali postopke za ustvarjanje Pisava črtne kode Code 128 za Excel . Upam, da vam bo ta članek pomagal ustvarjanje črtnih kod Poleg tega lahko za vadbo uporabite delovni zvezek. V ta namen prenesite delovni zvezek. Delovni zvezek smo dodali na začetku članka. Prav tako lahko obiščete ExcelWIKI spletni strani za več takšnih člankov. Če imate kakršne koli predloge ali vprašanja, jih lahko vprašate v spodnjem razdelku za komentarje.