Ebben a cikkben megtanuljuk, hogyan generáljunk kód 128 vonalkód betűtípus Excelhez Van néhány módszer a 128-as kódú vonalkód betűtípus használatára az Excelben, de a legtöbbet kihívást jelent az alkalmazás, és nem működik az Excel minden verzióján. Ma bemutatunk egy módszert a 128-as kódú vonalkód betűtípus létrehozására egyszerű lépésekkel az Excelben. A cikk elolvasása után nagyon könnyen képes lesz a 128-as kódú vonalkód betűtípus használatára. Tehát késedelem nélkül kezdjük most a megbeszélést.

Gyakorlókönyv letöltése

A gyakorlókönyvet innen töltheti le.

Mi az a Code 128 vonalkód betűtípus?

128-as kód egy modern és híres vonalkód betűtípus, amelynek népszerűsége napról napra növekszik, mivel ez egy nagy sűrűségű vonalkód betűtípus, amely támogatja az alfanumerikus karaktereket.

A 128-as kód általában hét szakaszból áll, ezek a következők:

• Csendes zóna
• Start szimbólum
• Kódolt adatok
• Ellenőrizze a szimbólumot
• Stop szimbólum
• Végső bár
• Csendes zóna

A 128-as kód vonalkód betűtípus rendelkezik 3 Az alábbiakban röviden ismertetjük őket:

• 128A kód : Támogatja ASCII kisbetűk nélkül.
• 128B kód : Támogatja ASCII a kezdeti speciális karakterek nélkül.
• 128C kód : Ez a részhalmaz támogatja Numerikus értékek .

Lépésről-lépésre eljárások generálására Code 128 vonalkód Font for Excel

A lépések magyarázatához egy olyan adathalmazt fogunk használni, amely információkat tartalmaz bizonyos termékek és a adatok A módszer segítségével megpróbálunk vonalkódokat generálni a következővel 128-as kód betűtípus az egyes termékek adataihoz.

LÉPÉS 1: Letöltés Code 128 Font

• Először is, le kell töltenie 128-as kód Megteheti töltse le a betűtípust erről a linkről .
• Utána, kivonat a letöltött mappát a C:\Windows\Fonts mappa.
• Ellenkező esetben csomagolja ki a letöltött mappát, másolja a 128-as kód betűtípust, és illessze be a C:\Windows\Fonts mappa.
• Válassza ki a Folytatás ha megjelenik a rendszergazdai engedélyek ablak.

2. LÉPÉS: VBA kód alkalmazása

• Másodszor, menjen a Fejlesztő lapot a szalagban, és válassza a Visual Basic .
• Ennek eredményeképpen megnyitja a Visual Basic ablak.

• Ezután válassza a Beillesztés majd Modul a Visual Basic ablak.
• Ebben a pillanatban a Modul ablak jelenik meg.

• Most pedig be kell írnunk egy kódot a Modul ablak.
• Alulról kimásolhatod és beillesztheted a Modul ablak:

 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 "Érvénytelen karakter a vonalkód karakterláncban" & vbCrLf & vbCrLf & vbCrLf & "Kérjük, csak szabványos ASCII karaktereket használjon", 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 CheckSum& = dummy% CheckSum& = (CheckSum& +(számláló - 1) * dummy%) Mod 103 Következő 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 számláló + mini% = 0 If Asc(Mid(SourceString, számláló +mini%, 1)) 57 Then Exit Do mini% = mini% - 1 Loop End If Return End Function 

VBA kód magyarázat:

Ebben a kódban egy olyan függvényt hozunk létre, amely egy karakterláncot vonalkódokká alakít át. Itt a 128-as kód betűtípus.

• A bemeneti paraméter egy karakterlánc.
• A kimeneten egy vonalkódot kapunk a 128-as kód betűtípus, ha a karakterlánc érvényes.
• Ellenkező esetben egy üres karakterláncot jelenít meg.

 Public Function Code128(SourceString As String) 

Ez a rész a függvény nevét jelöli, és ez a következő Code128() A karakterláncot a zárójelek közé kell beillesztenie.

 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 

Ezek azok a változók, amelyeket a kódban használni fogunk.

 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 & vbCrLf & "Please only use standard ASCII characters", vbCritical Code128 = "" Exit Function End Select Next 

Ebben a szakaszban a kód ellenőrzi az érvényes karaktereket. Ha nem talál érvényes karaktert, akkor megkéri a felhasználót, hogy használja a szabványos ASCII karakterek.

 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 

Itt ez a rész kiszámítja az értékét a CheckSum változó.

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

Ebben a részben a kód kiszámítja a CheckSum ASCII kód. Miután hozzáadtuk a ASCII kódot, a következő részre lép.

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

Az utolsó részben a kód ellenőrzi a numerikus értékeket a megadott karakterláncon belül.

Ez a VBA kódot találtak a myonlinetraininghub.com .

• A kód beírása után nyomja meg a Ctrl + S hogy megmentse.
• A következő lépésben zárja be a Visual Basic ablak.

3. LÉPÉS: Code 128 funkció használata

• Harmadszor, használnunk kell a függvényt, amit a VBA .
• Ehhez válassza a D5 cella és írja be az alábbi képletet:

Itt a függvény átalakítja a C5 sejt vonalkóddá.

• A következő lépésben nyomja meg a Írja be a címet. hogy lássa az eredményt.

4. LÉPÉS: A betűtípus témájának és méretének módosítása

• A negyedik lépésben meg kell változtatnia a betűtípus témáját és méretét.
• Ehhez válassza ki a C5 sejt .
• Ezután menjen a Home lapot, és válassza a 128-as kód a betűtípus téma mezőben.
• Válassza ki a 36 a betűméret mezőben.

5. LÉPÉS: Az oszlopszélesség és a sormagasság átméretezése

• A betűtípus témájának és méretének megváltoztatása után át kell állítanunk az oszlopszélességet és a sormagasságot.
• A mi esetünkben a szélességet úgy állítottuk be, hogy a D oszlop a címre. 30 és a Sor magassága a címre. 50 .

6. LÉPÉS: A kitöltési fogantyú használata a képlet másolásához

• A következő lépésben válassza ki a D5 cella és húzza a Töltse ki a fogantyút a többi sejtre is.

Végső kimenet

• Végül változtassa meg a Sor magassága a 6. sor , 7 , 8 , és 9 a címre. 50 .
• Miután befejezte az összes lépést, az alábbi képhez hasonló eredményeket fog látni.

További információ: Hogyan használjuk a Code 39 vonalkódfontot az Excel számára (egyszerű lépésekkel)?

Következtetés

Ebben a cikkben lépésről-lépésre bemutattuk, hogyan generálhatunk Code 128 vonalkód betűtípus az Excel számára . Remélem, ez a cikk segít neked abban, hogy vonalkódok létrehozása Sőt, a munkafüzetet is használhatja a gyakorláshoz. Ehhez töltse le a munkafüzetet. A munkafüzetet a cikk elején tettük hozzá. Továbbá, meglátogathatja a következő honlapot is az ExcelWIKI weboldalon további ilyen cikkekért. Végül, ha bármilyen javaslata vagy kérdése van, kérdezzen bátran az alábbi megjegyzés rovatban.