Question

我必须通过InputBox函数在所选单元格中输入结果：

Set OutputStrt = Application.InputBox("Select a cell, where the output should be dropped.", "Output start cell", Type:=8)

当我在不同的工作表中运行代码并希望将结果放在不同的工作表中时，它会将结果放在我最初运行代码的工作表中。

如何获取我通过Application.InputBox选择的工作表名称？

例如，当我在输入框中选择：定义！$ F $ 38如何获得名称＆＃39;定义＆＃39;？

Answer 1

试试这个：

Sub test()
    Dim Ws As Worksheet
    Dim OutputStrt As Range
    Set OutputStrt = Application.InputBox("Select a cell, where the output should be dropped.", "Output start cell", Type:=8)
    Set Ws = OutputStrt.Worksheet
    MsgBox Ws.Name
End Sub

Answer 2

您也可以使用选择对象

来调用它

Dim ws As Workseet
Set ws = Selection.Worksheet
Debug.Print "Sheetname: " & ws.Name

从所选范围中提取工作表名称

2 个答案: