excel中用VBA将文本框中的内容在A1单元格中显示

Question

excel中用VBA将文本框中的内容在A1单元格中显示，附图于后，请高手指教，谢谢!

Answer 1

Sub Macro1()
' Macro1 Macro
' 宏由 AutoBVT 录制，时间: 2017/6/8
  Dim t As String
  ''''''''这里的t就是下面第一个文本框里的内容，可以自定义，比如你的第一个文本框里
'''''''''''的内容就是"测试讲文本框……"
  ActiveSheet.Shapes("Rectangle 1").Select
  ActiveSheet.[A1] = Selection.Characters.Text
 End Sub

本回答被提问者和网友采纳

Answer 2

[a1]=me.TextBox1.value

Answer 3

Sub Macro1()
' Macro1 Macro
' 宏由 AutoBVT 录制，时间: 2017/6/8
  Dim t As String
  ''''''''这里的t就是下面第一个文本框里的内容，可以自定义，比如你的第一个文本框里
'''''''''''的内容就是"测试讲文本框……"
  ActiveSheet.Shapes("Rectangle 1").Select
  ActiveSheet.[A1] = Selection.Characters.Text
 End Sub

本回答被提问者和网友采纳

Answer 4

[a1]=me.TextBox1.value