VBA中的while使用

VBA中的while使用

While I <= 3
Msgbox I & "如果这里等于0，那么必须在While I <=3前面加上一条语句：I = 1"
Msgbox Sheet1.Name '如果这里报错，那么证明Sheet1这个工作表不存在。
if i < 1 Then i = 1 '还可以在这里加入一个语句防错，防止i小于1。
id = Sheet1.Cells(I, 1)

可以在代码里面加入上面两行代码进行测试。

初步怀疑，代码产生错误的原因是在While I<=3这句代码的前面，没有对 i 这个变量进行初始化。一旦进入循环体就会出现所说的“应用程序定义或对象定义错误。”

id=sheet1.cells(l,1).value

应该是用的变量是自留字符，就不要用id，改为其他吧。那怕是idd也好。试试

 While I <= 3
     Msgbox I  & "如果这里等于0，那么你必须在While I <=3前面加上一条语句：I = 1"
     Msgbox Sheet1.Name  '如果这里报错，那么证明Sheet1这个工作表不存在。
     if i < 1 Then i = 1   '还可以在这里加入一个语句防错，防止i小于1。
         id = Sheet1.Cells(I, 1)
你可以在你的代码里面加入上面两行代码进行测试。

初步怀疑，你的代码产生错误的原因是在While I<=3这句代码的前面，没有对 i 这个变量进行初始化。一旦进入循环体就会出现你所说的“应用程序定义或对象定义错误。”



检查方法二，运行你的错误代码，出现错误之后，打开视图-本地窗口，这个时候你可以在本地窗口里面看到所有变量的值。如果这个时候i=0，那么肯定就是错误的。因为Cells(0,1)单元格不存在！