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

Charlie_YAN 2006-04-27 04:24:18
测试宏代码:
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里边的参数不知道该怎么处理,请各位指点一下。
...全文
416 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
arden1019 2006-06-24
参数全乱啦....看看函数定义吧
  • 打赏
  • 举报
回复
ChinaOBS 2006-06-19
改成下面的可以执行:根据需要自动调整。
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
  • 打赏
  • 举报
回复
chenyu112 2006-06-19
不知道,帮你顶
  • 打赏
  • 举报
回复
相关推荐
发帖
Office开发/ VBA
加入

5030

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
帖子事件
创建了帖子
2006-04-27 04:24
社区公告
暂无公告