用VBA实现公司文档资料管理PPT课件下载推荐.pptx

1、在代码输入完毕后，单击工具栏中的【退出设计模式】按钮，使添加的命令按钮退出编辑状态，关闭VBA代码窗口返回“读者信息”工作表中。如果在A3单元格中输入一个存在的读者编号，如“SM016”，单击【查询读者】按钮，即可弹出“找到了该读者信息”的提示框，并将光标定位在已经找到的读者信息上，如图12-19所示。实现查询读者的功能实现查询读者的功能具体操作步骤如下：如果在A3单元格中输入一个不存在的读者编号，如“SM520”，单击【查询读者】按钮，即可弹出没有查询到符合条件的读者信息提示框，如图12-20所示。实现删除读者的功能实现删除读者的功能具体操作步骤如下：在【开发工具】选项卡的“控件”选项组中单

2、击【设计模式】按钮，使添加的命令按钮进入编辑状态，双击【删除读者】按钮，进入该命令按钮的代码编辑窗口，在其中输入删除读者功能的程序代码。步骤3：如果在A3单元格中输入一个存在的读者编号，如“SM012”，单击【删除读者】按钮，系统在删除了读者信息后会弹出“读者信息已删除”提示信息，并将光标定位在下一条读者信息上，如图12-21所示。单击【确定】按钮，即可将第3行记录信息清空。步骤4：如果在A3单元格中输入一个不存在的读者编号，如“SM012”，然后单击【删除读者】按钮，系统将自动弹出没有该读者信息，即无法删除的提示信息，如图12-22所示。文档资料信息管理文档资料信息管理建立“文档资料信息”工

3、作表文档资料信息管理 1添加命令按钮 2实现资料订购功能 3实现资料查询的功能 4实现删除资料的功能实现资料订购功能实现资料订购功能具体的操作步骤如下：在“文档资料信息”工作表中按钮的设计模式下双击添加的【订购资料】按钮，进入其代码编辑窗口，在其中输入实现订购资料的功能代码。在代码输入完毕后，单击工具栏中的【退出设计模式】按钮，使添加的命令按钮退出编辑状态，关闭VBA代码窗口返回“文档资料信息”工作表，如果在B3单元格中输入一个已经存在的资料名称，如黑客攻防实战解析，单击【订购资料】按钮，即可弹出如图12-30所示的提示信息。在中可以看出，系统会自动将光标定位在已经找到的文档资料信息所在行上，

4、并完成其入库时间的自动更新功能。实现资料订购功能实现资料订购功能具体的操作步骤如下：如果在B3单元格中输入一个不存在的资料名称，如“摄影技巧108招”，然后单击【订购资料】按钮，即可弹出如图12-31所示的提示信息，同时将光标定位在刚刚添加的文档资料信息行上，而且系统自动将该文档资料的入库时间 设置为当前日期。如果在B3单元格中不输入任何内容，单击【订购资料】按钮，即可弹出如图12-32所示的提示信息。且系统对该文档不执行任何操作，因为该数据表关键字是“资料名称”，即该项目内容不能为空。借阅信息管理借阅信息管理借阅信息工作表处理实现借阅资料的功能实现借阅资料查询的功能实现归还资料的功能 1实现

5、资料归还功能 2.归还资料VBA代码的运行结果实现借阅资料查询的功能实现借阅资料查询的功能具体的操作步骤如下：在【开发工具】选项卡的“控件”选项组中单击【设计模式】按钮，使添加的命令按钮进入编辑状态，双击【借阅信息查询】按钮进入该命令按钮的代码编辑窗口。单击工具栏中的【退出设计模式】按钮，使添加的命令按钮退出编辑状态，关闭VBA代码窗口返回“借阅信息”工作表中。在E3单元格中输入一个已存在的读者编号，如“SM017”，单击【借阅信息查询】按钮，即可得到符合条件的借阅记录并将其他不符合条件的记录隐藏，如图12-46所示。如果在E3单元格中输入一个不存在的读者编号，如“SM520”，单击【借阅信息

6、查询】按钮，即可弹出如图12-47所示的提示信息，并隐藏了不符合条件的所有记录信息。实现归还资料的实现归还资料的功能功能具体的操作步骤如下：单击【设计模式】按钮，使添加的命令按钮进入编辑状态，双击添加的【归还资料】按钮，进入该按钮的代码编辑窗口，在其中输入如下程序代码。在上述代码窗口中添加实现资料归还的代码。如果在E3单元格中输入读者编号“SM007”，单击【归还资料】按钮，即可弹出【资料名称】对话框，在其文本框中输入资料名称“数码单反主题摄影”，如图12-49所示。单击【确定】按钮返回到“借阅信息”工作表中，如图12-50所示。系统自动将搜索到的借阅信息返回到第3行单元格中，并将光标定位在搜

7、索到的单元格上。专家课堂（常见问题与解答）专家课堂（常见问题与解答）点拨点拨1：对某单元格设置了数据有效性后，为什么设置结果无效？解答：当出现这种情况时，请检查在【数据有效性】对话框设置的有效数据内容中，有效数据的分隔符是否是半角状态下的“，”，如果此时用户输入了全角状态的“，”，则设置将会无效。点拨点拨2：在查询借阅资料后，如果想查看所有借阅信息，应该如何操作？如果想查看所有的借阅信息，则需将代码中的“Selection.EntireRow.Hidden=True”修改为“Selection.EntireRow.Hidden=False”。也可以拖动鼠标选中第五行和其下面一行，在左边的行标上右击，在弹出菜单中选择“取消隐藏”选项，也可以显示所有的借阅信息。此外，也可以在Excel中选中需要取消隐藏的行标签，待鼠标变成 形状时，拖动鼠标即可。