关于inputbox方法的一个求助

bj917

写了一个宏，有使用到application.inputbox来获取用户输入，遇到一个小问题：
假设当前为sheet1，宏执行后inputbox要求用户输入，需要指定其它sheet表的单元格，如果不是当前sheet表，假设是sheet2的话，当选择sheet2并选中单元格，确定后，当前活动sheet表会返回sheet1，如何能够保持活动sheet表为sheet2？因为用户选择前不确定是那个sheet表，所以不能预先激活sheet。
代码：
Set f = Application.InputBox("请选中基础表中与其它表关联的列！", , , , , , , 8)

帅GUO

Parent.Name呀，超好用的
Set f = Application.InputBox("请选中基础表中与其它表关联的列！", , , , , , , 8)
ff = Sheets(f.Parent.Name).Range("b3").Value

microyip

f.Parent.Activate

准提部林

f.Parent.Select
或
Application.Goto f

f8b1987

Sub inp()
    Set aa = Application.InputBox("请选择单元格", "选择窗口", Type:=8)
    bb = aa.Parent.Name
    Sheets(bb).Select
End Sub

http://club.excelhome.net/thread-30490-1-1.html

小花鹿

不指定就是当前工作表，这有什么好讨论的                                                                           

bj917

首先感谢各位！
.Parent.Activate我知道，也是这么写的，
现在的问题是：当inputbox弹出后，选择sheet和单元格后，点击确认，会先返回sheet1，然后才会切换回sheet2，实际情况就是会快速的切换一下，我就是问下如何才能不切换，也就是在inputbox窗口我选择了sheet2能够保持或者active，而不是返回sheet1，然后才是sheet2变为活动工作表。

bj917

感谢楼上各位：
之前的问题找到解决方法了，且不限于同一工作薄，可以跨工作薄操作。
思路：点击单元格后，通过parent属性，先取得工作表信息，再次通过parent属性获取工作表信息，并保存，后续调用即可。
如下：
Set f = Application.InputBox("请选中第二张表比对列任一单元格！", "列的确定", , , , , , 8)
f是选中的单元格，
f.Parent.Name获取该工作表的名字，
dim  book_name_n
book_name_n=f.Parent.Parent.Name取该工作薄的名字
Workbooks(book_name_n).Activate激活该工作薄。

所以，在涉及切换工作薄是，可以通过以上操作，保存工作薄名，其它工作薄操作完成后，再通过工作薄名返回（激活）即可进行下一步操作。