[已解决]应用程序定义或对象定义错误 问题求助

laizis

Sub t1()
Dim bb As Integer
bb = 1
Sheet3.Range("A" & bb & ":I " & bb).Select
End Sub

标红色部分被提示  " 应用程序定义或对象定义错误" ，求助要怎么改？

最佳答案

月排行榜 / 总排行榜

sliang28

2013-7-14 23:00

这样写吧:

1. Sub t1()
   
2. Dim bb As Integer
   
3. bb = 1
   
4. Sheets("Sheet3").Activate
   
5. Sheets("Sheet3").Range("A" & bb & ":I" & bb).Select
   
6. End Sub
   

复制代码

选择的时候要激活工作表才可以吧!
还有就是你I后面有个空格

跳转到最佳答案楼层

sliang28

sheets("Sheet3").Range("A" & bb & ":I " & bb).Select

laizis

sliang28 发表于 2013-7-14 22:38
sheets("Sheet3").Range("A" & bb & ":I " & bb).Select

还是不行呀

sliang28

你当前的工作表是哪个？

sliang28

这样写吧:

1. Sub t1()
   
2. Dim bb As Integer
   
3. bb = 1
   
4. Sheets("Sheet3").Activate
   
5. Sheets("Sheet3").Range("A" & bb & ":I" & bb).Select
   
6. End Sub
   

复制代码

选择的时候要激活工作表才可以吧!
还有就是你I后面有个空格

laizis

sliang28 发表于 2013-7-14 23:00
这样写吧:选择的时候要激活工作表才可以吧!
还有就是你I后面有个空格

谢谢哦