Come generare un codice a barre Code 128 per Excel (con semplici passaggi)

Hugh West

16-10-2023 Nozioni di base di Excel
  • Condividi Questo
Hugh West

In questo articolo impareremo a generare font codice a barre 128 per Excel Esistono alcuni metodi per utilizzare il font del codice a barre Code 128 in Excel, ma la maggior parte di essi sono difficili da applicare e non funzionano su tutte le versioni di Excel. Oggi vi mostreremo un metodo per generare il font del codice a barre Code 128 con semplici passaggi in Excel. Dopo aver letto l'articolo, sarete in grado di utilizzare il font del codice a barre Code 128 in modo molto semplice. Quindi, senza alcun indugio, iniziamo subito la discussione.

Scarica il libro di pratica

È possibile scaricare il libro di esercizi da qui.

Codice 128 Barcode Font.xlsm

Che cos'è il codice a barre Code 128?

Codice 128 È un font per codici a barre moderno e famoso, la cui popolarità aumenta di giorno in giorno perché è un font per codici a barre ad alta densità che supporta caratteri alfanumerici.

In generale, il codice 128 è composto da sette sezioni, che sono:

  • Zona tranquilla
  • Simbolo iniziale
  • Dati codificati
  • Simbolo di controllo
  • Simbolo di arresto
  • Bar finale
  • Zona tranquilla

Il codice 128 Il font del codice a barre ha 3 I sottoinsiemi sono descritti brevemente di seguito:

  • Codice 128A Supporta ASCII senza caratteri minuscoli.
  • Codice 128B Supporta ASCII senza i caratteri speciali iniziali.
  • Codice 128C Questo sottoinsieme supporta Valori numerici .

Procedure passo-passo per generare il codice a barre Code 128 in Excel

Per spiegare i passaggi, utilizzeremo un set di dati che contiene informazioni su alcuni prodotti e le loro dati Utilizzando il metodo, cercheremo di generare codici a barre con Codice 128 per i dati di ciascun prodotto.

FASE 1: Scaricare il font Code 128

  • Prima di tutto, è necessario scaricare Codice 128 È possibile scaricare il font da questo link .
  • Dopo di che, estratto la cartella scaricata nella cartella C:\Windows\Fonts cartella.
  • Altrimenti, decomprimere la cartella scaricata, copiare il file Codice 128 e incollarlo nella cartella C:\Windows\Fonts cartella.
  • Inoltre, selezionare Continua se appare la finestra dei permessi di amministratore.

FASE 2: Applicazione del codice VBA

  • In secondo luogo, andare alla pagina Sviluppatore nella barra multifunzione e selezionare Visual Basic .
  • Di conseguenza, si aprirà la finestra Visual Basic finestra.

  • Successivamente, selezionare Inserire e poi Modulo nel Visual Basic finestra.
  • In questo momento, il Modulo apparirà la finestra di dialogo.

  • Ora è necessario digitare un codice nel campo Modulo finestra.
  • È possibile copiare il testo qui sotto e incollarlo nel file Modulo finestra: 
 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

Spiegazione del codice VBA:

In questo codice, creeremo una funzione che convertirà una stringa in codici a barre. Qui, utilizzeremo la funzione Codice 128 font.

  • Il parametro di ingresso è una stringa.
  • Nell'output, si otterrà un codice a barre nel campo Codice 128 se la stringa è valida.
  • Altrimenti, verrà visualizzata una stringa vuota. 
 Funzione pubblica Code128(SourceString As String)

Questa parte indica il nome della funzione ed è Codice128() È necessario inserire la stringa all'interno delle parentesi. 

 Dim Counter come intero Dim CheckSum come lungo Dim mini come intero Dim dummy come intero Dim UseTableB come booleano Dim Code128_Barcode come stringa

Queste sono le variabili che verranno utilizzate nel codice. 

 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

In questa sezione, il codice controlla la presenza di caratteri validi e, se non ne trova alcuno, chiede all'utente di utilizzare il carattere standard ASCII personaggi. 

 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

