用VBA实现公司文档资料管理.pptx

正确学会Excel VBA的16堂课用VBA实现公司文档资料管理♂读者信息管理♂文档资料信息管理♂借阅信息管理读者信息管理建立“读者信息”工作表读者信息数据管理 1．添加命令按钮 2. 实现添加读者的功能 3．实现查询读者的功能 4．实现删除读者的功能实现查询读者的功能具体操作步骤如下：步骤1：在【开发工具】选项卡的“控件”选项组中，单击【设计模式】按钮 ，使添加的命令按钮进入编辑状态，双击【查询读者】按钮进入该按钮的代码编辑窗口，在其中输入查询读者功能的程序代码。步骤2：在代码输入完毕后，单击工具栏中的【退出设计模式】按钮 ，使添加的命令按钮退出编辑状态，关闭VBA代码窗口返回“读者信息”工作表中。如果在A3单元格中输入一个存在的读者编号，如“SM016”，单击【查询读者】按钮，即可弹出“找到了该读者信息”的提示框，并将光标定位在已经找到的读者信息上，如图12-19所示。实现查询读者的功能具体操作步骤如下：步骤2：如果在A3单元格中输入一个不存在的读者编号，如“SM520”，单击【查询读者】按钮，即可弹出没有查询到符合条件的读者信息提示框，如图12-20所示。实现删除读者的功能具体操作步骤如下：步骤1：在【开发工具】选项卡的“控件”选项组中单击【设计模式】按钮 ，使添加的命令按钮进入编辑状态，双击【删除读者】按钮，进入该命令按钮的代码编辑窗口，在其中输入删除读者功能的程序代码。步骤2：在代码输入完毕后，单击工具栏中的【退出设计模式】按钮 ，使添加的命令按钮退出编辑状态，关闭VBA代码窗口返回“读者信息”工作表中。步骤3：如果在A3单元格中输入一个存在的读者编号，如“SM012”，单击【删除读者】按钮，系统在删除了读者信息后会弹出“读者信息已删除”提示信息，并将光标定位在下一条读者信息上，如图12-21所示。单击【确定】按钮，即可将第3行记录信息清空。实现删除读者的功能具体操作步骤如下：步骤4：如果在A3单元格中输入一个不存在的读者编号，如“SM012”，然后单击【删除读者】按钮，系统将自动弹出没有该读者信息，即无法删除的提示信息，如图12-22所示。文档资料信息管理建立“文档资料信息”工作表文档资料信息管理 1．添加命令按钮 2．实现资料订购功能 3．实现资料查询的功能 4．实现删除资料的功能实现资料订购功能具体的操作步骤如下：步骤1：在“文档资料信息”工作表中按钮的设计模式下双击添加的【订购资料】按钮，进入其代码编辑窗口，在其中输入实现订购资料的功能代码。步骤2：在代码输入完毕后，单击工具栏中的【退出设计模式】按钮 ，使添加的命令按钮退出编辑状态，关闭VBA代码窗口返回“文档资料信息”工作表，如果在B3单元格中输入一个已经存在的资料名称，如黑客攻防实战解析，单击【订购资料】按钮，即可弹出如图12-30所示的提示信息。在中可以看出，系统会自动将光标定位在已经找到的文档资料信息所在行上，并完成其入库时间的自动更新功能。实现资料订购功能具体的操作步骤如下：步骤3：如果在B3单元格中输入一个不存在的资料名称，如“摄影技巧108招”，然后单击【订购资料】按钮，即可弹出如图12-31所示的提示信息，同时将光标定位在刚刚添加的文档资料信息行上，而且系统自动将该文档资料的入库时间 设置为当前日期。步骤4：如果在B3单元格中不输入任何内容，单击【订购资料】按钮，即可弹出如图12-32所示的提示信息。且系统对该文档不执行任何操作，因为该数据表关键字是“资料名称”，即该项目内容不能为空。借阅信息管理借阅信息工作表处理实现借阅资料的功能实现借阅资料查询的功能实现归还资料的功能 1．实现资料归还功能 2. 归还资料VBA代码的运行结果实现借阅资料查询的功能具体的操作步骤如下：步骤1：在【开发工具】选项卡的“控件”选项组中单击【设计模式】按钮 ，使添加的命令按钮进入编辑状态，双击【借阅信息查询】按钮进入该命令按钮的代码编辑窗口。步骤2：单击工具栏中的【退出设计模式】按钮 ，使添加的命令按钮退出编辑状态，关闭VBA代码窗口返回“借阅信息”工作表中。步骤3：在E3单元格中输入一个已存在的读者编号，如“SM017”，单击【借阅信息查询】按钮，即可得到符合条件的借阅记录并将其他不符合条件的记录隐藏，如图12-46所示。步骤4：如果在E3单元格中输入一个不存在的读者编号，如“SM520”，单击【借阅信息查询】按钮，即可弹出如图12-47所示的提示信息，并隐藏了不符合条件的所有记录信息。实现归还资料的功能具体的操作步骤如下：步骤1：单击【设计模式】按钮 ，使添加的命令按钮进入编辑状态，双击添加的【归还资料】按钮，进入该按钮的代码编辑窗口，在其中输入如下程序代码。步骤2：在上述代码窗口中添加实现资料归还的代码。步骤3：如果在E3单元格中输入读者编号“SM00