qr code,qr码在哪里
一、QRcode是什么意思
QRCode码是由日本Denso公司于1994年9月研制的一种矩阵二维码符号,它具有一维条码及其它二维条码所具有的信息容量大、可靠性高、可表示汉字及图象多种文字信息、保密防伪性强等优点。
二、excel窗体中qrcode函数怎么用
在Excel窗体中使用QRCode函数需要先在VBA中引用"InsertQRCode"类型库,在窗体代码模块中添加以下代码行:
```
PrivateWithEventsm_QRCodeAsINSERTQRCODELibWithEvents.QRCode
PrivateSubUserForm_Initialize()
Setm_QRCode=NewINSERTQRCODELibWithEvents.QRCode
EndSub
PrivateSubm_QRCode_Encode(ByValDataAsString,_
ByValECCAsLong,_
ByValSizeAsLong,_
ByValQuietZoneAsLong,_
ByValLogoSizeAsLong,_
ByValLogoPathAsString,_
ByValPaintBorderAsBoolean,_
ByValBackgroundColorAsLong,_
ByValEncodingAsLong,_
ByRefPictureAsIPictureDisp)
'获取菜单项对应的单元格
DimcellAsRange
Setcell=ActiveSheet.Range("A1")
'参数赋值
DimbitmapAsBitmap
Setbitmap=NewBitmap
bitmap.Picture=Picture
cell.Value=Data
cell.Offset(1,0).Value="二维码:"
cell.Offset(1,1).Select
ActiveSheet.Pictures.Insert(bitmap.Image,"").Select
'释放对象
SetPicture=Nothing
Setbitmap=Nothing
EndSub
```
完成上述VBA代码后,在窗体中添加一个"CommandButton"按钮,在按钮的点击事件中添加以下代码:
```
PrivateSubCommandButton1_Click()
m_QRCode.Encode"Hello,World!",2,10,2,20,"",True,vbWhite,0,Picture
EndSub
```
现在你就可以点击按钮,在工作表中的单元格A2中插入指定的文本串对应的二维码了。
三、qrcode是什么
QRCode码是由日本Denso公司于1994年9月研制的一种矩阵二维码符号,它具有一维条码及其它二维条码所具有的信息容量大、可靠性高、可表示汉字及图象多种文字信息、保密防伪性强等优点。