急：关于Worksheets(sheetName).Range(range)的问题

[Charlie_YAN]

测试宏代码：
Function test(inputArea As range) As String
Set testRange = Worksheets(inputArea(1,1)).range(inputArea(1,2))
test = "OK"
End Function

其中inputArea(1,1)中取得“sheetName”，inputArea(1,2)中取得“A1：A1”

我这样写Worksheets跟range里的参数都会出错。将inputArea(1,1)付给一个String类型的变量，可以解决，但是range里边的参数不知道该怎么处理，请各位指点一下。

[chenyu112]

不知道，帮你顶

• 打赏
• 举报

回复 赞

[ChinaOBS]

改成下面的可以执行：根据需要自动调整。
Function test(inputArea As Range) As String
Dim testRange As String
testRange = Worksheets(inputArea(1, 1).Value).Range(inputArea(1, 2).Value).Address
test = "OK"
End Function

• 打赏
• 举报

回复 赞

[arden1019]

参数全乱啦....看看函数定义吧

• 打赏
• 举报

回复 赞