Selles artiklis õpime genereerima kood 128 vöötkoodi font Exceli jaoks On olemas mõned meetodid koodi 128 vöötkoodifondi kasutamiseks Excelis, kuid enamik neist on keeruline rakendada ja ei tööta kõigis Exceli versioonides. Täna näitame meetodit koodi 128 vöötkoodifondi loomiseks lihtsate sammudega Excelis. Pärast artikli lugemist saate koodi 128 vöötkoodifondi väga lihtsalt kasutada. Niisiis, ilma viivitusteta, alustame nüüd arutelu.

Lae alla praktikaraamat

Praktikaraamatu saate alla laadida siit.

Mis on Code 128 vöötkoodifont?

Kood 128 on kaasaegne ja kuulus vöötkoodifont. Selle populaarsus kasvab päevast päeva, sest see on suure tihedusega vöötkoodifont, mis toetab tähtnumbrilisi sümboleid.

Üldiselt koosneb kood 128 seitsmest osast. Need on järgmised:

• Vaikne tsoon
• Start sümbol
• Kodeeritud andmed
• Kontrolli sümbol
• Stopp sümbol
• Lõplik baar
• Vaikne tsoon

The kood 128 vöötkoodi font on 3 Neid kirjeldatakse lühidalt allpool:

• Kood 128A : See toetab ASCII ilma väiketähtedeta.
• Kood 128B : See toetab ASCII ilma algsete erimärkideta.
• Kood 128C : See alamhulk toetab Numbrilised väärtused .

Samm-sammult protseduurid kood 128 vöötkoodifondi genereerimiseks Exceli jaoks

Sammude selgitamiseks kasutame andmestikku, mis sisaldab teavet mõne tooted ja nende andmed Kasutades meetodit, püüame luua vöötkoode, mille puhul on Kood 128 iga toote andmete kirjatüüp.

STEP 1: Laadige alla kood 128 font

• Kõigepealt tuleb alla laadida Kood 128 Saate lae font alla sellelt lingilt .
• Pärast seda, väljavõte allalaaditud kausta C:\Windows\Fonts kaust.
• Vastasel juhul paki allalaaditud kaust lahti, kopeeri faili Kood 128 font ja kleepige see C:\Windows\Fontid kaust.
• Samuti valige Jätka kui ilmub administraatori õiguste aken.

2. samm: VBA-koodi rakendamine

• Teiseks, minge Arendaja ribalint ja valige Visual Basic .
• Selle tulemusena avab see Visual Basic aken.

• Pärast seda valige Sisesta ja siis Moodul aastal Visual Basic aken.
• Sel hetkel on Moodul ilmub aken.

• Nüüd peame kirjutama koodi sisse Moodul aken.
• Võite kopeerida selle altpoolt ja kleepida see sisse Moodul aken:

 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 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 Järgmine 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 

VBA koodi selgitus:

Selles koodis loome funktsiooni, mis teisendab stringi vöötkoodideks. Siin kasutame funktsiooni Kood 128 font.

• Sisendparameetriks on string.
• Väljundis saame vöötkoodi sisse Kood 128 font, kui string on kehtiv.
• Vastasel juhul kuvatakse tühi string.

 Public Function Code128(SourceString As String) 

See osa tähistab funktsiooni nime ja see on Code128() Te peate sisestama stringi sulgudes.

 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 

Need on muutujad, mida kasutatakse koodis.

 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 

Selles osas kontrollib kood kehtivate tähemärkide olemasolu. Kui ta ei leia ühtegi kehtivat märki, siis palub ta kasutajal kasutada standardset ASCII tegelased.

 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 

Siinkohal arvutab see osa väärtuse CheckSum muutuv.

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

Selles osas arvutab kood CheckSum ASCII Pärast koodi lisamist ASCII kood, liigub see järgmisse ossa.

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

Viimases osas kontrollib kood numbrilisi väärtusi antud stringi sees.

See VBA kood leiti alates myonlinetraininghub.com .

• Pärast koodi sisestamist vajutage Ctrl + S selle päästmiseks.
• Järgmises etapis sulgege Visual Basic aken.

STEP 3: Kasutage kood 128 funktsiooni

• Kolmandaks, me peame kasutama funktsiooni, mille me lõime rakendades VBA .
• Selleks valige Lahter D5 ja sisestage alltoodud valem:

Siinkohal teisendab funktsioon andmed Raku C5 vöötkoodiks.

• Järgmises etapis vajutage Sisesta et näha tulemust.

4. samm: Muuda kirjatüübi teemat ja suurust

• Neljandas etapis peate muutma kirjatüübi teemat ja suurust.
• Selleks valige Raku C5 .
• Seejärel minge Kodu vahekaart ja valige Kood 128 fontide teema kastis.
• Samuti valige 36 kirjasuuruse kastis.

STEP 5: Veergude laiuse ja ridade kõrguse muutmine

• Pärast kirjatüübi teema ja suuruse muutmist peame muutma veergude laiuse ja ridade kõrguse suurust.
• Meie puhul oleme määranud laiuse Veerg D aadressile 30 ja Rea kõrgus aadressile 50 .

STEP 6: Kasutage valemi kopeerimiseks täitekäepidet

• Järgmises etapis valige Lahter D5 ja lohistage Täitmise käepide alla ülejäänud rakkudesse.

Lõplik väljund

• Lõpuks muutke Rea kõrgus aadressilt Rida 6 , 7 , 8 ja 9 aadressile 50 .
• Pärast kõigi sammude lõpetamist näete tulemusi nagu alloleval pildil.

Loe edasi: Kuidas kasutada koodi 39 vöötkoodifonti Exceli jaoks (lihtsate sammudega)

Kokkuvõte

Selles artiklis oleme näidanud samm-sammult protseduurid, et genereerida Kood 128 vöötkoodifont Exceli jaoks . ma loodan, et see artikkel aitab teil luua vöötkoodid lihtsalt. Lisaks saate harjutamiseks kasutada töövihikut. Selleks laadige töövihik alla. Oleme lisanud töövihiku artikli algusesse. Samuti võite külastada veebilehte ExcelWIKI veebilehel rohkem artikleid nagu see. Viimaks, kui teil on mingeid ettepanekuid või küsimusi, küsige julgelt allpool olevas kommentaariumis.