如何在一个表中输入数据，在另一个表中自动生成一组记录

yujinyan85

下面是员工信息档案数据库（可见附件），里面有两个表，一个是数据录入表，另一个是数据记录表，两表的格式分别如下：

表一：数据录入表

表二：数据记录表


功能要求：

1、表一 界面相当于一个信息输入窗口，所有数据从这里输入，如姓名、工号、部门、职位等；

2、每输入完一组数据之后，点击“保存记录”按钮，能够在“表二：数据记录”中自动生成一个记录；

3、输入到“表二：数据记录”中的记录，要求依次生成。

附件：
例：如何在一个表中输入数据，在另一个表中自动生成记录.rar (14.34 KB, 下载次数: 3338)

2012-9-6 09:33 上传

点击文件名下载附件

请各位高手指点，如何完成以上功能。谢谢！

提苏米拉啦

1. Sub 矩形1_Click()
   
2. Dim i%
   
3. i = Sheets(2).[a65536].End(3).Row + 1
   
4. Sheets(2).Cells(i, 1).Resize(1, 6) = Application.Transpose(Range("c7:c12"))
   
5. End Sub
   

复制代码

yujinyan85

提苏米拉啦 发表于 2012-9-6 09:48

还是不明白，可以在附件里设置好后，发给我好吗，谢谢！

提苏米拉啦

右键你的保存记录按钮---------------指定宏-------------新建------------------------把以上代码复制进去

yujinyan85

提苏米拉啦 发表于 2012-9-6 09:55
右键你的保存记录按钮---------------指定宏-------------新建------------------------把以上代码复制进去

非常感谢，已经实现了，但是还有一个不足，就是我希望点击“保存记录”按钮后，希望在表一中自动清除刚刚输入的数据。请您指教，谢谢！

提苏米拉啦

yujinyan85 发表于 2012-9-6 10:05
非常感谢，已经实现了，但是还有一个不足，就是我希望点击“保存记录”按钮后，希望在表一中自动清除刚刚 ...

1. Sub 矩形1_Click()
   
2. Dim i%, arr()
   
3. i = Sheets(2).[a65536].End(3).Row + 1
   
4. arr = Range("c7:c12")
   
5. Range("c7:c12").ClearContents
   
6. Sheets(2).Cells(i, 1).Resize(1, 6) = Application.Transpose(arr)
   
7. End Sub

复制代码

yujinyan85

提苏米拉啦 发表于 2012-9-6 10:35

非常感谢！！{:soso_e181:}

yujinyan85

提苏米拉啦 发表于 2012-9-6 10:35

还想请教您一下，这些需要学习哪些方面的知识啊，我的好好的学习一下！谢谢！

提苏米拉啦

yujinyan85 发表于 2012-9-6 11:08
还想请教您一下，这些需要学习哪些方面的知识啊，我的好好的学习一下！谢谢！

VBA
                  

yujinyan85

提苏米拉啦 发表于 2012-9-6 11:15
VBA

非常感谢！！~~~~~~