用excel制作二维坐标图并显示每个坐标名称

Hale_2

于 2025-03-11 15:26:44 发布

阅读量241

点赞数 3

文章标签： excel

本文链接：https://blog.csdn.net/fight_new/article/details/146179928

版权

用excel制作二维坐标图并显示每个坐标名称，如将下表

做成如下图

制作方法：

选中重要性得分和可行性得分两列数据
点击菜单栏「插入」→「图表」→「散点图」
按Alt+F11(注意是否需要开启Fn锁定)打开VBA编辑器，粘贴以下代码：
选中图表 → 按Alt+F8 → 选择AddScatterLabels→ 运行
选择“项目名称”区域

Sub AddScatterLabels()
    Dim rngLabels As Range
    Dim i As Integer
    
    On Error Resume Next
    Set rngLabels = Application.InputBox("选择项目名称区域（如A2:A9）", Type:=8)
    
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    For i = 1 To rngLabels.Rows.Count
        ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = rngLabels.Cells(i).Text
    Next i
End Sub