急:关于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里边的参数不知道该怎么处理,请各位指点一下。
...全文
583 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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
  • 打赏
  • 举报
回复
不知道,帮你顶

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