在Excel 表1一个固定的地方做数据输入,在表2中逐行记录数据。当表1的数据重新输入时,自动保存到下一行中
在Excel表1一个固定的地方做数据输入,在表2中逐行记录数据。当表1的数据输入时,自动保存到表2第一行中,当表1的数据重新输入时,自动保存到表2下一行中...
在Excel 表1一个固定的地方做数据输入,在表2中逐行记录数据。当表1的数据输入时,自动保存到表2第一行中,当表1的数据重新输入时,自动保存到表2下一行中
展开
1个回答
展开全部
必须有一个按钮来告知excel你的“重新输入”完成了,需要自动保存到表2。
因此你可以在表1中增加一个按钮(excel 2007开发工具->插入->表单控件)。
(如果看不到“开发工具”选项,你需要在excel选项->“常用”中选择,在功能区显示“开发工具”选项卡)
(对于excel2003,我不记得是怎么样操作了,你可以去百度看看如何在excel 2003里面添加按钮)
增加控件时,会提示指定宏,你选择“新建”。
在接下来的界面中输入以下代码(注意Sub和End Sub那两行是自动生成的,不要重复了):
Sub 按钮1_Click()
Dim sht As Worksheet
Dim rng As Range
ActiveSheet.Rows(1).Copy
Set sht = ActiveWorkbook.Worksheets("Sheet2")
Set rng = sht.Cells(ActiveWorkbook.Worksheets("Sheet2").UsedRange.Count + 1, 1)
rng.PasteSpecial xlPasteValuesAndNumberFormats
rng.PasteSpecial xlPasteFormats
End Sub
上述代码假定你输入的数据是在按钮所在当前表的第1行,参见下面代码:
ActiveSheet.Rows(1).Copy
假定要复制到的数据是到Sheet2,参见如下代码:
Set sht = ActiveWorkbook.Worksheets("Sheet2")
你可以根据实际情况修改
因此你可以在表1中增加一个按钮(excel 2007开发工具->插入->表单控件)。
(如果看不到“开发工具”选项,你需要在excel选项->“常用”中选择,在功能区显示“开发工具”选项卡)
(对于excel2003,我不记得是怎么样操作了,你可以去百度看看如何在excel 2003里面添加按钮)
增加控件时,会提示指定宏,你选择“新建”。
在接下来的界面中输入以下代码(注意Sub和End Sub那两行是自动生成的,不要重复了):
Sub 按钮1_Click()
Dim sht As Worksheet
Dim rng As Range
ActiveSheet.Rows(1).Copy
Set sht = ActiveWorkbook.Worksheets("Sheet2")
Set rng = sht.Cells(ActiveWorkbook.Worksheets("Sheet2").UsedRange.Count + 1, 1)
rng.PasteSpecial xlPasteValuesAndNumberFormats
rng.PasteSpecial xlPasteFormats
End Sub
上述代码假定你输入的数据是在按钮所在当前表的第1行,参见下面代码:
ActiveSheet.Rows(1).Copy
假定要复制到的数据是到Sheet2,参见如下代码:
Set sht = ActiveWorkbook.Worksheets("Sheet2")
你可以根据实际情况修改
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询