想用EXCEL做个路线查询图，不知道能不能实现

来源：百度知道编辑：UC知道时间：2024/06/03 14:40:49

想把公司附近的公交车路线图做成EXCEL表格，然后在查询时直接搜索站点就能显示出坐哪趟车能到达目的地，不知道该如何实现
麻烦各位说的祥细一点好吗？

有宏做，非常简单

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$2" Then

Range(Cells(5, 1), Cells(20, 50)).ClearContents

m = 5

For i = 2 To 8 '公交路线，可以改成更多

For a = 3 To 6 '每条公交站点数，也可以修改成更多

If Sheet2.Cells(i, a) = Sheet1.Cells(2, 2) Then

Sheet1.Cells(m, 1) = Sheet2.Cells(i, 1)

Sheet1.Cells(m, 2) = Sheet2.Cells(i, 2)

Sheet1.Cells(m, 3) = Sheet2.Cells(i, 3)

Sheet1.Cells(m, 4) = Sheet2.Cells(i, 4)

Sheet1.Cells(m, 5) = Sheet2.Cells(i, 5)

Sheet1.Cells(m, 6) = Sheet2.Cells(i, 6)

m = m + 1

End If

End Sub&nbs