今天在写毕业论文的时候发现自己需要画坐标图,在网上找来找去终于找到了方法,下面是记录:
打开excel之后填好数据:
像这样,之后选择要画的坐标点,点击插入散点图,
之后出现的散点图是这样的:
并没有达到预期的目的,因为我想让每个点上都标上序号。
开始:
首先将散点图转换成气泡图,
,好了之后,按Alt+F11进入VBA编辑器,输入 以下代码:
SubAddLabel()
'为气泡图数据系列添加文本数据标签'
DimrRng As Range
Dimi As Integer
OnError GoTo line1
SetrRng = Application.InputBox("选择包含数据标签的列区域", Title:="选择区域", Type:=8)
Selection.ApplyDataLabels
Fori = 1 To rRng.Rows.Count
Selection.Points(i).DataLabel.Text= rRng.Item(i).Text
Nexti
line1:
EndSub
点击运行之后出现
然后直接选择你需要的标签名
确定之后就变成这样:
这样之后就可以直接转换成散点图了
整个图就完成了。