实现人事档案员工信息管理增删

　　近日一个培训机构朋友找到宁子想要帮他做一个人员信息查询管理的小程序，宁子看对于培训机构临时使用的程序，要求不算高，就用Excel VBA帮他做了一个，需要的朋友可以参考一下，如下图
　　源代码：
　　Private Sub cmdadd_Click()
　　If MsgBox(＂确定在职工档案中添加该员工的记录吗？＂, vbQuestion vbYesNo, ＂询问＂) = vbYes Then
　　nrow = Worksheets(＂职工档案＂).Range(＂A1＂).Range(＂A1＂).CurrentRegion.Rows.Count 1
　　Call edit
　　End If
　　End Sub
　　Private Sub cmddel_Click()
　　If MsgBox(＂确定将该员工信息移动到删除工作表中吗？ ＂, vbQuestion vbYesNo, ＂询问＂) = vbYes Then
　　nrow = Worksheets(＂职工档案＂).Range(＂A1:A65536＂).find(Range(＂C7＂).Value, lookat:=xlWhole).Row
　　Worksheets(＂职工档案＂).Rows(nrow).Copy Worksheets(＂删除＂).Range(＂A65536＂).End(xlUp).Offset(1, 0)
　　Worksheets(＂职工档案＂).Cells(nrow, ＂A＂).EntireRow.Delete
　　End If
　　End Sub
　　Private Sub cmdedit_Click()
　　If MsgBox(＂确定修改职工档案中该员工的信息吗？ ＂, vbQuestion vbYesNo, ＂询问＂) = vbYes Then
　　nrow = Worksheets(＂职工档案＂).Range(＂A1:A65536＂).find(Range(＂C7＂).Value, lookat:=xlWhole).Row
　　Call edit
　　End If
　　End Sub
　　Private Sub cmdend_Click()
　　nrow = Worksheets(＂职工档案＂).Range(＂A1＂).CurrentRegion.Rows.Count
　　Call findi
　　End Sub
　　Private Sub cmdfirst_Click()
　　nrow = 2
　　Call findi
　　End Sub
　　Private Sub cmdformer_Click()
　　If nrow = 2 Then
　　MsgBox (＂不能再往前了＂)
　　Else
　　nrow = Worksheets(＂职工档案＂).Range(＂A2:A65536＂).find(Range(＂C7＂).Value, lookat:=xlWhole).Row - 1
　　Call findi
　　End If
　　End Sub
　　Private Sub cmdnext_Click()
　　nrow = Worksheets(＂职工档案＂).Range(＂A1:A65536＂).find(Range(＂C7＂).Value, lookat:=xlWhole).Row 1
　　Call findi
　　End Sub