怎样使用VBA利用名称动态显示图表内容？ - 经验大全

随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA利用名称动态显示图表内容？

工具/原料

手机

方法/步骤

1

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

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

在VBA编辑器中插入模块
4

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

Sub 动态图表()

'定义名称

Application.Intersect(ActiveCell.CurrentRegion,

    ActiveCell.CurrentRegion.Offset(0, 1)).Select

    Selection.CreateNames Top:=True

'添加数据有效性

    With [a9].Validation

      .Delete

      .Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop,

        Formula1:="=" & Intersect(Selection, Rows(1)).Address

      .IgnoreBlank=True

      .InCellDropdown=True

    End With

    '生成图表

    ActiveCell.CurrentRegion.Select

    ActiveSheet.Shapes.AddChart.Select

    '修饰图表

    With ActiveChart

      .SetSourceData Source:=ActiveCell.CurrentRegion, PlotBy:=xlColumns

                                            '设置数据源

      .ChartType=xlColumnClustered                      '图表类型

      .SetElement (msoElementDataLabelOutSideEnd)         '显示标签

.Legend.Delete                                     '删除图例

End With

End Sub
5

将光标置于数据区域中任意单元格，用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，工作表中生成一个图表，如图

END

注意事项

智能手机助理给我们的生活带来了极大的便利！

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。

作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。

展开阅读全部

文章评论