Cells(i+9,j).Value=Cells(5,j).Value
Nextj
EndSub
Sub查询图书()
DimhAsLong
DimmAsInteger
DimnAsIntegerSheets("sheet1").Select
IfCells(5,2).Value=""Then
MsgBox"请输入图书名称查询",
vbOKOnly
ExitSub
EndIf
h=Val(Cells(1,3).Value)+8
m=9
DoUntilTrim(Cells(m,2).Value)=
Trim(Cells(5,2).Value)Orm=h
m=m+1
Loop
IfTrim(Cells(m,2).Value)=Trim(Cells(5,
2).Value)Then
Forn=1To5
Cells(5,n).Value=Cells(m,n).Value
Nextn
EndIf
IfTrim(Cells(5,1).Value)=""Then
MsgBox"图书存储区内没有您要查询的
图书!"
ExitSub
EndIf
EndSub
3结束语
本图书管理系统结合了当下势在必行的ExcelVBA编程语言进行开发,通过了在软件中实现的具体功能达到了学以致用的目的。在实际的图书管理中切实做到了方便图书管理者和读者的一般需求。本图书管理系统的用户界面交互性较好、操作起来较为灵活方便,提供数据安全可靠,很好的提高了图书管理者的管理效率,满足了图书管理工作的日常需求,具有较高的现代实际应用价值。
参考文献
[1]顾俐.图书馆图书管理系统的设计[J].中国科技信息,2007(11):175-176.
[2]蒋志荣.计算机管理系统对图书管理的重要影响[J].科技资讯,2013(02):254.
[3]曾雪君.图书管理信息系统的设计与实现[J].图苑论坛,2014(07).
[4]努尔古丽.吐尔逊.图书管理系统的设计与实现[D].吉林:吉林大学,2012.