VBA 如何将文本框空间中的内容 显示到知道单元格中呢？

mengrong026

0403问卷 - 副本.zip (35.14 KB, 下载次数: 64)

2012-4-5 09:30 上传

点击文件名下载附件

大家好，求助。

我现在用EXCEL做一个问卷，想实现自动统计。

现在需要实现以下操作：

在点击完成按钮时，将三个文本框中的内容分别显示到指定的单元格L59  N59  Q59中。

详情参照附件，拜托各位大侠相助，不尽感激。

joforn

Range("$L$59").Value=TextBox1.Text

mengrong026

joforn 发表于 2012-4-5 09:52
Range("$L$59").Value=TextBox1.Text

Sub 保存()
Dim rs As Integer


Sheets("调查表").Select

Range("$L$59").Value = TextBox1.Text

Rows(59).Select
Selection.Copy
Sheets("数据表").Select
rs = Cells(3, 2)
Rows(rs + 3).Select
ActiveSheet.Paste
Cells(rs + 3, 1).Value = rs + 1
Application.CutCopyMode = False
Range("A1").Select
Sheets("调查表").Select
Range("A1").Select
MsgBox "您的选择已经保存，感谢您对我们工作的支持，祝您工作愉快！", vbOKOnly, "谢谢您"


End Sub

运行到红字部分就报错了……

mengrong026

{:soso_e109:}

joforn

1. 
   
2. Private Sub TextBox1_Change()
   
3.   Range("L59").Value = TextBox1.Text
   
4. End Sub
   
5. 
   
6. Private Sub TextBox2_Change()
   
7.   Range("N59").Value = TextBox2.Text
   
8. End Sub
   
9. 
   
10. Private Sub TextBox3_Change()
    
11.   Range("Q59").Value = TextBox3.Text
    
12. End Sub
    

复制代码

这里的代码是放在Sheet3的代码页中。

mengrong026

joforn 发表于 2012-4-5 12:05
这里的代码是放在Sheet3的代码页中。

谢谢，对不起，我实在是太菜鸟了。

那么，如果想在点击“开始”时， 文本框也能清空该怎么办呢？？

joforn

把这条Sheet3.Clearn加到你的Sub 按钮58_Click()并把下面的代码粘贴到你的Sheet3代码页中。

1. 
   
2. Public Sub Clearn()
   
3.   TextBox1.Text = vbNullString
   
4.   TextBox2.Text = vbNullString
   
5.   TextBox3.Text = vbNullString
   
6. End Sub
   

复制代码

mengrong026

joforn 发表于 2012-4-5 15:28
把这条Sheet3.Clearn加到你的Sub 按钮58_Click()并把下面的代码粘贴到你的Sheet3代码页中。

我是不是加错了……  没有效果……

joforn

Sub 按钮58_Click()
  '.... 这里是你的原有代码
  Sheet3.Clearn
End Sub

还有Clearn这段代码只保留Sheet3代码页中的就行了。

mengrong026

joforn 发表于 2012-4-6 21:25
Sub 按钮58_Click()
  '.... 这里是你的原有代码
  Sheet3.Clearn

爱死你了，谢谢谢谢。{:soso_e142:}