二维码生成器，想必不陌生，用Excel vba 可以很好地生成二维码。

在一些信息记录过程当中，也有一些实际的用处。

下面介绍一下如何用vba代码生成二维码。

下面看下效果图

左侧是生成的二维码，右侧是一个文本框，输入要二维码存储的信息。

操作简单，生成之后还可随机改换二维码颜色。

新建二维码代码

Me.Controls.Add("barcode.BarCodeCtrl.1", "CodeName")

二维码属性设置

With CodeName    .Style = 11    .Left = Me.Label2.Left    .Top = Me.Label2.Top + Me.Label2.Height    .BackColor = RGB(211, 1, 1)    .ForeColor = RGB(255, 255, 200)    .Height = 320    .Width = .Height    .Value = vEnd With

新建二维按钮代码

Private Sub CommandButton1_Click()Dim v As Stringv = VBA.Trim(Me.TextBox1.Value)If VBA.Len(v) = 0 Then Exit Sub'DelBarCodeDim e As ObjectSet e = Me.Controls.Add("barcode.BarCodeCtrl.1", "Cod1")With e    .Style = 11    .Left = Me.Label2.Left    .Top = Me.Label2.Top + Me.Label2.Height    .BackColor = RGB(211, 1, 1)    .ForeColor = RGB(255, 255, 200)    .Height = 320    .Width = .Height    .Value = vEnd WithEnd Sub

可以做一些信息存储到二维码，然后扫描后可以在手机上查看，也可以设置一个网址链接到一个网页上，或者是链接到一个app应用。

总之，想到的可以实现的二维码功能都可以。

这个功能还是有一点用处的，在使用过程中一定会得到启发。