1. 首頁 > 生活百科 > >

二維碼 *** 小程序 怎么用字符串生成二維碼

生活百科

多條告白如次劇本只需引入一次
消費企業大概物流特快專遞須要用到洪量的二維碼和線形碼，然而要自行編寫代碼批量天生二維碼大概線形碼并不簡單，波及的常識面很廣 。
Excel插件《E靈》供給了二維碼接口和線形碼接口，您只須要一句代碼挪用接口就不妨天生二維碼，一句代碼挪用線形碼接口就不妨天生線形碼 。共同輪回語句就不妨批量天生二維碼大概線形碼了 。簡直操縱如次：
一：載入并安置插件 E靈 。不妨百度探求、載入
二：安置勝利此后翻開Excel不妨看到“E靈”選項卡 。
E靈的操縱界面
三：運用VBA挪用二維碼接口天生二維碼
挪用E靈的二維碼接書面語法如次:
Application.COMAddIns.Item(“Eling”).Object.ma “二維碼實質”,莫大(單元:厘米) , 單位格, 邊距(單元:磅)
參數證明
1.進程稱呼 Ma,完備抄寫辦法是：Application.COMAddIns.Item(“Eling”).Object.ma
2.它有四個參數，之一參數是天生二維碼的值，文本 ***，比方“中華群眾民主國”大概Range(“a1”).value
3.第二參數是二維碼的寄存場所，用單位格表白,比方Range(“b2”).
4.第三參數是二維碼的莫大，以厘米為單元
5.第四參數是二維碼的邊距，值為0時表白靠邊，值為2表白上邊距為2(單元是磅) 。
代碼舉例
1.用”20190325-24″ 天生3厘米高的二維碼，放在C3單位格中
Sub 天生單個二維碼()
Application.COMAddIns.Item(“Eling”).Object.ma “20190325-24”, 3, Range(“c3”), 2
End Sub
2.用訂單號子、型體稱呼、單元和數目批量天生二碼
Sub 批量天生二維碼()
Dim cell As Range, RowItem As Integer, Mysrt As String, Eling As Object
Set Eling = Application.COMAddIns.Item(“Eling”).Object
Application.ScreenUpdating = False
With Range(“a2:d10”) ‘按照本人的情景竄改范疇
For RowItem = 1 To .Rows.Count
Mysrt = “”
For Each cell In .Rows(RowItem).Cells
If Len(cell.Value) > 0 Then Mysrt = Mysrt & “,” & cell.Value
Next cell
Eling.ma Mid(Mysrt, 2, 999), 1.5, Cells(RowItem + 1, “E”), 2
Next RowItem
Application.ScreenUpdating = True
MsgBox “天生結束，所有” & .Rows.Count & “個二維碼”, vbOKOnly, “提醒”
End With
End Sub
3.用訂單號子、型體稱呼、單元和數目批量天生二維碼
Sub 批量天生含題目的二維碼()
Dim cell As Range, RowItem As Integer, ColCount As Byte, Mysrt As String, Eling As Object
Set Eling = Application.COMAddIns.Item(“Eling”).Object
Application.ScreenUpdating = False
With Range(“a2:d10”) ‘按照本人的情景竄改范疇
For RowItem = 1 To .Rows.Count
Mysrt = “”: ColCount = 0
For Each cell In .Rows(RowItem).Cells
ColCount = ColCount + 1
Mysrt = Mysrt & vbCrLf & Cells(1, ColCount) & “:” & cell.Value
Next cell
Eling.ma Mid(Mysrt, 3, 999), 1.5, Cells(RowItem + 1, “E”), 2
Next RowItem
Application.ScreenUpdating = True
MsgBox “天生結束，所有” & .Rows.Count & “個二維碼”, vbOKOnly, “提醒”
End With
End Sub
動畫演練一下
動畫演練 天生二維碼
四：用VBA天生線形碼熏陶
挪用E靈的線形碼接書面語法如次:
TXM(“線形碼實質”, “源代碼”, 莫大, 單位格東西, “字體”, 牌號, 加寬倍數)
參數證明
1.進程稱呼 Ma,完備抄寫辦法是：Application.COMAddIns.Item(“Eling”).Object.ma
2.之一參數是線形碼的實質，不許含有華文
3.第二參數是線形碼的源代碼，可選值是”Code128A”,“Code128B”和”Code128C”，個中Code128C天生的圖片更窄,但它不扶助假名，只扶助數值 。
4.第三參數是莫大，單元為磅，常常在40-60之間，不宜過高大概過低 。
5.第四參數是單位格東西，線形碼須要放在哪個單位格，就用哪個單位格東西
6.第六參數是字體稱呼，不妨是”宋體”、“黑體”、“Impact”、”Arial”之類
7.第六參數是牌號，即線形碼下方的字符巨細，常常用10即可，不宜太大 。
8.第七參數是加寬倍數，0表白不加寬，1表白加寬一倍，不扶助少量
9.請盡管用10號字體，要不大概不居中 。
代碼舉例
1.用“3265798487”天生Code128C典型的莫大為50磅的線形碼，寄存在A1單位格中 。線形碼的字符沿用10號老宋體 。

推薦閱讀