一个按钮一个文本框，在文本框中输入文字，点击按钮在<em>excel</em>...-excel

步骤如下：

1. Sheet1的A1:A10中有如下内容

2. 插入窗体，并插入一个复选框

   
   

3. 双击窗体，添加如下代码

4. 按F5执行代码，结果如下：

   
   

VB编辑器插入窗体后，添加zd文本框和命令按钮，在命专令按钮输入
Private Sub 点击_Click()
Range("A1").Value = TextBox1.Text
End Sub

在exce thisWorkbookl输入，可属每次打开excel自动弹出窗体
Private Sub Workbook_Open()
UserForm1.Show

End Sub
以下的制这些表达式都是百可以的度.

指定在sheet1的A1单元问格赋值
sheets("sheet1").range("A1")=userform1.textbox1.text
sheets("sheet1").cells(1,1)=userform1.textbox1.text
sheets("sheet1").[a1]=userform1.textbox1.text

在当前答工作表的A1单元格赋值
activesheet.range("A1")=userform1.textbox1.text
activesheet.cells(1,1)=userform1.textbox1.text
activesheet.[a1]=userform1.textbox1.text

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