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

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

¤§«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

¥»©«³Ì«á¥Ñ 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©· :


2. End Sub ©³¤U¤]¦h¤@¦æ«ü¥O :



­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®§ :


«ö¤U "Ä~Äò" «ö¶s«á´NÃö³¬¨ÃÁÙ­ì¤F :


>> §Ú¸Õ¹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

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD