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

　　近日一个培训机构朋友找到宁子想要帮他做一个人员信息查询管理的小程序，宁子看对于培训机构临时使用的程序，要求不算高，就用ExcelVBA帮他做了一个，需要的朋友可以参考一下，如下图
　　源代码：
　　PrivateSubcmdaddClick（）
　　IfMsgBox（确定在职工档案中添加该员工的记录吗？，vbQuestionvbYesNo，询问）vbYesThen
　　nrowWorksheets（职工档案）。Range（A1）。Range（A1）。CurrentRegion。Rows。Count1
　　Calledit
　　EndIf
　　EndSub
　　PrivateSubcmddelClick（）
　　IfMsgBox（确定将该员工信息移动到删除工作表中吗？，vbQuestionvbYesNo，询问）vbYesThen
　　nrowWorksheets（职工档案）。Range（A1：A65536）。find（Range（C7）。Value，lookat：xlWhole）。Row
　　Worksheets（职工档案）。Rows（nrow）。CopyWorksheets（删除）。Range（A65536）。End（xlUp）。Offset（1，0）
　　Worksheets（职工档案）。Cells（nrow，A）。EntireRow。Delete
　　EndIf
　　EndSub
　　PrivateSubcmdeditClick（）
　　IfMsgBox（确定修改职工档案中该员工的信息吗？，vbQuestionvbYesNo，询问）vbYesThen
　　nrowWorksheets（职工档案）。Range（A1：A65536）。find（Range（C7）。Value，lookat：xlWhole）。Row
　　Calledit
　　EndIf
　　EndSub
　　PrivateSubcmdendClick（）
　　nrowWorksheets（职工档案）。Range（A1）。CurrentRegion。Rows。Count
　　Callfindi
　　EndSub
　　PrivateSubcmdfirstClick（）
　　nrow2
　　Callfindi
　　EndSub
　　PrivateSubcmdformerClick（）
　　Ifnrow2Then
　　MsgBox（不能再往前了）
　　Else
　　nrowWorksheets（职工档案）。Range（A2：A65536）。find（Range（C7）。Value，lookat：xlWhole）。Row1
　　Callfindi
　　EndIf
　　EndSub
　　PrivateSubcmdnextClick（）
　　nrowWorksheets（职工档案）。Range（A1：A65536）。find（Range（C7）。Value，lookat：xlWhole）。Row1
　　Callfindi
　　EndSub