设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel图表与图形 › 120元红包感谢，有偿请坛友写折线图表代码
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理，一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
返回列表 发新帖
查看: 1381|回复: 9

[已解决] 120元红包感谢，有偿请坛友写折线图表代码

[复制链接]
EXCELLMY

TA的精华主题

TA的得分主题
发表于 2020-1-20 09:42 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
本帖最后由 EXCELLMY 于 2020-1-20 12:15 编辑

用代码做折线图.rar (54.78 KB, 下载次数: 314)
代码, 红包, 感谢, 有偿, 坛友
回复

举报

EXCELLMY

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-20 09:44 | 显示全部楼层
[广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★
我的微信A15611155253 梧桐，qq 2512506251,EH
回复

举报

micch

TA的精华主题

TA的得分主题
发表于 2020-1-20 10:02 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★
附件是做好的嘛，没说明都不知道你要做什么

评分

1

查看全部评分

回复

举报

EXCELLMY

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-20 10:05 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
micch 发表于 2020-1-20 10:02
附件是做好的嘛，没说明都不知道你要做什么

用代码实现自动生成这些图表
回复

举报

micch

TA的精华主题

TA的得分主题
发表于 2020-1-20 10:11 | 显示全部楼层
[广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★
那你是希望实现4个表格分别4个折线图，还是一个表格可以四个折线图切换？你所设想的代码做图，是完全用数据源实现做图，还是代码生成做图的数据源

评分

1

查看全部评分

回复

举报

EXCELLMY

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-20 12:15 | 显示全部楼层
[广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★
micch 发表于 2020-1-20 10:11
那你是希望实现4个表格分别4个折线图，还是一个表格可以四个折线图切换？你所设想的代码做图，是完全用数据 ...

方便的时候加一下微信或QQ吧
回复

举报

micch

TA的精华主题

TA的得分主题
发表于 2020-1-20 13:02 | 显示全部楼层
[广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★
  1. Sub test()
  2.     Set shts = Sheets("实际")
  3.     Set shtm = Sheets("目标")
  4.     arr = shts.UsedRange
  5.     r = UBound(arr)
  6. With Sheets("销售额监控")
  7.     ks = .[l1].Value
  8.     bt$ = Replace(.Name, "监控", "")
  9.     n = 1
  10.     Do
  11.         n = n + 1
  12.         If arr(n, 1) >= ks Then Exit Do
  13.     Loop
  14.     Set cht = .ChartObjects(1)
  15.     With cht.Chart
  16.         .ChartTitle.Text = "实际与计划" & bt & "对比图"
  17.         .SeriesCollection(1).Values = shts.Range("F" & n & ":F" & r)
  18.         .SeriesCollection(1).XValues = shts.Range("A" & n & ":A" & r)
  19.         .SeriesCollection(1).Name = "实际"
  20.         .SeriesCollection(2).Values = shtm.Range("E" & n & ":E" & r)
  21.         .SeriesCollection(2).XValues = shts.Range("A" & n & ":A" & r)
  22.         .SeriesCollection(2).Name = "目标"
  23.     End With
  24. End With
  25. End Sub
复制代码

评分

1

查看全部评分

回复

举报

micch

TA的精华主题

TA的得分主题
发表于 2020-1-20 15:00 | 显示全部楼层
[广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★
  1. Sub test2()
  2.     Set shts = Sheets("实际")
  3.     Set shtm = Sheets("目标")
  4.     Dim cht As ChartObject, ws As Worksheet, ks As Date
  5.     arr = shts.UsedRange
  6.     r& = UBound(arr)
  7.     ks = InputBox("请输入开始日期")
  8.     If IsDate(ks) Then
  9.         n& = 1
  10.         Do While n < r
  11.             n = n + 1
  12.             If arr(n, 1) >= ks Then Exit Do
  13.         Loop
  14.         Application.ScreenUpdating = False
  15.         Set ws = Sheets.Add
  16.         With ws
  17.             '.Name = "销售额"
  18.             .[l1] = ks
  19.             Set cht = ws.ChartObjects.Add(.[a5].Left, .[l5].Top, 720, 360)
  20.             With cht.Chart
  21.                 .ChartStyle = 233
  22.                 .ChartType = xlLine
  23.                 .SeriesCollection.NewSeries
  24.                 .SeriesCollection(1).Values = shts.Range("F" & n & ":F" & r)
  25.                 .SeriesCollection(1).XValues = shts.Range("A" & n & ":A" & r)
  26.                 .SeriesCollection(1).Name = "实际"
  27.                 .SeriesCollection(1).Format.Line.Weight = 1.5
  28.                 .SeriesCollection.NewSeries
  29.                 .SeriesCollection(2).Values = shtm.Range("E" & n & ":E" & r)
  30.                 .SeriesCollection(2).XValues = shts.Range("A" & n & ":A" & r)
  31.                 .SeriesCollection(2).Name = "目标"
  32.                 .SeriesCollection(2).Format.Line.Weight = 1.5
  33.                 .Axes(xlCategory).TickLabels.NumberFormatLocal = "m-d;@"
  34.                 .HasTitle = True
  35.                 .ChartTitle.Text = "实际与目标销售额对比图"
  36.                 .ChartArea.Interior.Color = RGB(64, 64, 64)
  37.             End With
  38.         End With
  39.         Application.ScreenUpdating = True
  40.     Else
  41.         MsgBox "请输入正确日期！"
  42.     End If
  43. End Sub
复制代码
重做一个

评分

1

查看全部评分

回复

举报

ranger丶亦

TA的精华主题

TA的得分主题
发表于 2020-1-28 20:59 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
测试一下，学习了
回复

举报

EXCELLMY

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-29 10:14 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
micch 发表于 2020-1-20 15:00
重做一个

希望晚到的鲜花能表达我对老师深深的谢意
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 11:25 , Processed in 0.040351 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表