EXCEL QRcode or 條碼

Cyssuc

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

C2 /D2
C3/D3

同樣道理

zheng211016

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

Hsieh

回復 1# Cyssuc

條碼可以使用字型顯示
QR Code則是圖片顯示
   QR_Code.zip (16.58 KB)

下載次數: 49

2017-10-19 11:22

chi830

回復 3# Hsieh


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

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

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

以上~謝謝不吝指教

chi830

回復 3# Hsieh

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

198188

回復  Cyssuc

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

下載 (107.69 KB)

2024-9-13 12:52

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

luhpro

圖片無法顯示出來？是什麽原因？
另外如果在中國地區，無法登入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)

下載次數: 1

2024-9-13 23:29

chi830

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