Excel中Bing Map插件点击点位关联表格行号的实现问询

方案1：辅助列+工作表选择事件 #

1. 添加带标识的行号辅助列
   在数据表格中新增一列（例如列D），输入公式="行号:"&ROW()并下拉填充至所有数据行。这样Bing Maps插件会将该内容识别为文本，不会触发点位放大，同时行号信息会显示在点位提示框中。

2. 编写VBA捕获选择事件
   按下Alt+F11打开VBA编辑器，找到对应数据所在的工作表，插入以下代码：

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       ' 替换为你要填入行号的目标单元格，比如Sheet1的A1
       Const TARGET_CELL As String = "Sheet1!A1"
       ' 替换为你的经纬度数据范围，比如A2:C100
       Const DATA_RANGE As String = "A2:C100"
       
       If Not Intersect(Target, Range(DATA_RANGE)) Is Nothing Then
           ' 从辅助列（这里假设是D列，即Target右侧第2列）提取行号
           Dim rowNum As String
           rowNum = Split(Target.Offset(0, 2).Value, ":")(1)
           Range(TARGET_CELL).Value = rowNum
       End If
   End Sub
   

   调整代码中的TARGET_CELL和DATA_RANGE参数，匹配你的实际表格结构。

方案2：VBA绑定点位点击事件 #

如果方案1不满足需求，可直接给Bing Maps的点位绑定点击事件：

1. 绑定点位事件
   在VBA编辑器中插入模块，添加以下代码：

   Sub BindMapPointClicks()
       Dim bingMap As Object
       Dim mapLayer As Object
       Dim mapPoint As Object
       Dim i As Integer
       
       ' 替换为你的Bing Map所在工作表和控件名称
       Set bingMap = ThisWorkbook.Sheets("Sheet1").Shapes("Bing Map").OLEFormat.Object
       ' 假设点位存储在第一个图层，可根据实际调整索引
       Set mapLayer = bingMap.Layers(1)
       
       For i = 1 To mapLayer.Shapes.Count
           Set mapPoint = mapLayer.Shapes(i)
           mapPoint.OnAction = "WriteRowNumber"
           ' 存储行号到点位名称，这里i+1对应数据起始行（比如数据从第2行开始）
           mapPoint.Name = "Row_" & (i + 1)
       Next i
   End Sub
   
   Sub WriteRowNumber()
       Dim clickedPoint As Object
       Dim rowNum As String
       
       Set clickedPoint = ThisWorkbook.Sheets("Sheet1").Shapes(Application.Caller).OLEFormat.Object
       rowNum = Split(clickedPoint.Name, "_")(1)
       ' 替换为目标单元格
       ThisWorkbook.Sheets("Sheet1").Range("A1").Value = rowNum
   End Sub
   

2. 运行绑定宏
   按下F5运行BindMapPointClicks宏，完成所有点位的点击事件绑定。之后点击地图上的任意点位，对应行号会自动写入指定单元格。

注意事项 #

• 确保Excel已启用宏（文件>选项>信任中心>信任中心设置>宏设置，选择"启用所有宏"）
• 若Bing Maps的图层结构不同，需调整Layers的索引值
• 所有参数（工作表名、数据范围、目标单元格等）需根据你的实际表格修改

内容的提问来源于stack exchange，提问作者Alex Proteau Alpro