- 帖子
- 19
- 主題
- 4
- 精華
- 0
- 積分
- 67
- 點名
- 127
- 作業系統
- win7
- 軟體版本
- excel
- 閱讀權限
- 20
- 註冊時間
- 2016-8-24
- 最後登錄
- 2026-11-2
|
看起來自已下載 Barcode 字型應該比較有效 (附件有下載的字型 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 |
|
發表於 2024-9-17 09:21
| 
