chi830

¦^´_ 3# Hsieh


ÁÂÁÂHsieh¤j¤jªº¤À¨É¡A³o­ÓQR CODE¯uªº«D±`¦n¥Î~
¥t·Q¦A²`¤J½Ð±Ð¡ARange­È­Y·QÅý±½´y«áªºµ²ªG¬O¥i¥H¤À¬qÅã¥Ü¡A³o¦³¿ìªk¿ì¨ì¶Ü?
RANGE(A1:B2)
¨Ò¦p      A             B
     1   «~¦W¡G     TEST
     2   §å¸¹¡G     1234

¥Ø«eªº»yªk±½´yµ²ªG¬O
«~¦W¡GTEST§å ¸¹¡G1234

¦³¿ìªkÅܦ¨¦p¤U¶Ü?
«~¦W¡GTEST
§å¸¹¡G1234

¥H¤W~ÁÂÁ¤£§[«ü±Ð

chi830

¦^´_ 3# Hsieh

Hsieh¤j±z¦n¡A³o­ÓQRCodeªº»yªk¡A§Ú¦³¹B¥Î¡A´X¦~¤U¨Ó¤]³£§¹¥þ¨S°ÝÃD
¦ý¤µ¤Ñ¡A«o¬ðµM«ç¼Ë¸Õ³£µLªk²£¥ÍQRCodeªº¹Ï¥Ü¥X¨Ó¡A¨S¦³Åã¥Ü¿ù»~°T®§¡A¥u¦³·P¨ü¨ìExcelÅܪº«D±`«D±`ªººC¡AµM«á³Ì«á¤]¨S²£¥Í¹Ï¡A¥u¯d¤U#VALUE!ªºÄæ¦ì­È
´«¹L¹q¸£´ú¸Õ ¤]³£¬O¤@¼Ëªº±¡ªp
¥Ø«eÁÙ¨S¬d¨ì¥i¯àªº­ì¦]¡A¯S¨Ó½Ð±Ð¥ý¶i¡A¤£ª¾³oÁÙ¦³¸Ñ¶Ü? ÁÂÁÂ~~

chi830

§Ú¥Ø«e¬O¨Ï¥Î¤U¦C³o­Ó³sµ²ok¡A¦ý¦b¤j³°¯à¤£¯à¥Î´N¤£½T©w¤F
https://api.qrserver.com/v1/create-qr-code/?size=100x100&color=fff&bgcolor=000&data="


Function QR_Code(Target As Range, MyURL As String)
With ActiveSheet
For Each pic In .Shapes
   If pic.TopLeftCell.Address = Target.Address Then pic.Delete
Next
  With .Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=100x100&color=fff&bgcolor=000&data=" & MyURL)
  .Top = Target.Top
  .Left = Target.Left
  End With
End With
End Function