jⅩ吉祥棋牌|下分真人棋牌游戏
学电脑知识

VBA+公式 轻松制作动态图表

学电脑知识 http://www.oifzc.tw 2018-11-25 19:29 出处:网络 编辑:@学电脑
在Excel中制作动态图表,传统的方法是利用表单控件与单元格链接,从而获取图表所需要数据。其实,不?#27599;?#20214;,只需几句VBA代码,加上几个HYPERLINK公式,也可以轻松制作出动态图表。

在Excel中制作动态图表,传统的方法是利用表单控件与单元格链接,从而获取图表所需要数据。其实,不?#27599;?#20214;,只需几句VBA代码,加上几个HYPERLINK公式,也可以轻松制作出动态图表。

VBA+公式 轻松制作动态图表

首先打开存放制作图表所需数据的工作表,选择“开发工具”选项卡,点击Visual Basic,在出现的VBA代码编辑窗口中,点击?#23433;?#20837;→模块”,输入如下三行代码。

Function techart(rng As Range)

Sheet1.[J2]=rng.Value

End Function

VBA+公式 轻松制作动态图表

退出VBA窗口,在工作表的J2单元格?#25105;?#36755;入数据源中已存在的矿泉水名称,如“百岁山”,在J3单元格输入“=HLOOKUP($J$2,B$2:G3,ROW()-1,FALSE)”,并下拉填充至所需要的单元格,如J14。选中J2:J14单元格数据区域,选择?#23433;?#20837;”选项卡,插入折线图。?#19968;?#22270;表中的折线系列,选择“设置数据系列格式”,在系列选项的“填充与线条”中,设置无线条,点击“标记”选项卡,数据标记选项下,选择“内置”,选择所需要的类型,设置好大小、填充及线条颜色等;?#19968;?#22270;表系列,选择“添加数据标签”,设置好数据标签的位置、字体、大小?#21462;?#36873;中图表,选择“设计”选项卡,添加图表元素,选择“线条→垂直线”,?#19968;?#22270;表中添加的垂直线,选择“设置垂直线”,设置好所需要的颜色和粗细;删除图表中的网格线,设置好图表的背景色。调整好图表大小,并与相应单元格对齐。

VBA+公式 轻松制作动态图表

接下来,在L16单元格输入“=IFERROR(HYPERLINK(techart(B2)),"*"&B2&"*"&REPT(" ",35))”,在O16单元格输入“=IFERROR(HYPERLINK(techart(C2)),"*"&C2&"*"&REPT(" ",35))”,这样,单元格就都显示出了相应矿泉水的?#25918;?#21517;称。同理,在L17:O18单元格中输入相应公式以显示其他矿泉水?#25918;?#21517;称。最后,在L1单元格中输入“=CONCATENATE("某批发部 ",$J$2," ?#25918;?#30719;泉水销售统计")”,选中L1:Q1单元格区域,对齐方式为“跨列居中”,设置好填充色及字体颜色、大小等,选中L16:O18单元格,设置好它们的填充色及文字颜色、大小?#21462;?/p>

VBA+公式 轻松制作动态图表

这样,?#31508;?#26631;点击单元格中的?#25918;?#21517;称时,图表发生了相应变化,图标标题等也发生了相应变化。动态图表制作完成。


0

精彩评论

jⅩ吉祥棋牌 江苏快3二不同投注技巧 17124抓规律 北京幸运赛车开奖结果 云南十一选五 博远棋牌网站 军辉17140双色球蓝球 云南十一选五今天开奖 黑彩票平台都有哪些 双色球历史开奖记录 山西省新11选5走势图