If ActiveSheet Sheets("首页") Then错在何处

mcy318 · 发表于 2006-1-21 11:19

如题

[此贴子已经被作者于2006-1-21 11:20:52编辑过]

Long_III · 发表于 2006-1-21 11:23

If ActiveSheet.name <> "首页" Then

plxmm · 发表于 2006-1-21 11:24

If ActiveSheet.Name <>"首页" Then

Long_III · 发表于 2006-1-21 11:32

对象跟对象的比较不能直接用<>或＝之类的，应该用is来比较，参考下面代码

Sub hjs()
Dim sht As Worksheet

For Each sht In Sheets
If Not sht Is Sheets("sheet1") Then
Debug.Print sht.Name
End If
Next
End Sub

另外一种比较就是2、3楼的代码，用对象的属性来比较对象是否一致

附帮助里的一段 “Is 运算符用来比较两个对象的引用变量。语法 result = object1 Is object2 说明如果 object1 和 object2 两者引用相同的对象，则 result 为 True；否则，result 为 False。有很多方法使两个变量引用相同的对象。”

[此贴子已经被作者于2006-1-21 11:38:48编辑过]

auteet · 发表于 2006-1-21 11:34

以下是引用[I]mcy318[/I]在2006-1-21 11:19:58的发言：[BR]如题

按我的理解，SHEETS(INDEX),括号应带系统内置的编号才对。

liuying2k · 发表于 2006-3-30 17:24

Long_III终极天王一针见血，PF

景仰中……

来点暴风雨 · 发表于 2006-9-12 16:49

学习了，收藏了，顶上去

		自动登录	找回密码
密码			免费注册