怎样使用VBA批量修改数据标签？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub修改图表标签()

 

On Error GoTo err

 

Dim i As Byte, mystr As String, myrng As Range, mynum As Byte

 

    mystr=Application.InputBox("请输入图表名称", "修改标签"调屈科, "图表 1", 10,

 

    10, , , 2)

 

    mynum=Application.InputBox("请输入需要修改标签文本之标签数序号",

 

    "标签序号", "1", 10, 10, , , 1)

 

    Set myrng=Application.InputBox("请输入迅脂目标单元格名称,可以用鼠标选择区域.",

 

    "引用区域标签", "a1", 10, 10, , , 8)

 

    ActiveSheet.ChartObjects(mystr).Activate

 

    ActiveChart.SeriesCollection(mynum).DataLabels.Select

 

    For i=1 To ActiveChart.SeriesCollection(mynum).Points.Count

 

    ActiveChart.SeriesCollection(mynum).Points(i).DataLabel.Text=

 

      myrng.Cells(i, 1).Value

 

    Next

 

    Exit Sub

 

err:

 

    MsgBox "输入错误!"

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序分别弹出三个对话框，需要输入图表名追胳称、标签序号和新标签所在区域