[已解决]怎样查对象上一级是谁？

爱疯

因为熟悉了，我们知道Range("A1")的上一级是Sheet，即可写为Sheet1.Range("A1")；

但UserForm1，我不知道它的上一级是谁？

如果以后又遇上不熟悉的对象，如题。有可循的方法，还是只能积累经验？

谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-21 08:41

Parent 属性

参阅应用于MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\VBAXL10.CHM::/html/xlproParent1.htm#example">示例特性

返回指定对象的父对象。只读。

expression.Parent

expression      必需。该表达式返回“应用于”列表中的对象之一。

Sub Test()
    MsgBox Sheet1.Parent.Name
End Sub

Userform1的上一级没有。

跳转到最佳答案楼层

xdwy81129

占位学习。

猜想UserForm1的上级的book

amulee

Parent 属性

参阅应用于MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\VBAXL10.CHM::/html/xlproParent1.htm#example">示例特性

返回指定对象的父对象。只读。

expression.Parent

expression      必需。该表达式返回“应用于”列表中的对象之一。

Sub Test()
    MsgBox Sheet1.Parent.Name
End Sub

Userform1的上一级没有。

零点★沉思

跟着师傅学习！~

爱疯

QUOTE:

以下是引用amulee在2009-12-21 8:41:00的发言：

Parent 属性

参阅应用于MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\VBAXL10.CHM::/html/xlproParent1.htm#example">示例特性

返回指定对象的父对象。只读。

expression.Parent

expression      必需。该表达式返回“应用于”列表中的对象之一。

Sub Test()
    MsgBox Sheet1.Parent.Name
End Sub

Userform1的上一级没有。

谢谢阿木！

学习了。

但好像记得喵版有个调用不用模块的帖 ... 要加project .... 记不清了，也没找到那贴。

请问这个怎么改？

Sub Test()
    MsgBox Workbooks("a.xls").UserForm1.caption
End Sub

amulee

又看了一下

Userform属于VBComponents集合。

Sub Test()
    MsgBox ThisWorkbook.VBProject.VBComponents("UserForm1").Name
End Sub

[此贴子已经被作者于2009-12-21 9:48:35编辑过]

爱疯

谢谢了

[em04]