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

½Ð°ÝExcel ¦@¥|Äæ¦ì¸ê®ÆÂà´«¦¨¤@Äæ¦ì¡A¨Ã¤À¬qÅã¥Ü¡A¤½¦¡­n«ç»ò¤U¡H

½Ð°ÝExcel ¦@¥|Äæ¦ì¸ê®ÆÂà´«¦¨¤@Äæ¦ì¡A¨Ã¤À¬qÅã¥Ü¡A¤½¦¡­n«ç»ò¤U¡H

Dear ¤j¤j,
§Ú¦bA1~A4Äõ³£¦³¸ê®Æ
§Æ±æ¯à¦bC1Äæ¤W§â¦¹¥|Ä涰¦X¦A¤@°_(¨Ã­n¤À¬q)¡A¦p¤U¹Ï
½Ð°Ý¤½¦¡­n«ç»ò¤U©O¡H
Thanks¡I


Just do it.

¦^´_ 1# jsc0518
Dear ¦U¦ì¤j¤j,
§Ú¤w¸g§Q¥Î¥¨¶°¤è¦¡°µ¥X¨Ó¤F¡A·Q½Ð±Ð¥t¤@­ÓQR CODE°ÝÃD
*QR CODE »yªk¬°¥»¯¸©Ò±oª¾
§Ú±N¤T­ÓÄæ¦ìÅܦ¨¤@­ÓÄæ¦ì¡A¨Ã¨ú±oQR CODE¡A¦ý¬O§_¦³¤è¦¡¥i¥H±NQR CODEªº¹Ï¥Ü²¾¨ì¸ÓÄæ¦ìªº¥¿¤¤¶¡¦ì¸m©O¡H
§Ú·Q­nªºµe­±¦p¤U



²{ªp°õ¦æVBA«áµe­±¦p¤U


Àɮצp¤U¡G
123.rar (16.96 KB)
Just do it.

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 3# hcm19522

·PÁ±zªº¦^ÂЧڨӸոլÝ
Just do it.

TOP

¦^´_ 2# jsc0518

¹Ï¤ù¸m¤¤?
GetQR_Code.zip (20.49 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh
Dear Hsieh,
¬Oªº¡A§Ú·Q§âQR CODE©ñ¸mÄæ¦ìªº¤¤¥¡
¬O§_¥i¥H±Ð§Ú§âªþ¥óÀÉ®×ExcelQR CODE©ñ¸mÄæ¦ìªº¤¤¥¡
123.rar (16.96 KB)


²{¦b¬O¦bÄæ¦ìªº¥ª¤W¨¤¸¨³B

Just do it.

TOP

¦^´_ 5# Hsieh
Hello §Ú¤w§ó§ï±zªº»yªk¡A¦¨¥\¤F
ÁÂÁ±z¡I ^_^


Function QR_Code(Target As Range, MyURL As String)
Dim MyPic As Picture
Dim pic As Picture
With ActiveSheet
For Each pic In .Pictures
If pic.TopLeftCell.Address = Target.Address Then Set MyPic = pic 'Àx¦s®æ¤º¦³±ø½X´N¥H¦¹¹Ï¤ùÅã¥Ü
Next
If MyPic Is Nothing Then '­YÀx¦s®æ¤ºµL¹Ï´N´¡¤JQR Code¹Ï¤ù
  Set MyPic = .Pictures.Insert("https://chart.googleapis.com/chart?chs=100x100&cht=qr&chl=" & MyURL)
  MyPic.Top = Target.Top + (Target.Height - MyPic.Height) / 2 '¹Ï¤ù««ª½¸m¤¤
  MyPic.Left = Target.Left + (Target.Width - MyPic.Width) / 2 '¹Ï¤ù¤ô¥­¸m¤¤
End If
Set mychart = .Shapes.AddChart '³]¸m¹Ïªíªø¼e
mychart.Height = MyPic.Height
mychart.Width = MyPic.Width
MyPic.Copy '½Æ»sQR Code
mychart.Chart.Paste '¶K¨ì¹Ïªí
mychart.Chart.Export "D:\code.jpg" '¹Ïªí¶×¥X¹ÏÀÉ
MyPic.ShapeRange.Fill.UserPicture "D:\code.jpg" '§ó´«QR Code
mychart.Delete '§R°£¹Ïªí
Kill "D:\code.jpg" '§R°£¹Ïªí¹ÏÀÉ
End With
End Function
Just do it.

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD