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

EXCEL QRcode or ±ø½X

EXCEL QRcode or ±ø½X

±z¦n
¬O§_¥i¥H¨Ì¾Ú A1 B1 ­Èªº§ó§ïC1  ¤Î  D1 Äæ¦ìªº±ø½X

C2 /D2
C3/D3

¦P¼Ë¹D²z
0000.jpg
Cyssuc

½Ð¸Ô²Ó±Ô­z¤@¤U ÁÙ¦³°Æ¥ó ³o¼Ë¤ñ¸û¯à±o¨ì§A­nªºµª®×

TOP

¦^´_ 1# Cyssuc

±ø½X¥i¥H¨Ï¥Î¦r«¬Åã¥Ü
QR Code«h¬O¹Ï¤ùÅã¥Ü
   QR_Code.zip (16.58 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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~ÁÂÁ¤£§[«ü±Ð

TOP

¦^´_ 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ÁÙ¦³¸Ñ¶Ü? ÁÂÁÂ~~

TOP

¦^´_  Cyssuc

±ø½X¥i¥H¨Ï¥Î¦r«¬Åã¥Ü
QR Code«h¬O¹Ï¤ùÅã¥Ü
Hsieh µoªí©ó 2017-10-19 11:22


¥¼©R¦W.jpg
2024-9-13 12:52

¹Ï¤ùµLªkÅã¥Ü¥X¨Ó¡H¬O¤°麽­ì¦]¡H
¥t¥~¦pªG¦b¤¤°ê¦a°Ï¡AµLªkµn¤JGOOGLE ¦³¤°麽¿ìªk¥i¥H¨ú¥N³o­Ólink?

TOP

¹Ï¤ùµLªkÅã¥Ü¥X¨Ó¡H¬O¤°麽­ì¦]¡H
¥t¥~¦pªG¦b¤¤°ê¦a°Ï¡AµLªkµn¤JGOOGLE ¦³¤°麽¿ìªk¥i¥H¨ú ...
198188 µoªí©ó 2024-9-13 12:53

¨º­Óºô§}¦n¹³¤£¯à¥Î¤F,
§A¸Õ¸Õ§ï¥Î³o­Ó¬Ý¬Ý :

https://api.excelapi.org/other/qrcode?text=
  1. Function QR_Code(Target As Range, MyURL As String)
  2. MyURL = "abc"
  3. With ActiveSheet
  4. For Each pic In .Shapes
  5.    If pic.TopLeftCell.Address = Target.Address Then pic.Delete
  6. Next
  7.   With .Pictures.Insert("https://api.excelapi.org/other/qrcode?text=" & MyURL)
  8.   .Top = Target.Top
  9.   .Left = Target.Left
  10.   End With
  11. End With
  12. End Function
½Æ»s¥N½X
QR_Code-2.zip (15.19 KB)

TOP

§Ú¥Ø«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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD