指定查找、新增、保存、删除、修改两个工作表内完成

lihongwe

这个完成一半的表格是我在这里模仿的，我是小白，求助各位大神帮帮忙，每次来到这里都让我很惊讶

新增、查询、保存模块是我模仿大神做的，可是修改、删除不会做，

修改是吧表一里的指定数据在表二修改完成

删除就复杂点了，表一里K5数据，在表二里B列整行删除

我找了好久也模仿不了，求各位大神帮帮忙，还有之前模仿的公式有没有错的需要改动的

3190496160

Sub 修改数据()
Dim rng As Range
With Sheets("人口信息登记")
    bh = Trim(.[k4])
    If bh = "" Then MsgBox "请先输入编号": Exit Sub
    Set rng = Sheets("人口数据库").Columns(1).Find(bh, , , 1)
    If rng Is Nothing Then MsgBox bh & "在人口数据库中不存在": Exit Sub
    r = rng.Row
    ar = Array(.[k4], .[k5], .[k6], .[d5], .[d7], .[d8], .[d6], .[d9], .[d10], .[h10], .[k8], .[k7], .[k9], .[k10], .[k11], .[d11], .[f11], .[i11], .[c12], .[f12], .[i12], .[k12])
End With
With Sheets("人口数据库")
    .Cells(r, 1).Resize(1, 22) = ar
End With
MsgBox "ok!"
End Sub

3190496160

1、代码是根据  自动系统编号  判断对相应行数据做修改的，
2、很多细节为考虑，代码仅为你提供一个思路
3、删除的代码其实更简单，利用目前的代码。判断所在行就可

lihongwe

3190496160 发表于 2020-7-25 09:33
Sub 修改数据()
Dim rng As Range
With Sheets("人口信息登记")

修改已经成功了，谢谢你，确实很好用，

lihongwe

3190496160 发表于 2020-7-25 09:35
1、代码是根据  自动系统编号  判断对相应行数据做修改的，
2、很多细节为考虑，代码仅为你提供一个思路
...

修改都帮我编程好了，如果方便，还是帮我编程一下删除吧，我一点也不会，真的谢谢你了，给你点赞哈哈哈

3190496160

lihongwe 发表于 2020-7-26 09:36
修改都帮我编程好了，如果方便，还是帮我编程一下删除吧，我一点也不会，真的谢谢你了，给你点赞哈哈 ...

毛老人家说过一句话，自己动手丰衣足食

lihongwe

3190496160 发表于 2020-7-26 10:44
毛老人家说过一句话，自己动手丰衣足食

好的，谢谢你，我是很笨，我会努力学好的

3190496160

lihongwe 发表于 2020-7-26 10:50
好的，谢谢你，我是很笨，我会努力学好的

我帮你弄好很简单关键是你自己要学到一点东西在实际应用当中出点小状况你自己才能够处理，其实给你的代码当中就有一句关键的定位行的代码你套用那句代码就可以了呀不懂你可以认真的看一下每一句代码的意思

lihongwe

3190496160 发表于 2020-7-26 11:26
我帮你弄好很简单关键是你自己要学到一点东西在实际应用当中出点小状况你自己才能够处理，其实给你的代码 ...

研究了半天还是不行，提示下标越界
我是真的一点不懂，特意找了语句翻译，还是不合理，现在我只想查找代码，删除本行就可以
下面是我自己做的，没有成功，我觉得我做的，驴唇不对马嘴
Sub ???()
Dim rng As Range
With Sheets("?????????")
    bh = Trim(.[k4])
    If bh = "" Then MsgBox "??????????": Exit Sub
    Set rng = Sheets("????????").Columns(1).Find(bh, , , 1)
    If rng Is Nothing Then MsgBox bh & "???????????в?????": Exit Sub
    If Sheets("????????").[A:A].Find([k4]) = [k4] Then
    Else
    Sheets("????????").Delete shift:=xlUp
MsgBox "????????!"
    End If
    End With
End Sub
在这里也不会打代码，晕死

3190496160

Sub 删除行()
Dim rng As Range
With Sheets("人口信息登记")
    bh = Trim(.[k4])
    If bh = "" Then MsgBox "请先输入编号": Exit Sub
    Set rng = Sheets("人口数据库").Columns(1).Find(bh, , , 1)
    If rng Is Nothing Then MsgBox bh & "在人口数据库中不存在": Exit Sub
    r = rng.Row
End With
With Sheets("人口数据库")
    .Rows(r).Delete
End With
MsgBox "ok!"
End Sub