range(cells(1,1),cells(3,3))用法想弄个明白

99qiang

发现range(cells(1,1),cells(3,3))这种写法，在工作表使用正常，在另一个工作表引用就会出错，想知道为什么会出错，现在是加一句sheet1.Activate来避免。

cvvb0606

'按钮链接到test这个过程
Sub test()
  Dim arr
  arr = ActiveSheet.Range(Cells(1, 1), Cells(3, 3)) '当前工作表有效
  MsgBox arr(1, 1)
End Sub

chxw68

在单元格名称前都加上它的父对象就不会出错了。
sheet1.range(sheet1.cells(1,1),sheet1.cells(3,3))

huang1314wei

3楼说的是对的，不加父对象的cells仅仅是表示当前工作表当中的单元格，你外面range是另一个表当中的单元格，里面的cells是当前工作表，里外不如一，当然给你来个错误

99qiang

cvvb0606 发表于 2017-8-17 09:57
'按钮链接到test这个过程
Sub test()
  Dim arr

谢谢，我是指在表1按钮出错

99qiang

huang1314wei 发表于 2017-8-17 10:08
3楼说的是对的，不加父对象的cells仅仅是表示当前工作表当中的单元格，你外面range是另一个表当中的单元格 ...

是的是的，一说就明白了，多谢啦

cvvb0606

99qiang 发表于 2017-8-17 10:11
谢谢，我是指在表1按钮出错

按钮链接错了，重新编辑一下链接

99qiang

chxw68 发表于 2017-8-17 10:03
在单元格名称前都加上它的父对象就不会出错了。
sheet1.range(sheet1.cells(1,1),sheet1.cells(3,3))

又一次得到你的帮助，谢谢啦

hzruziniu

'With语句也可以，但前面别忘了加上半角“.”
With Sheet1
    arr = .Range(.Cells(1, 1), .Cells(3, 3))
End With

99qiang

cvvb0606 发表于 2017-8-17 10:14
按钮链接错了，重新编辑一下链接

我是在表1中引用表2的单元格，你这样只能引用当前表，是要在cells前面加父对象