• 一周人事:国务院发布任免刘伟当选北京市总工会主席 2019-05-25
  • 张雪迎搞笑配音“小猪佩奇” 与粉丝庆祝生日 2019-05-25
  • 千年端午,赓续不绝的传统文化弦歌 2019-05-21
  • 端午期间 南昌站与南昌西站共加开旅客列车45列 2019-05-19
  • 蜈蚣精的出游必备战靴 旅行路上皆战场 2019-05-19
  • [大笑]所以房价高企跟阶级没关系,真正的原因在你们自己身上,别人不过是利用了你们的贪婪和无知而矣! 2019-05-18
  • 南昌未来三天有连续性降雨 最高气温均在30℃以上 2019-05-10
  • 近七成青年择偶“愿等待不愿将就” 单身三大原因 2019-05-08
  • [车]——古代没有我们这个时代所拥有的现代化的人造物质构成体;古人没有更多的追求,只要吃好、穿好也就满足了。 2019-05-08
  • 省招生考试管理中心发出中考温馨提示 2019-05-06
  • 回复@笑傲江湖V:七千二百多吧。 2019-04-26
  • 改革开放必须坚持以自我革命推进社会革命 2019-04-25
  • 美方一意孤行必将损人害己 2019-04-19
  • 珠海高栏港经济区2020年村容村貌将明显改观 2019-04-18
  • 北京一官员借单位换楼贪污受贿31万 退赃获轻判 2019-04-18
  • 今天足球赛程:VBA+公式 轻松制作动态图表

    CFan 电脑爱好者 2018-11-19 09:11应用 标签:图表 公式 制作 动态

    德乙积分榜2018-2019 www.s21l.net 在Excel中制作动态图表,传统的方法是利用表单控件与单元格链接,从而获取图表所需要数据。其实,不用控件,只需几句VBA代码,加上几个HYPERLINK公式,也可以轻松制作出动态图表。

    1810A-DTTB-1

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

    Function techart(rng As Range)

    Sheet1.[J2]=rng.Value

    End Function

    1810A-DTTB-2

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

    1810A-DTTB-3

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

    1810A-DTTB-4

    这样,当鼠标点击单元格中的品牌名称时,图表发生了相应变化,图标标题等也发生了相应变化。动态图表制作完成。

     

  • 一周人事:国务院发布任免刘伟当选北京市总工会主席 2019-05-25
  • 张雪迎搞笑配音“小猪佩奇” 与粉丝庆祝生日 2019-05-25
  • 千年端午,赓续不绝的传统文化弦歌 2019-05-21
  • 端午期间 南昌站与南昌西站共加开旅客列车45列 2019-05-19
  • 蜈蚣精的出游必备战靴 旅行路上皆战场 2019-05-19
  • [大笑]所以房价高企跟阶级没关系,真正的原因在你们自己身上,别人不过是利用了你们的贪婪和无知而矣! 2019-05-18
  • 南昌未来三天有连续性降雨 最高气温均在30℃以上 2019-05-10
  • 近七成青年择偶“愿等待不愿将就” 单身三大原因 2019-05-08
  • [车]——古代没有我们这个时代所拥有的现代化的人造物质构成体;古人没有更多的追求,只要吃好、穿好也就满足了。 2019-05-08
  • 省招生考试管理中心发出中考温馨提示 2019-05-06
  • 回复@笑傲江湖V:七千二百多吧。 2019-04-26
  • 改革开放必须坚持以自我革命推进社会革命 2019-04-25
  • 美方一意孤行必将损人害己 2019-04-19
  • 珠海高栏港经济区2020年村容村貌将明显改观 2019-04-18
  • 北京一官员借单位换楼贪污受贿31万 退赃获轻判 2019-04-18
  • 北京赛车pk10人工计划 大乐透走势图带连线 北京pc官网开奖结果 河北时时彩快三 彩票走势图 北京赛车pk10走势图 北京赛车开奖记录 福彩3d和尾走势图 北京赛车玩法多的平台 欢乐生肖福彩 幸运飞艇开奖真的吗 三分彩是真的假的 快赢481视频 pk10龙虎是什么 山东体彩快乐扑克3新浪 35选7中奖规则