Tässä artikkelissa opimme tuottamaan koodi 128 viivakoodifontti Excelille On olemassa joitakin menetelmiä koodin 128 viivakoodifontin käyttämiseksi Excelissä, mutta useimmat niistä ovat haastavia soveltaa eivätkä toimi kaikissa Excel-versioissa. Tänään esittelemme menetelmän koodin 128 viivakoodifontin luomiseen Excelissä helpoin askelin. Kun olet lukenut artikkelin, voit käyttää koodin 128 viivakoodifonttia hyvin helposti. Joten, ilman viivytyksiä, aloitetaan keskustelu nyt.

Lataa harjoituskirja

Voit ladata harjoituskirjan täältä.

Mikä on Code 128 viivakoodifontti?

Koodi 128 on nykyaikainen ja kuuluisa viivakoodifontti, jonka suosio kasvaa päivä päivältä, koska se on erittäin tiheä viivakoodifontti, joka tukee aakkosnumeerisia merkkejä.

Yleisesti ottaen koodi 128 koostuu seitsemästä osasta, jotka ovat seuraavat:

• Hiljainen alue
• Aloitussymboli
• Koodatut tiedot
• Tarkista symboli
• Pysäytyssymboli
• Lopullinen palkki
• Hiljainen alue

The koodi 128 viivakoodifontti on 3 Ne kuvataan lyhyesti jäljempänä:

• Koodi 128A : Se tukee ASCII ilman pieniä kirjaimia.
• Koodi 128B : Se tukee ASCII ilman alkuperäisiä erikoismerkkejä.
• Koodi 128C : Tämä osajoukko tukee Numeeriset arvot .

Vaiheittaiset menettelyt tuottaa Code 128 viivakoodin fontti Excelille

Vaiheiden selittämiseksi käytämme tietokokonaisuutta, joka sisältää tietoja joistakin tuotteet ja niiden tiedot Menetelmän avulla yritämme luoda viivakoodeja, joissa on seuraavat ominaisuudet Koodi 128 fontti kunkin tuotteen tietoja varten.

VAIHE 1: Lataa koodi 128 fontti

• Ensinnäkin sinun on ladattava Koodi 128 Voit lataa fontti tästä linkistä .
• Sen jälkeen, ote ladattu kansio C:\Windows\Fonts kansio.
• Muussa tapauksessa purkaa ladattu kansio, kopioi tiedosto Koodi 128 fontti ja liitä se C:\Windows\Fonts kansio.
• Valitse myös Jatka jos järjestelmänvalvojan oikeudet -ikkuna tulee näkyviin.

VAIHE 2: Sovella VBA-koodia

• Toiseksi, mene osoitteeseen Kehittäjä välilehti nauhassa ja valitse Visual Basic .
• Tämän seurauksena se avaa Visual Basic ikkuna.

• Valitse sen jälkeen Lisää ja sitten Moduuli vuonna Visual Basic ikkuna.
• Tällä hetkellä Moduuli ikkuna tulee näkyviin.

• Nyt meidän täytyy kirjoittaa koodi kenttään Moduuli ikkuna.
• Voit kopioida sen alta ja liittää sen kenttään Moduuli ikkuna:

 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 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 Tarkistussumma& = dummy% Tarkistussumma& = (tarkistussumma& +(Laskuri - 1) * dummy%) Mod 103 Seuraava 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 Laskuri + mini-% = 0 If Asc(Mid(Lähdeteksti, Laskuri +mini%, 1)) 57 Then Exit Do mini% = mini% - 1 Loop End If Return End Function 

VBA-koodin selitys:

Tässä koodissa luomme funktion, joka muuntaa merkkijonon viivakoodeiksi. Tässä käytämme funktiota Koodi 128 fontti.

• Syöttöparametri on merkkijono.
• Tulosteessa saamme viivakoodin kenttään Koodi 128 fontti, jos merkkijono on kelvollinen.
• Muussa tapauksessa se näyttää tyhjän merkkijonon.

 Public Function Code128(SourceString As String) 

Tämä osa tarkoittaa funktion nimeä, ja se on muotoa Code128() Sinun on lisättävä merkkijono sulkujen sisään.

 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 

Näitä muuttujia käytetään koodissa.

 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 "Virheellinen merkki viivakoodin merkkijonossa" & vbCrLf & vbCrLf & vbCrLf & "Käytä vain tavallisia ASCII-merkkejä", vbCritical Koodi128 = "" Exit Function End Select Next 

Tässä osassa koodi tarkistaa, onko kelvollisia merkkejä. Jos se ei löydä kelvollista merkkiä, se pyytää käyttäjää käyttämään tavallista merkkiä. ASCII hahmot.

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

Tässä osassa lasketaan arvoa CheckSum muuttuja.

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

Tässä osassa koodi laskee CheckSum ASCII koodin lisäämisen jälkeen. ASCII koodi, se siirtyy seuraavaan osaan.

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

Viimeisessä osassa koodi tarkastaa, onko annetussa merkkijonossa numeerisia arvoja.

Tämä VBA koodi löydettiin myonlinetraininghub.com .

• Kun olet kirjoittanut koodin, paina Ctrl + S pelastaakseen sen.
• Sulje seuraavassa vaiheessa Visual Basic ikkuna.

VAIHE 3: Code 128 -toiminnon käyttö

• Kolmanneksi meidän on käytettävä funktiota, jonka loimme soveltamalla funktiota VBA .
• Valitse tätä varten Solu D5 ja kirjoita alla oleva kaava:

Tässä funktio muuntaa datan Solu C5 viivakoodiksi.

• Paina seuraavassa vaiheessa Kirjoita nähdäksesi tuloksen.

VAIHE 4: Vaihda fontin teema ja koko

• Neljännessä vaiheessa sinun on vaihdettava fontin teema ja koko.
• Valitse tätä tarkoitusta varten Solu C5 .
• Siirry sitten Etusivu välilehti ja valitse Koodi 128 fontin teemaruutuun.
• Valitse myös 36 fontin koko -ruutuun.

VAIHE 5: Muuta sarakkeen leveyden ja rivin korkeuden kokoa.

• Fontin teeman ja koon muuttamisen jälkeen meidän on muutettava sarakkeen leveyttä ja rivin korkeutta.
• Meidän tapauksessamme olemme asettaneet leveyden muotoon Sarake D osoitteeseen 30 ja Rivin korkeus osoitteeseen 50 .

VAIHE 6: Käytä täyttökahvaa kaavan kopioimiseen

• Valitse seuraavassa vaiheessa Solu D5 ja vedä Täyttökahva muihin soluihin.

Lopullinen tuotos

• Vaihda lopuksi Rivin korkeus of Rivi 6 , 7 , 8 ja 9 osoitteeseen 50 .
• Kun olet suorittanut kaikki vaiheet, näet alla olevan kuvan mukaiset tulokset.

Lue lisää: Kuinka käyttää Code 39 -viivakoodifonttia Exceliin (helpoilla ohjeilla)?

Päätelmä

Tässä artikkelissa olemme esitelleet askel askeleelta menettelyt, joilla luodaan Koodi 128 viivakoodifontti Excelille . Toivon, että tämä artikkeli auttaa sinua luoda viivakoodeja Lisäksi voit harjoitella työkirjan avulla. Lataa sitä varten työkirja. Olemme lisänneet työkirjan artikkelin alkuun. Voit myös käydä osoitteessa ExcelWIKI Jos sinulla on ehdotuksia tai kysymyksiä, voit kysyä niitä alla olevassa kommenttiosassa.