EXCEL 讲一个数据表中输入的数据保存到令一个表中
解决时间 2021-07-17 10:24
- 提问者网友:人生佛魔见
- 2021-07-16 19:26
表1:
表2:
我想在表1中输入购车人、电话、邮编、身份证号、地址时,这些相关的信息都能自动保存到表2中对应车的这一行中,现在的问题是,我给表2里用了IF函数,但是当我输完一个再输第二个时,表2中刚才自动读进来的第一个的信息又都不见了,感觉好像是IF函数只是显示而不能把读进来的信息保存到对应的格子里。
有不明白的请下载了看看,验证码:1263
http://st.gsau.edu.cn/cgi-bin/storage_getshare?uid=ljh3392516&domain=st.gsau.edu.cn&infotoken=3c03502FjxJ5Pdk_3ExPPAOrrGgIw&down=no&num=1
也就是说,当售车表中的发动机号为89AE552810时,将C9中输入的信息放在库存表中的K2中,当我再将发动机号改成1150505680时,则将新的C9中的信息放在库存表的K3中,而且这时候的K2值还在。
有不清楚请留言。
请大侠们多多赐教啊!
最佳答案
- 五星知识达人网友:独行浪子会拥风
- 2021-07-16 19:38
这个需要用宏,确保宏可以启用(工具,宏,安全性设置,中,以后打开此文件,允许宏)
右键点售车这个工作表的名称(在下面),查看代码,在新出来的窗口中粘贴以下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xx As Range
Set xx = Sheets(2).Range("D:D")
On Error GoTo Line1
If Target = Range("C9") Then Sheets(2).Cells(Application.WorksheetFunction.Match(Cells(4, 3), xx, 0), 11) = Target
If Target = Range("G9") Then Sheets(2).Cells(Application.WorksheetFunction.Match(Cells(4, 3), xx, 0), 12) = Target
If Target = Range("C10") Then Sheets(2).Cells(Application.WorksheetFunction.Match(Cells(4, 3), xx, 0), 13) = Target
If Target = Range("G10") Then Sheets(2).Cells(Application.WorksheetFunction.Match(Cells(4, 3), xx, 0), 14) = Target
If Target = Range("C11") Then Sheets(2).Cells(Application.WorksheetFunction.Match(Cells(4, 3), xx, 0), 15) = Target
Line1:
MsgBox "没有这个发动机号!", vbOKOnly, "对不起”"
End Sub
回到Excel中,功能实现。(代码中的Sheet(2)指第2个工作表,所以如果库存表不在第2个,相应更改)
全部回答
- 1楼网友:行雁书
- 2021-07-16 20:48
建议反其道而行之,将"库存"作为档案,"售车"的"C9"信息从"库存中调入.
我要举报
大家都在看
推荐资讯