[已解决]运行时错误“424”，要求对象，求大神!

z_juny

如题，运行时提示要求对象，错误代码424，求大神指点！

Sub 九九乘法表()
    Dim a!, b!
        For a = 1 To 9
            For b = 1 To 9
                If b > a Then
                    Sheet3.Cells(a, b) = ""
                Else
                    Sheet3.Cells(a, b) = a & "x" & b & "=" & a * b
                End If
            Next
        Next
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-30 13:15

手机现在看不了，下午才能看。
怀疑是没有工作表代码名为sheet3的工作表。是工作表代码名(codename)，不是工作表名(name)

如果不理解那就去掉"sheet3."，同时在第一句的前面加上一句。如果输出在从左往右第3个位置的工作表中，就这么改。
sheets(3).select

跳转到最佳答案楼层

爱疯

附件中有没有sheet3

z_juny

爱疯 发表于 2016-3-30 12:06
附件中有没有sheet3

有的，请查看附件！谢谢！

爱疯

手机现在看不了，下午才能看。
怀疑是没有工作表代码名为sheet3的工作表。是工作表代码名(codename)，不是工作表名(name)

如果不理解那就去掉"sheet3."，同时在第一句的前面加上一句。如果输出在从左往右第3个位置的工作表中，就这么改。
sheets(3).select

爱疯

1）去掉"sheet3."，程序报错吗？
2）如果不报错，那原因是4楼。否则下午看了才知道。

759857387

九九乘法表.rar (16 KB, 下载次数: 3)

2016-3-30 13:47 上传

点击文件名下载附件
解决了“424”

z_juny

爱疯 发表于 2016-3-30 13:15
手机现在看不了，下午才能看。
怀疑是没有工作表代码名为sheet3的工作表。是工作表代码名(codename)，不是 ...

万分感谢！大神果然是大神，改后问题就解决了！

z_juny

爱疯 发表于 2016-3-30 13:19
1）去掉"sheet3."，程序报错吗？
2）如果不报错，那原因是4楼。否则下午看了才知道。

万分感谢！大神果然是大神，改后问题就解决了！谢谢您的大力支持！

z_juny

z_juny 发表于 2016-3-30 13:49
万分感谢！大神果然是大神，改后问题就解决了！谢谢您的大力支持！

还想再请教下大神，直接去掉sheet3.也可以，或去掉后前一行加上sheets(3).select都可以，只要按原来的代码执行就报错。能解释下这是什么原因吗？谢谢！

爱疯

z_juny 发表于 2016-3-30 13:57
还想再请教下大神，直接去掉sheet3.也可以，或去掉后前一行加上sheets(3).select都可以，只要按原来的代码 ...

工作表对象的三种表达方式：

1）用工作表名来表示
sheets("Sheet3").select

2）用工作表的索引来表示
sheets(3).select   '就是从左往右数的第3个位置上的工作表。

3）用工作表代码名来表示
sheet3.select


~~~~~~~~~~~~~~分割线~~~~~~~~~~~~~~~~~~~~~


红圈，是工作表名（工作表对象.name）
蓝圈，是工作表代码名（工作表对象.codename）