Excel VBA高效办公应用-第十四章-Excel图书管理系统

本示例提供了以下功能：

1. 图书资料管理（订阅、搜索、删除）

2. 读者管理（添加、搜索、删除）

3. 借阅图书

4. 归还图书

看上去功能挺齐全，可用Excel实现事务管理系统，在如今的互联网时代，还真是鸡肋啊。

话又说回来，2003年，这个示例或许看起来很酷，麻雀虽小，五脏俱全啊。

好，先来实现一下图书查询功能吧。



Private Sub 搜索资料_Click()
Dim i As Integer '定义用于循环的整型变量
Dim j As Integer '定义用于循环的整型变量
Dim k As Integer '定义用于循环搜索关键字的整型变量
'定义判断资料是否在的布尔变量
Dim CunZai As Boolean
'定义判断资料是否在的数据行中找到匹配
Dim HangCunZai As Boolean
'定义用于保存“资料信息”记录数的整型变量
Dim iRowCount As Integer
'一行记录中各列逐次与搜索关键字匹配，合计匹配次数
Dim iCount As Integer
'把“资料信息”工作表的记录行数赋予iCount
iCount = Sheets("资料信息").[A5].CurrentRegion.Rows.Count + 4
'为CunZai布尔变量赋初值
CunZai = False
'使用For…Next循环语句

For i = 6 To iCount
'开始从每行的第一列开始匹配搜算关键字，重置标记
HangCunZai = False
iRowCount = 0 '列匹配次数重置
For k = 1 To 11
If Trim(Cells(3, 13)) = Trim(Cells(i, k)) Then
'如果有相同记录，使用For…Next循环语句
' For j = 1 To 11
' '把符合条件的记录信息赋予第三行
' Cells(3, j) = Cells(i, j)
' '把CunZai布尔变量的值设为True
' CunZai = True
' Next j
'弹出提示已经搜索到符合条件资料的信息
' MsgBox "已经搜索到符合条件的资料记录！", vbOKOnly, "提示"
'选择符合条件的记录行
HangCunZai = True '发生匹配，退出本次循环
iRowCount = iRowCount + 1
CunZai = True '至少有一行匹配
End If
Next k
'单行匹配结束
If iRowCount < 1 Then
Rows(i).Hidden = True '如果一列都未匹配，则隐藏此行记录
End If
Next i
' '判断是否搜索到资料
' If CunZai = False Then
' '弹出提示没有搜索到符合条件资料的信息
' MsgBox "没有搜索到符合条件的资料记录，请核实！", vbOKOnly, "提示"
' End If
End Sub

原示例只提供了书名查询，经过我这么一改，支持任意关键字的查询，而且，支持多行结果返回。有意思！