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

Question

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

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

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

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

例如，当我在输入框中选择：Definitions!$F$38 我如何获得名称 'Definitions'？

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

也可以用Selectionobject

调用

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

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

Extract a worksheet name from the range selected

excel

vba

worksheet

inputbox