Excel应用程序.输入完整地址

Question

我正试图在Excel中编写一个宏，在那里我可以动态格式化工作表。1宏，没有硬编码图纸的名称。

我不知道如何提取应用程序的全部值。选择宏是否指向另一张表(我需要在另一张上做(

Sub GetRangeToModify()
Dim RangeOfA1, RangeOfA2 As range

Set RangeOfA1 = Application.Selection
Set RangeOfA2 = Application.InputBox("Select the loaded CSV's sheet' A1 field", "Select A1 cell", RangeOfA1, Type:=8)
MsgBox RangeOfA2.Address
End Sub

使用此片段，您可以获得单元格的位置，但工作表的名称不可见(例如，$K$16；而不是Sheet1！$K$116(

计划是：从所选内容中获取完整字符串(例如：Sheet2！$L$19(，用提取的工作表名称激活另一个工作表，并在那里做一些事情(插入新列等(

有没有办法做得好？

Answer 1

尝试：

Dim RangeOfA1 as Range, RangeOfA2 As range 'must assign explicit data type for each declaration; otherwise, data type is Variant by default.
Dim strWS as String 'worksheet name 
Set RangeOfA1 = Application.Selection
Set RangeOfA2 = Application.InputBox("Select the loaded CSV's sheet' A1 field", "Select A1 cell", RangeOfA1, Type:=8)
strWS = RangeOfA2.Worksheet.Name
MsgBox "'" & strWS & "'!" & RangeOfA2.Address