Excel VBA高效办公应用-第六章-客户资料管理-Part2 （简单查询功能的VBA实现及记录单功能）

使用VBA查询客户资料

代码段如下：

Public Sub query()
'定义用于循环的整型变量
Dim i As Integer
'定义用于保存公司名称的字符串型变量
Dim CompanyName As String
'定义用于保存记录数的整型变量
Dim iCount As Integer
'定义一个判断查询的公司是否在在的布尔变量
Dim CunZai As Boolean
    '把工作表的记录行数赋予iCount
    iCount = Sheets("客户资料").[A1].CurrentRegion.Rows.count
    '让用户输入查询公司的名称
    CompanyName = InputBox("请输入待查询公司的名称：", "公司查询")
    '为CunZai布尔变量赋初值
    CunZai = False
    For i = 3 To iCount
        If Trim(Cells(i, 2).Value) = CompanyName Then
            '改变CunZai布尔变量的值
            CunZai = True
            '输出找到查询的公司提示信息
            MsgBox "查询的公司已经找到!", vbOKOnly, "找到"
            '选择第i行
            Rows(i).Select
            '设置查询选项的底色
            Selection.Interior.ColorIndex = 8
            '选择“客户资料”工作表
            Sheets("客户资料").Select
            Exit For
        End If
    Next i
    If CunZai = False Then
        MsgBox "查询的公司没有找到，请重新核实!", vbOKOnly, "没有找到"
    End If
End Sub

Public Sub openDataForm()
    ActiveSheet.ShowDataForm
End Sub

后记：

还是自带的查询功能强大。

记录单也算是个鸡肋功能，可以忽略。