Board logo

標題: EXCEL QRcode or 條碼 [打印本頁]

作者: Cyssuc    時間: 2017-10-9 13:13     標題: EXCEL QRcode or 條碼

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

C2 /D2
C3/D3

同樣道理
作者: zheng211016    時間: 2017-10-17 12:12

請詳細敘述一下 還有副件 這樣比較能得到你要的答案
作者: Hsieh    時間: 2017-10-19 11:22

回復 1# Cyssuc

條碼可以使用字型顯示
QR Code則是圖片顯示
  [attach]27818[/attach]
作者: chi830    時間: 2020-8-24 15:36

回復 3# Hsieh


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

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

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

以上~謝謝不吝指教
作者: chi830    時間: 2024-4-2 12:59

回復 3# Hsieh

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

回復  Cyssuc

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


[attach]37881[/attach]
圖片無法顯示出來?是什麽原因?
另外如果在中國地區,無法登入GOOGLE 有什麽辦法可以取代這個link?
作者: luhpro    時間: 2024-9-13 23:29

圖片無法顯示出來?是什麽原因?
另外如果在中國地區,無法登入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
複製代碼
[attach]37884[/attach]
作者: chi830    時間: 2024-9-20 10:04

我目前是使用下列這個連結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




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)