excel表格怎样在sheet1中输入数据,sheet2中自动添加数据。

excel表格怎样在sheet1的一个单元格中输入数据,然后在sheet2中指定位置自动的添加,然后sheet1中的数据删除后,sheet2中的数据还有,在sheet1的那个单元格中在输入一个新的数据后,sheet2中就会自动的在上一次的数据后添加这次的记录,
直白一点,就是我想在sheet1中做一个介面,输入大致的信息,记录保存在sheet2中。谢谢!

第1个回答  2012-10-17
自动添加这次记录是什么意思?是在这个指定位置的下一单元格中输入本次输入的数据,还是附加在第一次的后面?
例如: sheet1的单元格是A1,Sheet2的单元格也是A1,先在sheet1中输入1,sheet2中A1变成1,再输入2以后,是变成12,还是B1变成2,还是A2变成2?
可以用宏来实现,不过要在输入数据后按一下按钮来执行一下宏。追问

例如在sheet1的A1中输入1,按一下按钮,sheet2的A1中会自动出现1,然后在sheetA1中再输入2,按一下按钮,sheet2在A2中出现2,sheet2的A1值不会改变,SHEET1中A1数值改变,只要按下按钮,记录就会在SHEET2的A列一直记录下去。

追答

你建一个按钮,再把下面的代码拷贝进去,assign给按钮就可以了。

Sub Button1_Click()
Dim InputArea As String
Dim OutputArea As String
Dim InputSheet As String
Dim OutputSheet As String

InputSheet = "Sheet1"
OutputSheet = "Sheet2"
InputArea = "A1"
OutputColumn = 1

'找到B列中没有值的位置
With Worksheets(OutputSheet)
LastRow = .Cells(65535, OutputColumn).End(xlUp).Row
If .Cells(LastRow, OutputColumn).Value = "" Then
.Cells(LastRow, OutputColumn).Value = Worksheets(InputSheet).Range(InputArea).Value
Else
.Cells(LastRow + 1, OutputColumn).Value = Worksheets(InputSheet).Range(InputArea).Value
End If
End With
End Sub

本回答被提问者和网友采纳
第2个回答  2012-10-17
使用VBA吧,建一个窗体,用窗体输入信息,保存在工作表2里
第3个回答  2012-10-17
Excel恐怕实现不了这样的功能,建议楼主用Access。
相似回答