请问使用Application.InputBox获取工作表名

shekenwa

我在表1中执行如下语句，当我选取另一工作表的单元时，请问要用什么属性或函数知道另一工作表的表名？谢谢 Sub jjjj() Set mycell2 = Application.InputBox( _ prompt:="选择2表需要核对的某一行或某一列(不可多行多列选择)]: ", Type:=8) End Sub

taller

activecell.Parent.name

shekenwa

mycell2.Parent.name 谢谢

hhzjxss

Parent 属性

                        

返回包含指定控件、对象或集合的窗体、对象或集合的名字。

语法

object.Parent

Parent 属性的语法包括下列成分：

成分	说明
object	必需。一个有效对象。

说明

Parent 属性是只读的。

可用 Parent 属性访问一个对象的父体的属性、方法或控件。

在以参数方式传递对象的应用程序中该属性是很有用的。例如，可以给模块的通用过程传递一控件变量，用 Parent 属性访问其父窗体。

hhzjxss

Sub 方法示例8_获得选取的工作表名()

    Dim mycell2
    Set mycell2 = Application.InputBox( _
    Prompt:="请选择其他工作表中的单元格：", Type:=8)
    MsgBox "你刚才选取的工作表是《" & mycell2.Parent.Name & "》" '只显示选取的单元格的内容'Parent 属性，返回包含指定控件、对象或集合的窗体、对象或集合的名字。
   
End Sub

huys

同时获取工作表名和所选的列号呢？

huys

明白了！