ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨D±Ï¡G爲¦óµLªk´¡¤JQR Code ¹Ï¤ù

[µo°Ý] ¨D±Ï¡G爲¦óµLªk´¡¤JQR Code ¹Ï¤ù

BarCode Error.jpg
2024-9-13 12:58


¤§«e¬O¥Î google api ¨Ó°µQR code, ¦ý¬O¥Ñ©ó¤¤°ê¦a°Ï¤£¯à¥´¶}Google, ©Ò¥H¨Ï¥Î Microsoft  Barcode control 16.0 ¨Ó°µQR code.
¦ý¬O¥Î´X¦¸´N¥X²{µLªk´¡¤JQR code ¹Ï¤ù¡C½Ð°Ý¬O¤°麽°ÝÃD¾É­P¡H

barcode1.rar (34.33 KB)

¤§«e¬O¥Î google api ¨Ó°µQR code, ¦ý¬O¥Ñ©ó¤¤°ê¦a°Ï¤£¯à¥´¶}Google, ©Ò¥H¨Ï¥Î Microsoft  Barcode con ...
198188 µoªí©ó 2024-9-13 13:02

¨º­Óºô§}¦n¹³¤£¯à¥Î¤F,
§A¥i¥H¦Ò¼{´«¤@­Óºô§},
½Ð°Ñ¦Ò³o¤@½g :
EXCEL QRcode or ±ø½X
©³¤Uªº 7#

TOP

¨º­Óºô§}¦n¹³¤£¯à¥Î¤F,
§A¥i¥H¦Ò¼{´«¤@­Óºô§},
½Ð°Ñ¦Ò³o¤@½g :

©³¤Uªº 7#
luhpro µoªí©ó 2024-9-15 22:27


¸Õ¹L«Ü¦h¦a§}³£¤£¦æ¡A©Ò¥H¤~¨Ï¥ÎExcel 内³¡ªº¶}µo³n¥ó¡AMiscrosoft BarCode Control 16.0, ­è­è¶}©lªº®É­Ô¡AÁÙ¥i¥H¨Ï¥Î¡A¦ý¬O¹B¦æ´X¦¸¦Z¡A´N·|¥X²{µLªk´¡¤J¹Ï¤ù³o­Ó°ÝÃD¡C
¤@ª½§ä¤£¥X°ÝÃD¦b­þùØ¡C

TOP

¬Ý°_¨Ó¦Û¤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
000.JPG

Barcode file and font.zip (40.31 KB)

TOP

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

Sub Create_BarCode() ...
xyz66217 µoªí©ó 2024-9-17 09:21



  ÁÂÁ«e½ú«ü¾É¡C
¤£¹L§Úªº°ÝÃD¬O¡@QR Code ¤£¯à´¡¤J¡ABar Code ¥u¬OÂà¤@¤U¦rÅé´N¥i¥H¡A³o­Ó°ÝÃD¤£¤j¡C
«e½ú¦³¤°麽¦n¤èªk¡H

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2024-9-18 23:17 ½s¿è
ÁÂÁ«e½ú«ü¾É¡C
¤£¹L§Úªº°ÝÃD¬O¡@QR Code ¤£¯à´¡¤J¡ABar Code ¥u¬OÂà¤@¤U¦rÅé´N¥i¥H¡A³o­Ó°ÝÃD¤£¤j ...
198188 µoªí©ó 2024-9-17 09:33


§A´£¨ÑªºÀɮ׸̧䤣¨ì : Sub create_all_qrcode(),
§ä¤F¤@¤U³Ì¬ÛªñªºÀ³¸Ó¬O : Sub QRCODE(),
©h¥B¥H¦¹¬°¹Á¸Õªº¼Ðªº.

1. §Aªºµ{¦¡¤Ö­ÓÂI¦h­Ó¬A©· :
barcode1µ{¦¡¤Ö­ÓÂI.jpg
2024-9-18 23:15


2. End Sub ©³¤U¤]¦h¤@¦æ«ü¥O :
barcode1_EndSub¤U¦h¤@¦æ«ü¥O.jpg
2024-9-18 23:16



­Yª½±µ±q QRCODE ³o­Ó Sub ¶}©l°õ¦æªº¸Ü,

3. ©³¤U³o´X¦æ¦]¬°·|¨Ï¥Î¨ì§A¦Û¤v¹q¸£ªº OneDrive ¤º®e, ©Ò¥H¨ä¥L¤H´ú¤£¤F:
  1.     ChDir "C:\Users\User\OneDrive - Innomet International Limited\Desktop"
  2.     ActiveWorkbook.SaveAs Filename:= _
  3.         "C:\Users\User\OneDrive - Innomet International Limited\Desktop\barcode1.xlsm" _
  4.         , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
½Æ»s¥N½X
4. µ{¦¡­Y¶]³æ¨B°õ¦æ¨ì³o¤@¦æ
  1. ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1").Object.Value = Range("A1").Value
½Æ»s¥N½X
·|ª½±µ¸õ¥X°T®§ :
barcode1_¦¹®ÉµLªk¶i¤J¤¤Â_¼Ò¦¡.jpg
2024-9-18 23:17


«ö¤U "Ä~Äò" «ö¶s«á´NÃö³¬¨ÃÁÙ­ì¤F :
barcode1_°õ¦æ¨ì¤@¥bµ{¦¡ª½±µÃö³¬¸õ´_­ì.jpg
2024-9-18 23:17


>> §Ú¸Õ¹L For I = 2 To 2 µ²ªG¤@¼Ë

³o­Ó°ÝÃD¾É­PExcel Àɮ׬G»Ù¶}¤£¤F¥t¦s¤F¦n´X­Ó·sÀÉ«á,
¤~µo²{¬O¦]¬°³o¤@¦æªº­ì¦] :
  1. Selection.Verb Verb:=xlOpen
½Æ»s¥N½X
§A§â³o¦æ®³±¼¦A¸Õ¸Õ¬Ý§a.....
.
¹ê¦b¸Õ¤£¤U¥h¤F,
Excel ÀÉ®×ÄY­«¿ù»~­«¶}­«¦s­×´_¦n´X¦¸,
¤£ª¾¹D¬O¤£¬Oª©¥»ªºÃö«Y......

TOP

§A´£¨ÑªºÀɮ׸̧䤣¨ì : Sub create_all_qrcode(),
§ä¤F¤@¤U³Ì¬ÛªñªºÀ³¸Ó¬O : Sub QRCODE(),
©h¥B¥H¦¹ ...
luhpro µoªí©ó 2024-9-18 23:15



¤£¦n·N«ä¡A¼Ò²Õ1¬O§Ú¦Û¤v¿ý»s´ú¸Õ¡A¤£¬O¯u¥¿ªºµ{¦¡¡A§Ñ°O¤W¶Ç«e§R±¼¡C
¼Ò²Õ2¤~¬O¯u¥¿ªºµ{¦¡¡A²{¦b­«·s¤W¶Ç¡C

barcode1.rar (29.85 KB)

TOP

¦^´_ 7# 198188

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

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD