永发信息网

EXCEL 讲一个数据表中输入的数据保存到令一个表中

答案:2  悬赏:60  手机版
解决时间 2021-07-17 10:24

表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值还在。

有不清楚请留言。

请大侠们多多赐教啊!

最佳答案
这个需要用宏,确保宏可以启用(工具,宏,安全性设置,中,以后打开此文件,允许宏)
右键点售车这个工作表的名称(在下面),查看代码,在新出来的窗口中粘贴以下代码:
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个,相应更改)
全部回答
建议反其道而行之,将"库存"作为档案,"售车"的"C9"信息从"库存中调入.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
东北女孩厉害么
介绍点好听的英文歌,要有感觉,听了能快乐或则
极品飞车13开心软件有没?
最便宜最好的笔记本电脑要多少钱?
终极三国第33集剧情及34集预告
蔡骏的小说 《夜半笛声》发给我
N81按拍照的时候显示‘此功能不被支援’怎么
我家声卡老坏,从哪里下WINDOWS 修理助手?
17岁身高才167
华北一区+12照胆多少钱
英雄萨姆怎么进
丝路英雄在什么情况下军械库才会被拆。
为什么我的华夏图标30级还点不亮
有什么方法让皮肤变的好一点
号上的Q币可以转别的号上吗?
推荐资讯
校友里面没有加好友的怎么会在我农场和牧场里
海贼王里首个突破推进城的是谁,实力如何
东京物流中心的有关资料
买个OP要多少钱,CS.A_HUI一个月要多少钱
支付宝网上冲值的时候密码输错, 提示密码错
神起所有成员的生日?
脸上有痘炕,怎么办?
蒲式蛋挞怎么做?
使用交换机一次只能用一台电脑上网吗?
迅雷能下载什么?
请问下这个纸是什么材料知道吗
收集常见实用的篮球过人视频
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?