Excel里的VBA代码问题怎么添加多个参数

Question

Sub print2d() Dim QRString1 As String '定义变量 QRString1 = Sheet1.Range("A1") '将A1单元格的值传递给QRString1 Sheet1.Select Sheet1.QRmaker1.AutoRedraw = ArOn '启用QRmaker的自动重画属性 Sheet1.QRmaker1.InputData = QRString1 '将QRString1的值传递给QRmaker1 End Sub 这是个利用QRmaker给Excel的A1单元格变成二维码主要的语句，这个“QRString1 = Sheet1.Range("A1")”我想知道怎么添加多个参数也就是让B1 C1或者其他单元格也赋值进去。请问怎么修改这个代码

Answer 1

Sub
print2d(QRString1
As
String)
'将A1单元格的值传递给QRString1
Sheet1.Select
Sheet1.QRmaker1.AutoRedraw
=
ArOn
'启用QRmaker的自动重画属性
Sheet1.QRmaker1.InputData
=
QRString1
'将QRString1的值传递给QRmaker1
End
Sub
'调用方式
print2d
B1.value
print2d
C1.value