随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用VBA批量修改数据标签?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Sub修改图表标签()OnErrorGoTo娣定撰钠errDimiAsB烤恤鹇灭yte,mystrAsString,myrngAsRange,mynumAsBytemystr=Application.InputBox("请输入图表名称","修改标签","图表1",10,10,,,2)mynum=Application.InputBox("请输入需要修改标签文本之标签数序号","标签序号","1",10,10,,,1)Setmyrng=Application.InputBox("请输入目标单元格名称,可以用鼠标选择区域.","引用区域标签","a1",10,10,,,8)ActiveSheet.ChartObjects(mystr).ActivateActiveChart.SeriesCollection(mynum).DataLabels.SelectFori=1ToActiveChart.SeriesCollection(mynum).Points.CountActiveChart.SeriesCollection(mynum).Points(i).DataLabel.Text=myrng.Cells(i,1).ValueNextExitSuberr:MsgBox"输入错误!"EndSub
5、用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,程序分别弹出三个对话框,酋篚靶高需要输入图表名称、标签序号和新标签所在区域