返回列表 上一主題 發帖

EXCEL QRcode or 條碼

EXCEL QRcode or 條碼

您好
是否可以依據 A1 B1 值的更改C1  及  D1 欄位的條碼

C2 /D2
C3/D3

同樣道理

0000.jpg (19.75 KB)

0000.jpg

Cyssuc

請詳細敘述一下 還有副件 這樣比較能得到你要的答案

TOP

回復 1# Cyssuc

條碼可以使用字型顯示
QR Code則是圖片顯示
   QR_Code.zip (16.58 KB)
學海無涯_不恥下問

TOP

回復 3# Hsieh


謝謝Hsieh大大的分享,這個QR CODE真的非常好用~
另想再深入請教,Range值若想讓掃描後的結果是可以分段顯示,這有辦法辦到嗎?
RANGE(A1:B2)
例如      A             B
     1   品名:     TEST
     2   批號:     1234

目前的語法掃描結果是
品名:TEST批 號:1234

有辦法變成如下嗎?
品名:TEST
批號:1234

以上~謝謝不吝指教

TOP

回復 3# Hsieh

Hsieh大您好,這個QRCode的語法,我有運用,幾年下來也都完全沒問題
但今天,卻突然怎樣試都無法產生QRCode的圖示出來,沒有顯示錯誤訊息,只有感受到Excel變的非常非常的慢,然後最後也沒產生圖,只留下#VALUE!的欄位值
換過電腦測試 也都是一樣的情況
目前還沒查到可能的原因,特來請教先進,不知這還有解嗎? 謝謝~~

TOP

回復  Cyssuc

條碼可以使用字型顯示
QR Code則是圖片顯示
Hsieh 發表於 2017-10-19 11:22



圖片無法顯示出來?是什麽原因?
另外如果在中國地區,無法登入GOOGLE 有什麽辦法可以取代這個link?

TOP

圖片無法顯示出來?是什麽原因?
另外如果在中國地區,無法登入GOOGLE 有什麽辦法可以取 ...
198188 發表於 2024-9-13 12:53

那個網址好像不能用了,
你試試改用這個看看 :

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
複製代碼
QR_Code-2.zip (15.19 KB)

TOP

我目前是使用下列這個連結ok,但在大陸能不能用就不確定了
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

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題