Cyssuc

帖子: 41
主題: 14
精華: 0
積分: 84
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-7-27
最後登錄: 2021-5-22

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-10-9 13:13 | 只看該作者

EXCEL QRcode or 條碼

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

C2 /D2
C3/D3

同樣道理

0000.jpg (19.75 KB)

樓主熱帖

Cyssuc

chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 202
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2025-11-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

8^#

發表於 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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 1
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

7^#

發表於 2024-9-13 23:29 | 只看該作者

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

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

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

複製代碼

QR_Code-2.zip (15.19 KB)

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 527
主題: 71
精華: 0
積分: 623
點名: 1
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2025-11-4

6^#

發表於 2024-9-13 12:53 | 只看該作者

回復 Cyssuc

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

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

TOP

chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 202
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2025-11-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

5^#

發表於 2024-4-2 12:59 | 只看該作者

回復 3# Hsieh

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

TOP

chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 202
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2025-11-3

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

4^#

發表於 2020-8-24 15:36 | 只看該作者

回復 3# Hsieh

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

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

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

以上~謝謝不吝指教

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章