01

先說(shuō)函數(shù)吧，這貨簡(jiǎn)單的不像話。

如上圖所示，B2單元格輸入以下公式，向下復(fù)制填充即可。

公式看不全可以左右拖動(dòng)...▼

=IMAGE('https://api.qrserver.com/v1/create-qr-code/?size=150x150&data='&A2)

IMAGE函數(shù)是Office 365中的新函數(shù)，可以根據(jù)第1參數(shù)的網(wǎng)址自動(dòng)下載圖片，并按指定格式填充到單元格中。

本例中，它的第1參數(shù)是qrserver.com的QR CODE API接口，可以公開(kāi)、免費(fèi)、穩(wěn)定的生成二維碼。

換句話說(shuō)，我們把qrserver.com生成二維碼的網(wǎng)址給它，剩下的事就讓它去操心，咱們躺收其成就行了。

02

然后再說(shuō)VBA，這貨也不難。

如上圖所示，輸入以下兩行代碼，就可以根據(jù)A1單元格的內(nèi)容在B1單元格生成二維碼。

代碼看不全可以左右拖動(dòng)...▼

Sub GetQRCode()    Range('b1').Select    ActiveSheet.Pictures.Insert ('https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=' & Range('a1').Value)End Sub

……

而如果需要批量生成二維碼，比如根據(jù)A列單元格的內(nèi)容在B列生成對(duì)應(yīng)的二維碼，嵌套一層循環(huán)語(yǔ)句即可。

示例中所使用的VBA代碼如下：

代碼看不全可以左右拖動(dòng)...▼

Sub GenerateQRCode() Dim rng As Range, cell As Range Dim shp As Shape, img As Picture, url As String Application.ScreenUpdating = False For Each shp In ActiveSheet.Shapes If shp.Type = 11 Then shp.Delete Next Set rng = Range('A2:A' & Cells(Rows.Count, 'A').End(xlUp).Row) rng.RowHeight = 60 '調(diào)整行高 rng.Offset(0, 1).ColumnWidth = 15 '調(diào)整隔壁列列寬 For Each cell In rng If Len(cell.Value) Then url = 'https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=' & cell.Value Set img = ActiveSheet.Pictures.Insert(url, False) With cell.Offset(0, 1) img.Top = .Top + 3 img.Left = .Left + 3 img.Width = .Width img.Height = .Height - 6 End With End If Next Application.ScreenUpdating = True MsgBox '處理完成。', , '公眾號(hào)Excel星球'End Sub

以上兩段代碼的都是通過(guò)qrserver.com的QR CODE API生成二維碼，核心始終都是下面這一行代碼。

ActiveSheet.Pictures.Insert('https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=' & Range('a1').Value)

其余代碼不過(guò)是打打雜，將插入到Excel中的二維碼調(diào)整下位置和大小——在使用該代碼時(shí)記得電腦需要處于聯(lián)網(wǎng)狀態(tài)。

……

OK，這就是今天給大家分享的全部?jī)?nèi)容了，有學(xué)到或有幫助的話，右下角點(diǎn)個(gè)贊，揮揮手，更多有趣或?qū)嵱玫谋砀窦记桑蹅兿缕谠僖?jiàn)

案例文件下載百度網(wǎng)盤(pán)...▼

http://t.cn/A6Cbah3g

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

打開(kāi)APP，閱讀全文并永久保存查看更多類似文章

微搭低代碼實(shí)現(xiàn)二維碼顯示及上傳功能

網(wǎng)頁(yè)自動(dòng)生成二維碼

Excel之VBA常用功能應(yīng)用篇：批量增加批注的逆操作，批量刪除

100萬(wàn)元，只因Excel不好，上下行看錯(cuò)轉(zhuǎn)錯(cuò)人

Excel表格中，如何快速批量制作條形碼和二維碼？

Excel辦公技巧

更多類似文章 >>

中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

01

02