返回目录：excel表格制作
下载几个二维zd码字体，
IntHrP48DlTt.TTF
IntHrP60DlTt.TTF
IntHrP72DlTt.TTF
把下载下来的文件放进C:\WINDOWS\Fonts里面
然在在excel里面编辑你要的单元格回，把格式里面的字体换成二答维码字体就OK了
excel表格中生成二维码的具体步骤如下：
我们需要准备的材百料分别是：电脑、excel表格。度
1、首先我们打开需要编辑的excel表格，点击打开开发工具中的“插入”，选择“其他控件”。知
2、然后我们在弹出来的窗口中点击选择“Microsoft Barcode Control 15.0”。
3、然后我们右键单击条形码打开“属性”，之后道点击打开自定义后面的回三个点。
4、然后我们在弹出来的窗口中点击打开样式，选择最后一个选项答，之后回车确定。
5、之后点击“linkedCell”后面的输入框，输入想要放置二维码的单元格即可。
EXCEL技巧——用来EXCEL制作二源维码_百度zd经验 http://jingyan.baidu.com/article/48b558e35ae7c57f39c09a55.html
用宏代码7a64e58685e5aeb9337生成二维码，先输入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