Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters.Text = Target.Text End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters.Text = Target.Text End Sub
转载于:https://www.cnblogs.com/taoyuanming/p/11390217.html