EXCEL生成二维码

Question

我想在表A1，A2，A3 中的数据 在A4中生成个二维码（就是这个二维码包含A1,A2,A3 内容） ，请大侠指点迷津

Answer 1

用宏代码生成二维码，先输入A1、A2、A3单元格内容，再运行宏代码即可在A4得到二维码

请点击输入图片

图片代码看不太清，粘贴代码给你可直接复制

Sub 生成二维码()

   Dim Qr As OLEObject, Ra As Range, Ra2 As Range, Wh

   Dim M%, I%, Ro&, S$, S1$, N&

   For Each Qr In ActiveSheet.OLEObjects

      Qr.Delete

   Next

   S = Range("A1") & Chr(10) & Range("A2") & Chr(10) & Range("A3")

   Set Ra = Range("A4")

   Wh = Application.Min(Ra.Width, Ra.Height) - 4

   Set Qr = ActiveSheet.OLEObjects.Add(ClassType:="QRMAKER.QRmakerCtrl.1", Link:=False, _

      DisplayAsIcon:=False, Left:=Ra.Left + 2, Top:=Ra.Top + 2, Width:=Wh, Height:=Wh)

   Qr.Name = "Qr1"

   Qr.Object.AutoRedraw = 1

   Qr.Object.InputData = S

End Sub

Answer 2

先把内容串起来

A4=A1&A2&3

然后下载几个二维码字体

IntHrP48DlTt.TTF
IntHrP60DlTt.TTF
IntHrP72DlTt.TTF
把下载下来的文件放进C:WINDOWSFonts里面
然在在excel里面编辑你要的单元格，把格式里面的字体换成二维码字体就OK了

Answer 3

编程写代码可以实现