Question

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

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

追问

看不懂 如果是要从A1到D44的范围怎么修改，请把修改后的可以弄的代码发上来，可以的话

Answer 2

Dim QRString1 As String
' QRString1 声明为字符串，怎么把多个值赋进去呢？