Jak generovat písmo čárového kódu Code 128 pro aplikaci Excel (ve snadných krocích)

  • Sdílet Toto
Hugh West

V tomto článku se naučíme generovat písmo čárového kódu code 128 pro Excel . Existuje několik metod, jak v Excelu použít písmo čárového kódu Code 128, ale většina z nich je náročná na použití a nefunguje ve všech verzích Excelu. Dnes si ukážeme metodu, jak v Excelu jednoduchými kroky vygenerovat písmo čárového kódu Code 128. Po přečtení článku budete moci velmi snadno používat písmo čárového kódu Code 128. Proto se bez zbytečného zdržování pusťme do diskuze.

Stáhněte si knihu Practice Book

Cvičebnici si můžete stáhnout zde.

Písmo čárového kódu Code 128.xlsm

Co je písmo čárového kódu Code 128?

Kód 128 je moderní a známé písmo čárového kódu. Jeho popularita roste každým dnem, protože se jedná o písmo čárového kódu s vysokou hustotou a podporou alfanumerických znaků.

Obecně se kód 128 skládá ze sedmi částí. Jsou to:

  • Tichá zóna
  • Počáteční symbol
  • Kódovaná data
  • Kontrolní symbol
  • Symbol zastávky
  • Závěrečná lišta
  • Tichá zóna

Na stránkách kód 128 písmo čárového kódu má 3 Níže jsou stručně popsány:

  • Kód 128A : Podporuje ASCII bez malých písmen.
  • Kód 128B : Podporuje ASCII bez počátečních speciálních znaků.
  • Kód 128C : Tato podmnožina podporuje Číselné hodnoty .

Postupy krok za krokem pro generování písma čárového kódu Code 128 pro aplikaci Excel

Pro vysvětlení jednotlivých kroků použijeme datový soubor, který obsahuje informace o některých produkty a jejich data Pomocí této metody se pokusíme generovat čárové kódy s Kód 128 písmo pro údaje o každém produktu.

KROK 1: Stažení písma Code 128

  • Nejprve je třeba stáhnout Kód 128 Můžete stáhnout písmo z tohoto odkazu .
  • Poté, výpis staženou složku do C:\Windows\Fonts složka.
  • V opačném případě rozbalte staženou složku, zkopírujte do ní Kód 128 a vložte jej do C:\Windows\Fonts složka.
  • Vyberte také Pokračovat pokud se zobrazí okno oprávnění správce.

KROK 2: Použití kódu VBA

  • Za druhé, přejděte na Vývojář na pásu karet a vyberte možnost Visual Basic .
  • V důsledku toho se otevře Visual Basic okno.

  • Poté vyberte Vložte a pak Modul v Visual Basic okno.
  • V tomto okamžiku se Modul zobrazí se okno.

  • Nyní musíme zadat kód do pole Modul okno.
  • Můžete ji zkopírovat a vložit do pole. 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& +(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 Then Exit Do mini% = mini% - 1 Loop End If Return End Function 

Vysvětlení kódu VBA:

V tomto kódu vytvoříme funkci, která převede řetězec na čárový kód. Zde použijeme příkaz Kód 128 písmo.

  • Vstupním parametrem je řetězec.
  • Na výstupu získáme čárový kód ve tvaru Kód 128 písmo, pokud je řetězec platný.
  • V opačném případě se zobrazí prázdný řetězec.
 Veřejná funkce Code128(SourceString As String) 

Tato část označuje název funkce a je to Code128() . Řetězec je třeba vložit do závorek.

 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 

Jedná se o proměnné, které budou použity v kódu.

 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 této části kód zkontroluje, zda jsou k dispozici platné znaky. Pokud nenajde žádný platný znak, požádá uživatele, aby použil standardní ASCII postavy.

 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 

Zde tato část vypočítá hodnotu CheckSum variabilní.

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

V této části kód vypočítá CheckSum ASCII kód. Po přidání ASCII kódu, přejde na další část.

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

V poslední části kód zkontroluje, zda jsou uvnitř zadaného řetězce číselné hodnoty.

Tento VBA kód byl nalezen z myonlinetraininghub.com .

  • Po zadání kódu stiskněte tlačítko Ctrl + S zachránit.
  • V následujícím kroku zavřete Visual Basic okno.

KROK 3: Použití funkce Code 128

  • Zatřetí musíme použít funkci, kterou jsme vytvořili použitím příkazu VBA .
  • Chcete-li to provést, vyberte Buňka D5 a zadejte následující vzorec:
=Kód128(C5)

Zde funkce převede data Buňka C5 do čárového kódu.

  • V následujícím kroku stiskněte Vstupte na abyste viděli výsledek.

KROK 4: Změna motivu a velikosti písma

  • Ve čtvrtém kroku je třeba změnit motiv a velikost písma.
  • Za tímto účelem vyberte Buňka C5 .
  • Pak přejděte do Home a vyberte možnost Kód 128 v poli motivu písma.
  • Vyberte také 36 v poli Velikost písma.

KROK 5: Změna velikosti šířky sloupce a výšky řádku

  • Po změně motivu a velikosti písma je třeba změnit šířku sloupce a výšku řádku.
  • V našem případě jsme nastavili šířku Sloupec D na 30 a Výška řádku na 50 .

KROK 6: Použijte rukojeť výplně ke kopírování vzorce

  • V následujícím kroku vyberte Buňka D5 a přetáhněte Plnicí rukojeť do ostatních buněk.

Konečný výstup

  • Nakonec změňte Výška řádku z Řada 6 , 7 , 8 a 9 na 50 .
  • Po dokončení všech kroků uvidíte výsledky jako na obrázku níže.

Další informace: Jak používat písmo čárového kódu Code 39 pro aplikaci Excel (ve snadných krocích)

Závěr

V tomto článku jsme ukázali postup krok za krokem pro generování Písmo čárového kódu Code 128 pro Excel . Doufám, že vám tento článek pomůže vytvářet čárové kódy Kromě toho můžete k procvičování použít pracovní sešit. Za tímto účelem si stáhněte pracovní sešit. Pracovní sešit jsme přidali na začátek článku. Také můžete navštívit stránku ExcelWIKI webu další podobné články. A na závěr, pokud máte nějaké návrhy nebo dotazy, neváhejte se zeptat v níže uvedeném komentáři.

Hugh West je velmi zkušený školitel a analytik Excelu s více než 10 lety zkušeností v oboru. Má bakalářský titul v oboru Účetnictví a finance a magisterský titul v oboru Business Administration. Hugh má vášeň pro výuku a vyvinul jedinečný přístup k výuce, který lze snadno sledovat a pochopit. Jeho odborné znalosti Excelu pomohly tisícům studentů a profesionálů po celém světě zlepšit své dovednosti a vyniknout ve své kariéře. Prostřednictvím svého blogu Hugh sdílí své znalosti se světem a nabízí bezplatné výukové programy Excelu a online školení, které jednotlivcům a firmám pomohou dosáhnout jejich plného potenciálu.