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

Logo

DAMO开发者矩阵,由阿里巴巴达摩院和中国互联网协会联合发起,致力于探讨最前沿的技术趋势与应用成果,搭建高质量的交流与分享平台,推动技术创新与产业应用链接,围绕“人工智能与新型计算”构建开放共享的开发者生态。

更多推荐