excel应用:如何将在sheet1指定单元格中的内容,自动、依次保存在sheet2中?
这个问题,是我在用excel制作简单的学生电子学籍簿时产生的.1、目的:为了避免在录入学生信息时改动“学生信息总表”(也就是sheet2)中的内容,所以,我就想在录入页(...
这个问题,是我在用excel制作简单的学生电子学籍簿时产生的.
1、目的:为了避免在录入学生信息时改动“学生信息总表”(也就是sheet2)中的内容,所以,我就想在录入页(sheet1)中相对固定的区域输入新信息,而同时,新录入的信息就自动、依次保留在了“学生信息总表”(sheet2)中。注意,是自动、依次,且不发生新录入覆盖先前录入的现象。
2、进一步说明,如下:
(1)在作为收集学生信息的总表sheet2中作如下布置
A B C D E F ....
1 学号 姓名 性别 出生年月 民族 家庭住址 ……
2
3
4
. (2)在sheet1中
A B C D E F ....
1 学号 姓名 性别 出生年月 民族 家庭住址 ……
2
(3)比如,
在sheet1中第2行中依次输入 "第1个学生" 的“ 学号 姓名 性别 出生年月 民族 家庭住址……”,这些信息被保存sheet2中"第2行"的对应单元格;
在sheet1中第2行中依次输入 "第2个"学生 的“ 学号 姓名 性别 出生年月 民族 家庭住址……”,这些信息被保存sheet2中"第3行"的对应单元格;
在sheet1中第2行中依次输入 "第3个"学生 的“ 学号 姓名 性别 出生年月 民族 家庭住址……”,这些信息被保存sheet2中"第4行"的对应单元格;
.
.
.
恳求指点
本人对VBA真的不通,能否举个函数的例子.稍具体一点给介绍一下.谢!!! 展开
1、目的:为了避免在录入学生信息时改动“学生信息总表”(也就是sheet2)中的内容,所以,我就想在录入页(sheet1)中相对固定的区域输入新信息,而同时,新录入的信息就自动、依次保留在了“学生信息总表”(sheet2)中。注意,是自动、依次,且不发生新录入覆盖先前录入的现象。
2、进一步说明,如下:
(1)在作为收集学生信息的总表sheet2中作如下布置
A B C D E F ....
1 学号 姓名 性别 出生年月 民族 家庭住址 ……
2
3
4
. (2)在sheet1中
A B C D E F ....
1 学号 姓名 性别 出生年月 民族 家庭住址 ……
2
(3)比如,
在sheet1中第2行中依次输入 "第1个学生" 的“ 学号 姓名 性别 出生年月 民族 家庭住址……”,这些信息被保存sheet2中"第2行"的对应单元格;
在sheet1中第2行中依次输入 "第2个"学生 的“ 学号 姓名 性别 出生年月 民族 家庭住址……”,这些信息被保存sheet2中"第3行"的对应单元格;
在sheet1中第2行中依次输入 "第3个"学生 的“ 学号 姓名 性别 出生年月 民族 家庭住址……”,这些信息被保存sheet2中"第4行"的对应单元格;
.
.
.
恳求指点
本人对VBA真的不通,能否举个函数的例子.稍具体一点给介绍一下.谢!!! 展开
3个回答
展开全部
给你个思路,要用宏的。
在sheet1中加个命令按钮,当你在sheet1输入完毕后点击它,就自动保存到sheet2中去。
在按钮中加入的代码中要包含下列功能的:1、取得sheet2的最后一行的行号。2、把sheet1 中相应位置数据复制到sheet2中相应位置。3、如果输入的学号有重复,提示报警。
不用宏的方法我也很想知道。关注中
rivate Sub CommandButton1_Click()
lastrow = Sheet2.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheet1.Range(Cells(2, 1), Cells(2, 15)).Copy Destination:=Sheet2.Cells(lastrow + 1, 1)
For x = 2 To lastrow
If Cells(x, 1) = Cells(lastrow + 1, 1) Then MsgBox "与第" & x & "行重复!"
Next
End Sub
以上我帮你写的代码,你只要在表中加个按钮,把代码加进去就可以了
在sheet1中加个命令按钮,当你在sheet1输入完毕后点击它,就自动保存到sheet2中去。
在按钮中加入的代码中要包含下列功能的:1、取得sheet2的最后一行的行号。2、把sheet1 中相应位置数据复制到sheet2中相应位置。3、如果输入的学号有重复,提示报警。
不用宏的方法我也很想知道。关注中
rivate Sub CommandButton1_Click()
lastrow = Sheet2.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheet1.Range(Cells(2, 1), Cells(2, 15)).Copy Destination:=Sheet2.Cells(lastrow + 1, 1)
For x = 2 To lastrow
If Cells(x, 1) = Cells(lastrow + 1, 1) Then MsgBox "与第" & x & "行重复!"
Next
End Sub
以上我帮你写的代码,你只要在表中加个按钮,把代码加进去就可以了
展开全部
可能用VBA比较方便,不知道你是不是能用。要是设公式比较麻烦
如果不用VBA可以试着把sheet1 sheet2选定为工作组
或者是在确认保存时另存一个工作表,很简单,用Ctrl+工作表标签就可以了
如果不用VBA可以试着把sheet1 sheet2选定为工作组
或者是在确认保存时另存一个工作表,很简单,用Ctrl+工作表标签就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个肯定要用到宏,不用宏无法实现。
你的表1相当于一个输入窗口,表2是一个数据库,这样的话不用宏能行?
你的表1相当于一个输入窗口,表2是一个数据库,这样的话不用宏能行?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询