- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¹Ï¤ùµ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=- Function QR_Code(Target As Range, MyURL As String)
- MyURL = "abc"
- With ActiveSheet
- For Each pic In .Shapes
- If pic.TopLeftCell.Address = Target.Address Then pic.Delete
- Next
- With .Pictures.Insert("https://api.excelapi.org/other/qrcode?text=" & MyURL)
- .Top = Target.Top
- .Left = Target.Left
- End With
- End With
- End Function
½Æ»s¥N½X
QR_Code-2.zip (15.19 KB)
|
|