QRMaker在MS Excel2010中的使用（附带控件，使用说明举例）

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then print2d '当A1单元格内容变化时，二维码刷新 If Target.Address = "$B$1" Then print2d '当B1单元格内容变化时，二维码刷新 If Target.Address = "$C$1" Then print2d '当C1单元格内容变化时，二维码刷新；此处根据实际增加行代码或者删除行代码 End Sub Sub print2d() Dim QRString1 As String '定义变量 QRString1 = Sheet1.Range("D1") '将D1单元格的值传递给QRString1；此处D1=A1+B1+C1 Sheet1.Select Sheet1.QRmaker1.AutoRedraw = ArOn '启用QRmaker的自动重画属性 Sheet1.QRmaker1.InputData = QRString1 '将QRString1的值传递给QRmaker1 End Sub