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

mengrong026 · 发表于 2012-4-9 19:42

本帖最后由 mengrong026 于 2012-4-9 20:00 编辑

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

大侠，这是我最后整理的问卷。
但是现在有两个问题哦。
1  问题三中的单选部分，虽然在调查表SHEET中可以正常显示，但是在复制到数据表那个SHEET的时候，这个数据就丢失了……
2  我想这么操作，就是答问卷前点击 “开始”，回答完后点“完成”  数据就存在第二个SHEET中了，
然后在点击“开始” 问卷清空，再填写，再点击完成，数据继续作为第二条数据存在第二个SHEET中，
如此重复操作，但是发现，一般只能存两条数据，继续输入完成的话，就会不断得覆盖到第二条数据。
有时能多输入几行…… 看不懂怎么回事为什么呢还是跟问卷操作有关呢

您能帮我看看是怎么回事吗？谢谢。就要交作业了，我还没弄出来，拜托了。

mengrong026 · 发表于 2012-4-9 19:46

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

不对，丢失的是第一道题部门的数据……

mengrong026 · 发表于 2012-4-9 19:56

mengrong026 发表于 2012-4-9 19:46
不对，丢失的是第一道题部门的数据……

解决了，我在调查表那个sheet的最旁边插入了一列，虽然不知道为什么吧，反正好了。但是第二个问题还是不行，现在最多输入六行数据……

mengrong026 · 发表于 2012-4-9 20:09

本帖最后由 mengrong026 于 2012-4-9 20:12 编辑

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

下面代码中的这部分是什么意思啊
rs = Cells(3, 2)
Rows(rs + 3).Select
ActiveSheet.Paste
Cells(rs + 3, 1).Value = rs + 1
Application.CutCopyMode = False
这部分的代码是什么意思啊，能给我讲讲吗？

Sub 保存()
Dim rs As Integer
Sheets("调查表").Select
Rows(81).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

复制代码

fifi0703 · 发表于 2023-4-7 13:03

		自动登录	找回密码
密码			免费注册

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

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