Скачать или смотреть How to link a textbox to a cell Excel Macro

This macro shows you how to create ten Textboxes and then links them to cells A1 through A10 using an automatically created hyperlink. The VBA code is shown below:

Download the example Excel file here:
http://excelspreadsheetshelp.blogspot...

Sub CreateTextBoxes()

Dim i, d As Integer

‘d will be used as spacing to separate the textboxes so they are not created on top of one another
d = 10

‘perform the loop 10 times and create 10 textboxes. Could change this to be more or into a user input box

For i = 1 To 10

'create textboxes in a vertical column with equal spacing using d
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 150, 20 + d, 35, 25).Select

'add formula to textboxes so the textbox displays the text in the cell
Selection.Formula = "=$A$" & i

'create hyperlink from textbox to cell, assumes sheet name is Sheet1
ActiveSheet.Shapes.Range(Array(i)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="", SubAddress:="Sheet1!A" & i

d = d + 30

Next

End Sub

How to link a shape to a cell Excel Macro