使用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
后记:
还是自带的查询功能强大。
记录单也算是个鸡肋功能,可以忽略。