使用vba在excel中生成一个code128B条形码

可以使用VBA编写一个生成Code128B条形码的函数，然后在Excel中调用该函数来生成条形码。以下是一个示例代码：

Function GenerateCode128BBarcode(ByVal value As String) As String
    Dim barcode As String
    Dim checksum As Integer
    Dim i As Integer
    
    ' Start character
    barcode = "11010000100"
    checksum = 104
    
    ' Encode each character
    For i = 1 To Len(value)
        Dim code As Integer
        Select Case Asc(Mid(value, i, 1))
            Case 32 To 126 ' ASCII characters
                code = Asc(Mid(value, i, 1)) - 32
            Case 128 To 255 ' Extended ASCII characters
                code = Asc(Mid(value, i, 1)) - 100
            Case Else ' Invalid character
                GenerateCode128BBarcode = ""
                Exit Function
        End Select
        
        barcode = barcode & Code128BTable(code)
        checksum = checksum + code * i
    Next i
    
    ' Calculate checksum
    checksum = checksum Mod 103
    barcode = barcode & Code128BTable(checksum)
    
    ' Stop character
    barcode = barcode & "1100011101011"
    
    GenerateCode128BBarcode = barcode
End Function

Function Code128BTable(ByVal code As Integer) As String
    Dim table As String
    
    Select Case code
        Case 0 To 9
            table = "11011001100"
        Case 10 To 19
            table = "11001101100"
        Case 20 To 29
            table = "11001100110"
        Case 30 To 39
            table = "10010011000"
        Case 40 To 49
            table = "10010001100"
        Case 50 To 59
            table = "10001001100"
        Case 60 To 69
            table = "10011001000"
        Case 70 To 79
            table = "10011000100"
        Case 80 To 89
            table = "10001100100"
        Case 90 To 99
            table = "11001001000"
        Case 100 To 109
            table = "11001000100"
        Case 110 To 119
            table = "11000100100"
        Case 120 To 129
            table = "10110011100"
        Case 130 To 139
            table = "10011011100"
        Case 140 To 149
            table = "10011001110"
        Case 150 To 159
            table = "10111001100"
        Case 160 To 169
            table = "10011101100"
        Case 170 To 179
            table = "10011100110"
        Case 180 To 189
            table = "11001110010"
        Case 190 To 199
            table = "11001011100"
        Case 200 To 209
            table = "11001001110"
        Case 210 To 219
            table = "11011100100"
        Case 220 To 229
            table = "11001110100"
        Case 230 To 239
            table = "11101101110"
        Case 240 To 249
            table = "11101001100"
        Case 250 To 255
            table = "11100101100"
    End Select
    
    Code128BTable = table
End Function

要在Excel中生成条形码，只需在单元格中输入以下公式：

=GenerateCode128BBarcode("VALUE")

其中，VALUE是要编码的字符串。将VALUE替换为实际的值即可生成条形码。