将最后一列中的单元格的值链接到插入的文本框（通过vba）

我试图通过在图表标题中插入一个文本框来创build一个dynamic图表标题，该文本框显示列A中最后填充的单元格的值。随着时间的推移，行数增加，所以我试图想出一个dynamic单元格引用。 当我将鼠标hover在文本框上时，出现一个工具提示“TextBox 2”，因此我假设这是文本框的名称。 我绝对开放其他方法，不使用vb​​a。 似乎没有任何代码可以激活文本框：

Sub textbox() Worksheets("Figure3-5").TextBoxes("TextBox 2").Range("A" & Rows.Count).End(xlUp).Value End Sub Sub textbox() Worksheets("Figure3-5").TextBox2.Value = Range("A" & Rows.Count).End(xlUp).Value End Sub Sub textbox() ActiveSheet.Shapes("TextBox 2").Select Selection.Characters.Text = Range("A" & Rows.Count).End(xlUp).Value End Sub 

在此先感谢您的帮助。

问候，

Answer 1

考虑：

 Sub dural() Sheets("Figure3-5").Select Sheets("Figure3-5").Shapes("TextBox 2").Select Selection.Characters.Text = Range("A" & Rows.Count).End(xlUp).Value End Sub 

编辑＃1：

在工作表上获取形状的名称 ：

 Sub Namer() Dim s As Shape For Each s In Sheets("Figure3-5").Shapes MsgBox s.Name Next s End Sub