还是二维码，怎么没有人解决啊！！

windows99

bibisin 发表于 2011-11-12 14:18
这类似条形码，就是增加一些第三方控件

控件在这下载

老师出现了不能插入对象

windows99

bibisin 发表于 2011-11-12 14:18
这类似条形码，就是增加一些第三方控件

控件在这下载

二维码是死的点刷新不动

lianjianke

要二维码刷新，就要触发刷新的代码，例如你要根据A1单元格的变动，你可以设置当A1单元格发生变动的时候运行刷新二维码的程序。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then 'A1单元格有变动时
Cells(1, 2) = Date 'A2单元格赋值为当前日期
'以下是刷新QRmaker1这个控件的二维码，如果有多个二维码，根据实际修改QRmaker后面的数值即可
dim arr
arr=cells(1,1)'这里以刷新的内容为A1单元格为例，可以多个单元格，用&连接起来就可以
ActiveSheet.Select
   ActiveSheet.QRmaker1.InputData = arr
   ActiveSheet.QRmaker1.AutoRedraw = ArOn
MsgBox "二维码已更新，内容为：" & arr
end sub

lianjianke

windows99 发表于 2017-9-14 15:39
二维码是死的点刷新不动

要二维码刷新，就要触发刷新的代码，例如你要根据A1单元格的变动，你可以设置当A1单元格发生变动的时候运行刷新二维码的程序。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then 'A1单元格有变动时
Cells(1, 2) = Date 'A2单元格赋值为当前日期
'以下是刷新QRmaker1这个控件的二维码，如果有多个二维码，根据实际修改QRmaker后面的数值即可
dim arr
arr=cells(1,1)'这里以刷新的内容为A1单元格为例，可以多个单元格，用&连接起来就可以
ActiveSheet.Select
   ActiveSheet.QRmaker1.InputData = arr
   ActiveSheet.QRmaker1.AutoRedraw = ArOn
MsgBox "二维码已更新，内容为：" & arr
end sub