EXCEL中如何用VBA编写查询小程序

在Excel中，可以使用VBA（Visual Basic for Applications）编写查询小程序。以下是一个简单的示例，用于查询员工姓名和工资的对应关系：

1. 首先，打开Excel，按下`Alt + F11`键，打开VBA编辑器。

2. 点击菜单栏的`插入`，然后选择`模块`，在模块中输入以下代码：

```vba

Sub 查询员工工资()

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为实际的工作表名称

Dim rng As Range

Dim cell As Range

Dim i As Integer

Dim j As Integer

Dim result As Variant

' 设置要查询的范围

Set rng = ws.Range("A2:B10")

' 遍历范围中的单元格

For i = 1 To rng.Rows.Count

For j = 1 To rng.Columns.Count

If rng.Cells(i, j).Value <> "" Then

' 查找匹配的员工姓名

Set cell = ws.Cells.Find(What:=rng.Cells(i, j).Value, LookIn:=xlValues, LookAt:=xlWhole)

If Not cell Is Nothing Then

' 将结果存储在result变量中

result = result & vbCrLf & rng.Cells(i, j).Value & vbCrLf & rng.Cells(i, j + 1).Value

End If

End If

Next j

Next i

' 输出结果

MsgBox result

End Sub

```

3. 修改代码中的工作表名称（例如，将"Sheet1"替换为实际的工作表名称），然后点击菜单栏的`运行`，或者按`F5`键运行代码。

4. 运行完成后，会弹出一个消息框显示查询结果。