Questa parte calcola il valore del parametro CheckSum variabile. 

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

In questa parte, il codice calcola il valore CheckSum ASCII Dopo aver aggiunto il codice ASCII passa alla parte successiva. 

 mini% = mini% - 1 Se Contatore + mini% = 0 Se Asc(Mid(SourceString, Contatore + mini%, 1)) 57 Allora Exit Do mini% = mini% - 1 Loop Fine Se

Nell'ultima parte, il codice controlla i valori numerici all'interno della stringa data.

Questo VBA è stato trovato da myonlinetraininghub.com .

  • Dopo aver digitato il codice, premere Ctrl + S per salvarlo.
  • Nel passaggio successivo, chiudere la finestra Visual Basic finestra.

FASE 3: Utilizzare la funzione Codice 128

  • In terzo luogo, è necessario utilizzare la funzione creata applicando il metodo VBA .
  • Per farlo, selezionare Cella D5 e digitare la formula sottostante:
=Codice128(C5)

In questo caso, la funzione convertirà i dati di Cellula C5 in un codice a barre.

  • Nel passaggio successivo, premere Entrare per vedere il risultato.

FASE 4: Modifica del tema e delle dimensioni dei caratteri

  • Nel quarto passo, è necessario modificare il tema e la dimensione dei caratteri.
  • A tal fine, selezionare Cellula C5 .
  • Quindi, andare alla sezione Casa e selezionare Codice 128 nella casella del tema del carattere.
  • Inoltre, selezionare 36 nella casella della dimensione del carattere.

FASE 5: Ridimensionare la larghezza delle colonne e l'altezza delle righe

  • Dopo aver modificato il tema e la dimensione del carattere, dobbiamo ridimensionare la larghezza della colonna e l'altezza della riga.
  • Nel nostro caso, abbiamo impostato la larghezza di Colonna D a 30 e il Altezza della fila a 50 .

FASE 6: Utilizzare la maniglia di riempimento per copiare la formula

  • Nel passaggio successivo, selezionare Cella D5 e trascinare l'elemento Maniglia di riempimento al resto delle cellule.

Risultato finale

  • Infine, modificare il parametro Altezza della fila di Fila 6 , 7 , 8 , e 9 a 50 .
  • Dopo aver completato tutti i passaggi, si vedranno risultati come l'immagine qui sotto.

Per saperne di più: Come utilizzare il carattere codice a barre Code 39 per Excel (con semplici passaggi)

Conclusione

In questo articolo sono state illustrate le procedure passo-passo per la generazione di Codice 128 Barcode Font per Excel Spero che questo articolo vi aiuti a creare codici a barre Inoltre, per esercitarsi è possibile utilizzare la cartella di lavoro, che abbiamo aggiunto all'inizio dell'articolo. Inoltre, è possibile visitare il sito web di l'ExcelWIKI Infine, se avete suggerimenti o domande, non esitate a chiedere nella sezione commenti qui sotto.

Messaggio precedente Come aggiornare automaticamente una tabella pivot quando i dati di origine vengono modificati
Prossimo post Come calcolare la varianza utilizzando la tabella pivot in Excel (con semplici passaggi)

Hugh West è un istruttore e analista di Excel di grande esperienza con oltre 10 anni di esperienza nel settore. Ha conseguito una laurea in Contabilità e Finanza e un Master in Economia Aziendale. Hugh ha una passione per l'insegnamento e ha sviluppato un approccio didattico unico che è facile da seguire e capire. La sua conoscenza approfondita di Excel ha aiutato migliaia di studenti e professionisti in tutto il mondo a migliorare le proprie competenze ed eccellere nella propria carriera. Attraverso il suo blog, Hugh condivide le sue conoscenze con il mondo, offrendo esercitazioni gratuite su Excel e formazione online per aiutare le persone e le aziende a raggiungere il loro pieno potenziale.