员工管理 修改

1 功能描述

两种修改方式。

第1种修改方式：直接填入所有修改后的数据，然后点击[修改员工]按钮进行保存。

运行地果如下。

[A01员工]工作表数据如下。

第2种修改方式：先填写员工编号，点击[根据编号查询员工]，会显示出当前员工的信息；然后在已有属性上修改需要的属性，再点击[修改员工]按钮。

优点：不用修改的字段不用重复录入。

2 主要步骤

步骤1：校验，判断ID是否存在

步骤2：通过Range更新数据

3 完整代码

Sub update()
    '声明变量
    Dim id As String            '要修改的ID
    Dim rowIndexLast As Integer '最后一行的行号
    
    id = Worksheets("B01员工管理").Range("B6").Value
    
    '步骤1：校验，判断ID是否存在
    '通过当前区域获取新行的行号
    rowIndexLast = Worksheets("A01员工").Range("A1").CurrentRegion.Rows.Count
    Debug.Print "rowIndexLast:" & rowIndexLast
    
    '查找单元格
    Set idCell = Worksheets("A01员工").Range("A2:A" & rowIndexLast).Find(id, lookat:=xlWhole)
    
    If idCell Is Nothing Then
        MsgBox "id不存在,无法修改。id:" & id
        Exit Sub
    End If
    

    '步骤2：更新数据
    idCell.Resize(1, 6).Value = Worksheets("B01员工管理").Range("B6:G6").Value
    
    MsgBox "修改成功。", Title:="小步教程www.xiaobuteach.com"

End Sub

4 代码讲解

无

5 测试用例

正常用例：当数据存储表[A01员工]中的ID存在时，修改成功。

异常用例：ID不存在时，“id不存在,无法修改。id:****”。