W tym artykule nauczymy się generować Code 128 barcode font for Excel . Istnieje kilka metod korzystania z czcionki kodu 128 kodu kreskowego w programie Excel, ale większość z nich jest trudna do zastosowania i nie działa na wszystkich wersjach programu Excel. Dzisiaj zademonstrujemy metodę generowania czcionki kodu 128 kodu kreskowego za pomocą prostych kroków w programie Excel. Po przeczytaniu artykułu będziesz mógł bardzo łatwo korzystać z czcionki kodu 128 kodu kreskowego. Tak więc, bez żadnych opóźnień, zacznijmy dyskusję teraz.

Pobierz Zeszyt ćwiczeń

Zeszyt ćwiczeń można pobrać stąd.

Co to jest Code 128 Barcode Font?

Kod 128 Jest to nowoczesna i znana czcionka kodów kreskowych, której popularność rośnie z dnia na dzień, ponieważ jest to czcionka kodów kreskowych o dużej gęstości, która obsługuje znaki alfanumeryczne.

Generalnie kod 128 składa się z siedmiu sekcji, są to:

• Strefa Cicha
• Symbol początkowy
• Dane zakodowane
• Symbol kontrolny
• Stop Symbol
• Bar końcowy
• Strefa Cicha

Na stronie kod 128 czcionka kodu kreskowego ma 3 Poniżej przedstawiono ich krótki opis:

• Kod 128A : Obsługuje. ASCII bez małych liter.
• Kod 128B : Obsługuje. ASCII bez początkowych znaków specjalnych.
• Kod 128C : Ten podzbiór obsługuje Wartości numeryczne .

Procedury krok po kroku do generowania Code 128 Barcode Font for Excel

Aby wyjaśnić kroki, posłużymy się zbiorem danych, który zawiera informacje o pewnym produkty i ich dane Za pomocą tej metody spróbujemy wygenerować kody kreskowe z Kod 128 czcionka dla danych każdego produktu.

KROK 1: Pobierz czcionkę Code 128

• Po pierwsze, musisz pobrać Kod 128 Możesz pobierz czcionkę z tego linku .
• Po tym, wyciąg pobrany folder do C:\NWindows\Fonts folder.
• W przeciwnym razie należy rozpakować pobrany folder, skopiować Kod 128 i wkleić ją do C:\NWindows\Fonts folder.
• Należy również wybrać Kontynuuj jeśli pojawi się okno uprawnień administratora.

KROK 2: Zastosuj kod VBA

• Po drugie, przejdź do Deweloper na wstążce i wybierz Visual Basic .
• W rezultacie otworzy się Visual Basic okno.

• Następnie należy wybrać Wkładka a następnie Moduł w Visual Basic okno.
• W tym momencie Moduł pojawi się okno.

• Teraz musimy wpisać kod w Moduł okno.
• Możesz skopiować go z poniższej strony i wkleić do Moduł 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 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 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 

VBA Code Explanation:

W tym kodzie stworzymy funkcję, która będzie konwertowała ciąg znaków na kody kreskowe.Tutaj użyjemy Kod 128 czcionka.

• Parametrem wejściowym jest ciąg znaków.
• Na wyjściu otrzymamy kod kreskowy w Kod 128 czcionka, jeśli łańcuch jest poprawny.
• W przeciwnym razie wyświetli pusty ciąg znaków.

 Public Function Code128(SourceString As String) 

Ta część oznacza nazwę funkcji i jest to Code128() Musisz wstawić ciąg wewnątrz nawiasów.

 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 

Są to zmienne, które będą wykorzystywane w kodzie.

 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 

W tej części kod sprawdzi, czy są prawidłowe znaki. Jeśli nie znajdzie żadnego prawidłowego znaku, to poprosi użytkownika o użycie standardowego ASCII postacie.

 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 

Tutaj ta część oblicza wartość CheckSum zmienny.

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

W tej części kod oblicza CheckSum ASCII kod. Po dodaniu ASCII kod, przechodzi do następnej części.

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

W ostatniej części kod sprawdzi, czy wewnątrz podanego ciągu znaków znajdują się wartości liczbowe.

Ten VBA kod został znaleziony z myonlinetraininghub.com .

• Po wpisaniu kodu należy nacisnąć Ctrl + S aby go uratować.
• W następnym kroku należy zamknąć Visual Basic okno.

KROK 3: Użyj funkcji Code 128

• Po trzecie, musimy użyć funkcji, którą utworzyliśmy stosując VBA .
• W tym celu należy wybrać Komórka D5 i wpisz poniższy wzór:

Tutaj funkcja będzie konwertować dane z Komórka C5 w kod kreskowy.

• W następnym kroku naciśnij Wejdź na stronę aby zobaczyć wynik.

KROK 4: Zmiana motywu i rozmiaru czcionki

• W czwartym kroku należy zmienić motyw i rozmiar czcionki.
• W tym celu należy wybrać Komórka C5 .
• Następnie przejdź do Strona główna zakładka i wybrać Kod 128 w polu tematu czcionki.
• Należy również wybrać 36 w polu rozmiaru czcionki.

KROK 5: Zmień rozmiar szerokości kolumny i wysokości wiersza

• Po zmianie motywu i rozmiaru czcionki musimy zmienić szerokość kolumny i wysokość wiersza.
• W naszym przypadku ustawiliśmy szerokość Kolumna D do 30 i Wysokość rzędu do 50 .

KROK 6: Użyj uchwytu do wypełniania, aby skopiować formułę

• W kolejnym kroku należy wybrać Komórka D5 i przeciągnąć Uchwyt do napełniania do reszty komórek.

Wyjście końcowe

• Na koniec zmień Wysokość rzędu z Wiersz 6 , 7 , 8 oraz 9 do 50 .
• Po wykonaniu wszystkich kroków zobaczysz wyniki jak na poniższym zdjęciu.

Czytaj więcej: Jak używać czcionki kodu kreskowego Code 39 dla programu Excel (z prostymi krokami)

Wniosek

W tym artykule, zademonstrowaliśmy krok po kroku procedury generowania Code 128 Barcode Font for Excel . Mam nadzieję, że ten artykuł pomoże ci tworzyć kody kreskowe Co więcej, do ćwiczeń można wykorzystać zeszyt ćwiczeń. W tym celu należy pobrać zeszyt ćwiczeń, który zamieściliśmy na początku artykułu. Ponadto można odwiedzić stronę ExcelWIKI Wreszcie, jeśli masz jakieś sugestie lub pytania, śmiało pytaj w sekcji komentarzy poniżej.