随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA利用名称动态显示图表内容?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Sub动态图表()'定义名称Appl坡纠课柩ication.Intersect烫喇霰嘴(ActiveCell.CurrentRegion,ActiveCell.CurrentRegion.Offset(0,1)).SelectSelection.CreateNamesTop:=True'添加数据有效性With[a9].Validation.Delete.AddType:=xlValidateList,AlertStyle:=xlValidAlertStop,Formula1:="="&Intersect(Selection,Rows(1)).Address.IgnoreBlank=True.InCellDropdown=TrueEndWith'生成图表ActiveCell.CurrentRegion.SelectActiveSheet.Shapes.AddChart.Select'修饰图表WithActiveChart.SetSourceDataSource:=ActiveCell.CurrentRegion,PlotBy:=xlColumns'设置数据源.ChartType=xlColumnClustered'图表类型.SetElement(msoElementDataLabelOutSideEnd)'显示标签.Legend.Delete'删除图例EndWithEndSub
5、将光标置于数据区域中任意单元格,用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,工作表中生成一个图表,如图