xyz66217

¬Ý°_¨Ó¦Û¤w¤U¸ü Barcode ¦r«¬À³¸Ó¤ñ¸û¦³®Ä (ªþ¥ó¦³¤U¸üªº¦r«¬ Libre Barcode 128)

Sub Create_BarCode()
Dim K As Long, I As Long

K = ActiveSheet.Range("C65536").End(xlUp).Row
For I = 2 To K
    Cells(I, 2) = Cells(I, 3)
    Range("B" & I).Select
    With Selection.Font
        .Name = "Libre Barcode 128 Text"
        .Size = 62
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
Next I
End Sub

xyz66217

¦^´_ 7# 198188

¨Ñ°Ñ¦Ò :)
https://moon-half.info/p/1863