基于Excel VBA创建高效的图书验收系统.pdfVIP

DATABASEANDINF0RMAⅡ0NMANAGEMENT 数据库与信息管理 呈现相关数 ，以供审核 。标题包括 7列，名称分别为 ： Cells(i，2)．Activate (A列)采集器 ：即是反映到馆图书的预订数据 。 ActiveW indow．SmallScrollDown：-3 (B列)ISBN：由验收人员通过扫描器读入。 UserForm1．WebBrowser1．Document．getElementByld ( ” abe ”1．Value=isbn (C列)图书题名 ：由计算机根据输入 的 ISBN 自动匹配 UserForm1．WebBrowser1．Document．getElementById ( ” 表 1显示 。 abe”)．Crick (D列 )单价 ：由计算机根据输入 的 ISBN 自动匹配表 1 EndIf 显示。 E1se (E列)书单复本 ：由计算机根据输入 的 ISBN 自动匹配 i=ActiveCel1．Row +l Ceils(i，2)．Activate 表 1显示。 EndIf (F列)打包号：由计算机根据输入 的 ISBN 自动匹配表 1 EndSub 显示 。 完成 以上准备工作之后 ，工作人员可 以使用扫描枪连续 (G列 )总册数 ：即统计 ISBN对应 的包 已验收的册数 ， 在表 3中的B列输入 ISBN，无需操作 鼠标和键盘 ，计算机会 由SUMIF函数完成 。 自动呈现该书的详细数据 ，供验收人员与实物核对 。人们都 (1)使用 ExcelVBA设计验收界面及编写相关的事件代 很好奇 ：原来验收工作还可以这样轻松、高效 !实际应用中 码 ，让计算机在验收时，能 自动呈现 图书的相关数据及 自动 的界面如图2所示 。 统计 已验收的相关数据 。在实际验收过程 中，当扫描器读入 ISBN到 Excel表时，VBA程序要完成 以下任务 ： 1)根据输入的 ISBN，在表 3的A列显示表 2上 的对应 的复本数 ；在 C列显示表 1上对应 的题名 ；在 D列显示表 1 上对应 的单价 ；在 E列显示表 1上对应 的复本 ；在 F列显示 表 1上对应的包号：在 G列显示该包 已验收的册数 。 2)将 ISBN填人验收界面内嵌的查询系统，并执行查询 ， 使验收界面呈现馆 内的编 目数据 ，供验收人员查看书商录入 本馆文献管理系统的书 目信息是否符合相关编 目细则的要求。 3)激活表 3．等待输入下一个 I