如何在一个表录入信息保存到另一个表中

xuezhe123

我想在入院登记表中登录信息点击保存，在此表中的信息就保存到信息表中。
在出院登记那根据身份证号查询出该病人，然后再填入出院的信息点击保存，在此表中的信息就保存到信息表中该病人名下的信息。
求各位大神，该怎么做。

具体信息要求在附件中体现

zpy2

直接访问修改信息表可能更方便一些，否则赋值代码有点多的。

hdbk

Private Sub CommandButton2_Click() '入院信息
Dim r&
r = Sheets("信息表").Range("b100000").End(xlUp).Row + 1
If Len(Sheets("入院登记").Range("d5")) = 18 And Mid(Sheets("入院登记").Range("d5"), 7, 2) = 19 Or Mid(Sheets("入院登记").Range("d5"), 7, 2) = 20 Then
  Sheets("入院登记").Range("d5").Copy Sheets("信息表").Range("f" & r)
  Sheets("入院登记").Range("d4").Copy Sheets("信息表").Range("b" & r)
Sheets("入院登记").Range("f4").Copy Sheets("信息表").Range("c" & r)
Sheets("入院登记").Range("f5").Copy Sheets("信息表").Range("d" & r)
Sheets("入院登记").Range("d6").Copy Sheets("信息表").Range("n" & r)
Sheets("入院登记").Range("f6").Copy Sheets("信息表").Range("k" & r)
Sheets("入院登记").Range("d7").Copy Sheets("信息表").Range("u" & r)
Sheets("入院登记").Range("f7").Copy Sheets("信息表").Range("ou" & r)
If r <= 11 Then
Sheets("信息表").Range("a" & r) = "'00" & r - 2
ElseIf r <= 101 Then
Sheets("信息表").Range("a" & r) = "'0" & r - 2
ElseIf r <= 1001 Then
Sheets("信息表").Range("a" & r) = "'" & r - 2
End If
Else
MsgBox "您输入身份证号不正确,请重新输入"
End If
End Sub

---------------------------------
Private Sub CommandButton1_Click() '出院信息
Dim i&
i = Sheets("信息表").Range("b3:b100000").Find(Sheets("出院登记").Range("d4")).Row
Sheets("出院登记").Range("f4").Copy Sheets("信息表").Range("w" & i)
Sheets("出院登记").Range("h4").Copy Sheets("信息表").Range("ad" & i)
Sheets("出院登记").Range("d5").Copy Sheets("信息表").Range("o" & i)
Sheets("出院登记").Range("f5").Copy Sheets("信息表").Range("x" & i)
Sheets("出院登记").Range("h5").Copy Sheets("信息表").Range("ae" & i)
Sheets("出院登记").Range("d6").Copy Sheets("信息表").Range("l" & i)
Sheets("出院登记").Range("f6").Copy Sheets("信息表").Range("y" & i)
Sheets("出院登记").Range("h6").Copy Sheets("信息表").Range("af" & i)
Sheets("出院登记").Range("d7").Copy Sheets("信息表").Range("ap" & i)
Sheets("出院登记").Range("f7").Copy Sheets("信息表").Range("z" & i)
End Sub

yxbaju

#判断身份证号函数引自本论坛，可自行研究是否可行
#没有添加判断是否输入重复的身份证号
#出院登记判断是否有入院记录，如果有才可更新
#必填项判断没有做完整，楼主可自己完成

xuezhe123

yxbaju 发表于 2018-10-7 14:43
#判断身份证号函数引自本论坛，可自行研究是否可行
#没有添加判断是否输入重复的身份证号
#出院登记判断 ...

谢谢帮助   不过运行出错了

yxbaju

xuezhe123 发表于 2018-10-9 10:44
谢谢帮助   不过运行出错了

什么错误？

yxbaju

xuezhe123 发表于 2018-10-9 10:44
谢谢帮助   不过运行出错了

我在测试的时候发现输入日期一定要是正确的格式2018/10/9，其它的还没发现

xuezhe123

yxbaju 发表于 2018-10-9 10:58
我在测试的时候发现输入日期一定要是正确的格式2018/10/9，其它的还没发现

为什么我运行不了

yxbaju

xuezhe123 发表于 2018-10-9 13:54
为什么我运行不了

你的excel什么版本？