在图表中连续添加一个新的系列

经常在家中看到有兄弟伙们问到:如何在工作表中添加动态的图表.现做了个自定义函数,可在工作表中添加动态图表,支持选择连续单元格.
不足之处,还望多提宝贵意见.
函数:
Function MyChart(Optional ByVal MyChart_Name As String = "我的图表", Optional ByVal MyChart_Type As XlChartType =
xlColumnClustered, _
Optional ByVal MyChart_Source As Range = Nothing, Optional ByVal MyChart_Plotby As XlRowCol = xlRows, _
Optional ByVal MyChart_Title As Boolean = True, Optional ByVal MyChart_TitleText As String = "标题", _
Optional ByVal MyChart_HasLegend As Boolean = False, _
Optional ByVal MyChart_Left As Integer = 420, Optional ByVal MyChart_Top As Integer = 250, _
Optional ByVal MyChart_Width As Integer = 300, Optional ByVal MyChart_Height As Integer = 200) As Boolean
参数(可选):
  MyChart_Name As String = "我的图表"          字符型,设置图表的名称,默认值="我的图表"
  MyChart_Type As XlChartType = xlColumnClustered XlChartType枚举,设置图表类型,默认值=xlColumnClustered簇状柱形图
  MyChart_Source As Range = Nothing          单元格对象,设置图表数据源,默认为空
  MyChart_Plotby As XlRowCol = xlRows          XlRowCol枚举,设置图表数据系列的数值是处于行中还是列中,默认值=xlRows行中
  MyChart_Title As Boolean = True             布尔型,设置图表有可见标题,默认值=True有可见标题
  MyChart_TitleText As String = "标题"       字符型,设置图表的标题文本,默认值="标题"
  MyChart_HasLegend As Boolean = False       布尔型,设置图表有图例,默认值=False没有图例
  MyChart_Left As Integer = 420                整型,设置图表的左边距,默认值=420
  MyChart_Top As Integer = 250                整型,设置图表的上边距,默认值=250
  MyChart_Width As Integer = 300             整型,设置图表的宽度,默认值=300
  MyChart_Height As Integer = 200             整型,设置图表的高度,默认值=200

以下为函数代码:
Function MyChart(Optional ByVal MyChart_Name As String = "我的图表", Optional ByVal MyChart_Type As XlChartType =
xlColumnClustered, _
Optional ByVal MyChart_Source As Range = Nothing, Optional ByVal MyChart_Plotby As XlRowCol = xlRows, _
Optional ByVal MyChart_Title As Boolean = True, Optional ByVal MyChart_TitleText As String = "标题", _
Optional ByVal MyChart_HasLegend As Boolean = False, _
Optional ByVal MyChart_Left As Integer = 420, Optional ByVal MyChart_Top As Integer = 250, _
Optional ByVal MyChart_Width As Integer = 300, Optional ByVal MyChart_Height As Integer = 200) As Boolean
Dim Mych As ChartObject    '声明变量为嵌入式图表对象
On Error Resume Next    '如出错,则从出错行下一行开始执行
Set Mych = ActiveSheet.ChartObjects(MyChart_Name)    '设置对象
'MsgBox Err.Number
If Err.Number = -2147024809 Then    '设置对象出错,没有对象
Set Mych = ActiveSheet.ChartObjects.Add(MyChart_Left, MyChart_Top, MyChart_Width, MyChart_Height)    '添加嵌入图表,设置对
象
Mych.Name = MyChart_Name    '设置对象名称
End If
Err.Clear '清除Err对象
On Error GoTo Myerr    '如出错,则执行Myerr语句

With Mych.Chart
.ChartType = MyChart_Type    '图表类型为xlLineMarkers_数据点折线图
.HasTitle = MyChart_Title '图表标题，可见则为 True
If MyChart_Title Then .ChartTitle.Characters.Text = MyChart_TitleText    '图表标题文本
'.ChartTitle.Characters.Font.Size = 12    '设置标题的字号
.SetSourceData Source:=MyChart_Source, PlotBy:=MyChart_Plotby    '为指定图表设置源数据区域
.HasLegend = MyChart_HasLegend    '为False ,图表没有图例
End With
Mych.Activate    '对象激活
MyChart = True    '本函数返回True
Exit Function    '退出函数
Myerr:
MyChart = False    '本函数返回False
End Function

XlChartType 枚举

指定图表类型。

名称	值	描述
xl3DArea	-4098	三维面积图。
xl3DAreaStacked	78	三维堆积面积图。
xl3DAreaStacked100	79	百分比堆积面积图。
xl3DBarClustered	60	三维簇状条形图。
xl3DBarStacked	61	三维堆积条形图。
xl3DBarStacked100	62	三维百分比堆积条形图。
xl3DColumn	-4100	三维柱形图。
xl3DColumnClustered	54	三维簇状柱形图。
xl3DColumnStacked	55	三维堆积柱形图。
xl3DColumnStacked100	56	三维百分比堆积柱形图。
xl3DLine	-4101	三维折线图。
xl3DPie	-4102	三维饼图。
xl3DPieExploded	70	分离型三维饼图。
xlArea	1	面积图
xlAreaStacked	76	堆积面积图。
xlAreaStacked100	77	百分比堆积面积图。
xlBarClustered	57	簇状条形图。
xlBarOfPie	71	复合条饼图。
xlBarStacked	58	堆积条形图。
xlBarStacked100	59	百分比堆积条形图。
xlBubble	15	气泡图。
xlBubble3DEffect	87	三维气泡图。
xlColumnClustered	51	簇状柱形图。
xlColumnStacked	52	堆积柱形图。
xlColumnStacked100	53	百分比堆积柱形图。
xlConeBarClustered	102	簇状条形圆锥图。
xlConeBarStacked	103	堆积条形圆锥图。
xlConeBarStacked100	104	百分比堆积条形圆锥图。
xlConeCol	105	三维柱形圆锥图。
xlConeColClustered	99	簇状柱形圆锥图。
xlConeColStacked	100	堆积柱形圆锥图。
xlConeColStacked100	101	百分比堆积柱形圆锥图。
xlCylinderBarClustered	95	簇状条形圆柱图。
xlCylinderBarStacked	96	堆积条形圆柱图。
xlCylinderBarStacked100	97	百分比堆积条形圆柱图。
xlCylinderCol	98	三维柱形圆柱图。
xlCylinderColClustered	92	簇状柱形圆锥图。
xlCylinderColStacked	93	堆积柱形圆锥图。
xlCylinderColStacked100	94	百分比堆积柱形圆柱图。
xlDoughnut	-4120	圆环图。
xlDoughnutExploded	80	分离型圆环图。
xlLine	4	折线图。
xlLineMarkers	65	数据点折线图。
xlLineMarkersStacked	66	堆积数据点折线图。
xlLineMarkersStacked100	67	百分比堆积数据点折线图。
xlLineStacked	63	堆积折线图。
xlLineStacked100	64	百分比堆积折线图。
xlPie	5	饼图。
xlPieExploded	69	分离型饼图。
xlPieOfPie	68	复合饼图。
xlPyramidBarClustered	109	簇状条形棱锥图。
xlPyramidBarStacked	110	堆积条形棱锥图。
xlPyramidBarStacked100	111	百分比堆积条形棱锥图。
xlPyramidCol	112	三维柱形棱锥图。
xlPyramidColClustered	106	簇状柱形棱锥图。
xlPyramidColStacked	107	堆积柱形棱锥图。
xlPyramidColStacked100	108	百分比堆积柱形棱锥图。
xlRadar	-4151	雷达图。
xlRadarFilled	82	填充雷达图。
xlRadarMarkers	81	数据点雷达图。
xlStockHLC	88	盘高-盘低-收盘图。
xlStockOHLC	89	开盘-盘高-盘低-收盘图。
xlStockVHLC	90	成交量-盘高-盘低-收盘图。
xlStockVOHLC	91	成交量-开盘-盘高-盘低-收盘图。
xlSurface	83	三维曲面图。
xlSurfaceTopView	85	曲面图（俯视图）。
xlSurfaceTopViewWireframe	86	曲面图（俯视线框图）。
xlSurfaceWireframe	84	三维曲面图（线框）。
xlXYScatter	-4169	散点图。
xlXYScatterLines	74	折线散点图。
xlXYScatterLinesNoMarkers	75	无数据点折线散点图。
xlXYScatterSmooth	72	平滑线散点图。
xlXYScatterSmoothNoMarkers	73	无数据点平滑线散点图。

XlRowCol 枚举

指定对应于特定数据系列的数值是处于行中还是列中。

名称	值	描述
xlColumns	2	数据系列在行中。
xlRows	1	数据系列在列中。

Spire.XLS是一款专业的Excel控件，无需安装微软Excel，也能拥有Excel的全套功能，能够为工厂智能化提供完善的Excel需求。

在Excel中添加图表时，我们通常是选择所有的数据区域，但有些时候不是所有的数据都需要显示在图表中的，比如下面的表格中，我们只需要用到其中有填充颜色的那些行的数据，本文将介绍如何使用Spire.XLS组件实现该功能。

Use-Discontinuous-Data-Range-to-Create-Chart-in-Excel-1

代码段：

//创建Workbook实例
Workbook workbook = new Workbook();
//加载Excel文档
workbook.LoadFromFile(@"Input.xlsx");

//获取第一个工作表
Worksheet sheet = workbook.Worksheets[0];

//添加图表
Chart chart = sheet.Charts.Add();
chart.SeriesDataFromRange = false;

//设置图表的位置
chart.LeftColumn = 6;
chart.TopRow = 1;
chart.RightColumn = 12;
chart.BottomRow = 13;

//添加三个系列到图表，调用XlsRange.AddCombinedRange(CellRange cr)方法来为系列设置多个不连贯的数据区域

var cs1 = (ChartSerie)chart.Series.Add();
cs1.Name = sheet.Range["B1"].Value;
cs1.CategoryLabels = sheet.Range["A2:A3"].AddCombinedRange(sheet.Range["A5:A6"]).AddCombinedRange(sheet.Range["A8:A9"]);
cs1.Values = sheet.Range["B2:B3"].AddCombinedRange(sheet.Range["B5:B6"]).AddCombinedRange(sheet.Range["B8:B9"]);
cs1.SerieType = ExcelChartType.LineMarkers;

var cs2 = (ChartSerie)chart.Series.Add();
cs2.Name = sheet.Range["C1"].Value;
cs2.CategoryLabels = sheet.Range["A2:A3"].AddCombinedRange(sheet.Range["A5:A6"]).AddCombinedRange(sheet.Range["A8:A9"]);
cs2.Values = sheet.Range["C2:C3"].AddCombinedRange(sheet.Range["C5:C6"]).AddCombinedRange(sheet.Range["C8:C9"]);
cs2.SerieType = ExcelChartType.LineMarkers;

var cs3 = (ChartSerie)chart.Series.Add();
cs3.Name = sheet.Range["D1"].Value;
cs3.CategoryLabels = sheet.Range["A2:A3"].AddCombinedRange(sheet.Range["A5:A6"]).AddCombinedRange(sheet.Range["A8:A9"]);
cs3.Values = sheet.Range["D2:D3"].AddCombinedRange(sheet.Range["D5:D6"]).AddCombinedRange(sheet.Range["D8:D9"]);
cs3.SerieType = ExcelChartType.LineMarkers; 

//设置图表标题为空
chart.ChartTitle = string.Empty;

//保存文档
workbook.SaveToFile("Output.xlsx");

效果图：

Use-Discontinuous-Data-Range-to-Create-Chart-in-Excel-2

【下载Spire.XLS最新试用版】

Spire.XLS是一款专业的Excel控件，无需安装微软Excel，也能拥有Excel的全套功能，能够为工厂智能化提供完善的Excel需求。

代码段：

//创建Workbook实例
Workbook workbook = new Workbook();
//加载Excel文档
workbook.LoadFromFile(@"Input.xlsx");

//获取第一个工作表
Worksheet sheet = workbook.Worksheets[0];

//添加图表
Chart chart = sheet.Charts.Add();
chart.SeriesDataFromRange = false;

//设置图表的位置
chart.LeftColumn = 6;
chart.TopRow = 1;
chart.RightColumn = 12;
chart.BottomRow = 13;

//添加三个系列到图表，调用XlsRange.AddCombinedRange(CellRange cr)方法来为系列设置多个不连贯的数据区域

var cs1 = (ChartSerie)chart.Series.Add();
cs1.Name = sheet.Range["B1"].Value;
cs1.CategoryLabels = sheet.Range["A2:A3"].AddCombinedRange(sheet.Range["A5:A6"]).AddCombinedRange(sheet.Range["A8:A9"]);
cs1.Values = sheet.Range["B2:B3"].AddCombinedRange(sheet.Range["B5:B6"]).AddCombinedRange(sheet.Range["B8:B9"]);
cs1.SerieType = ExcelChartType.LineMarkers;

var cs2 = (ChartSerie)chart.Series.Add();
cs2.Name = sheet.Range["C1"].Value;
cs2.CategoryLabels = sheet.Range["A2:A3"].AddCombinedRange(sheet.Range["A5:A6"]).AddCombinedRange(sheet.Range["A8:A9"]);
cs2.Values = sheet.Range["C2:C3"].AddCombinedRange(sheet.Range["C5:C6"]).AddCombinedRange(sheet.Range["C8:C9"]);
cs2.SerieType = ExcelChartType.LineMarkers;

var cs3 = (ChartSerie)chart.Series.Add();
cs3.Name = sheet.Range["D1"].Value;
cs3.CategoryLabels = sheet.Range["A2:A3"].AddCombinedRange(sheet.Range["A5:A6"]).AddCombinedRange(sheet.Range["A8:A9"]);
cs3.Values = sheet.Range["D2:D3"].AddCombinedRange(sheet.Range["D5:D6"]).AddCombinedRange(sheet.Range["D8:D9"]);
cs3.SerieType = ExcelChartType.LineMarkers; 

//设置图表标题为空
chart.ChartTitle = string.Empty;

//保存文档
workbook.SaveToFile("Output.xlsx");复制代码

效果图：

【下载Spire.XLS最新试用版】

转载于:https://juejin.im/post/5c8214faf265da2d97112308

SpringBoot之统计后台注册人数的图表

本文章只是提到这个工具的基本使用，并没有后端调用数据的方法，需要自己写

1.创建统计图表的数据库

2.后台需要查找截至前一天的统计数据，不是今天，然后加到上面这种表里面。所以设置定时任务，每天凌晨执行，下图是结构和一个工具类。工具类里面是查找前一天的日期

工具类DateUtil

import java.text.SimpleDateFormat;
import java.util.Calendar;
import java.util.Date;

/**
 * 日期操作工具类
 *
 * @author qy
 * @since 1.0
 */
public class DateUtil {

    private static final String dateFormat = "yyyy-MM-dd";

    /**
     * 格式化日期
     *
     * @param date
     * @return
     */
    public static String formatDate(Date date) {
        SimpleDateFormat sdf = new SimpleDateFormat(dateFormat);
        return sdf.format(date);

    }

    /**
     * 在日期date上增加amount天 。
     *
     * @param date   处理的日期，非null
     * @param amount 要加的天数，可能为负数
     */
    public static Date addDays(Date date, int amount) {
        Calendar now =Calendar.getInstance();
        now.setTime(date);
        now.set(Calendar.DATE,now.get(Calendar.DATE)+amount);
        return now.getTime();
    }

    public static void main(String[] args) {
        System.out.println(DateUtil.formatDate(new Date()));
        System.out.println(DateUtil.formatDate(DateUtil.addDays(new Date(), -1)));
    }
}

定时器

定时器日期自动生成地址

import com.mine.guli.service.StatisticsDailyService;
import com.mine.guli.utils.DateUtil;
import org.springframework.beans.factory.annotation.Autowired;
import org.springframework.scheduling.annotation.Scheduled;
import org.springframework.stereotype.Component;

import java.util.Date;

//定时器
@Component
public class ScheduledTask {

    @Autowired
    private StatisticsDailyService staService;

    //在每天凌晨1点，把前一天的数据进行添加，执行方法，把数据查询进行添加
    @Scheduled(cron = "0 0 1 * * ?")
    public void task1(){
        staService.registerCount(DateUtil.formatDate(DateUtil.addDays(new Date(),-1)));
    }
    
}

3.Vue页面使用ECharts，下载依赖

官网地址

npm install --save echarts@4.1.0

4.整合页面

<template>
  <div class="app-container">
    <!--表单-->
    <el-form :inline="true" class="demo-form-inline">
      <el-form-item>
        <el-select v-model="searchObj.type" clearable placeholder="请选择">
          <el-option label="学员登录数统计" value="login_num"/>
          <el-option label="学员注册数统计" value="register_num"/>
          <el-option label="课程播放数统计" value="video_view_num"/>
          <el-option label="每日课程数统计" value="course_num"/>
        </el-select>
      </el-form-item>
      <el-form-item>
        <el-date-picker
          v-model="searchObj.begin"
          type="date"
          placeholder="选择开始日期"
          value-format="yyyy-MM-dd" />
      </el-form-item>
      <el-form-item>
        <el-date-picker
          v-model="searchObj.end"
          type="date"
          placeholder="选择截止日期"
          value-format="yyyy-MM-dd" />
      </el-form-item>
      <el-button
        :disabled="btnDisabled"
        type="primary"
        icon="el-icon-search"
        @click="showChart()">查询</el-button>
    </el-form>
    <div class="chart-container">
      <div id="chart" class="chart" style="height:500px;width:100%" />
    </div>
  </div>
</template>

<script>
  import echarts from 'echarts'
  import staApi from '@/api/sta'
  export default {
      data() {
        return {
          searchObj: {
            type: '',
            begin: '',
            end: ''
          },
          btnDisabled: false,
          chart: null,
          title: '',
          xData: [],
          yData: []
        }
      },
      methods: {
        showChart() {
          this.initChartData()
          this.setChart()
        },
        // 准备图表数据
        initChartData() {
          staApi.getDataSta(this.searchObj).then(response =>{
            this.xData = response.data.date_calculated
            this.yData = response.data.numDataList
          })
        },
        // 设置图标参数
        setChart() {
          // 基于准备好的dom，初始化echarts实例
          this.chart = echarts.init(document.getElementById('chart'))
          // console.log(this.chart)
          // 指定图表的配置项和数据
          var option = {
            // 标题
            title: {
              text: '数据统计'
            },
            tooltip: {
              trigger: 'axis'
            },
            // 区域缩放，固定的
            dataZoom: [{
              show: true,
              height: 30,
              xAxisIndex: [
                0
              ],
              bottom: 30,
              start: 10,
              end: 80,
              handleIcon: 'path://M306.1,413c0,2.2-1.8,4-4,4h-59.8c-2.2,0-4-1.8-4-4V200.8c0-2.2,1.8-4,4-4h59.8c2.2,0,4,1.8,4,4V413z',
              handleSize: '110%',
              handleStyle: {
                color: '#d3dee5'
              },
              textStyle: {
                color: '#fff'
              },
              borderColor: '#90979c'
            },
              {
                type: 'inside',
                show: true,
                height: 15,
                start: 1,
                end: 35
              }],


            // x轴是类目轴（离散数据）,必须通过data设置类目数据
            xAxis: {
              type: 'category',
              data: this.xData
            },
            // y轴是数据轴（连续数据）
            yAxis: {
              type: 'value'
            },
            // 系列列表。每个系列通过 type 决定自己的图表类型
            series: [{
              // 系列中的数据内容数组
              data: this.yData,
              // 折线图
              type: 'line'
            }]
          }
          this.chart.setOption(option)
        }
      }
  }
</script>

VBA中用自定义函数在工作表中添加动态图表

Excel控件 Spire.XLS系列教程（6）：C# 如何使用不连续的数据区域创建图表

Excel控件 Spire.XLS系列教程（5）：C# 如何使用不连续的数据区域创建图表

【下载Spire.XLS最新试用版】

SpringBoot之Vue添加图表

SpringBoot之统计后台注册人数的图表

本文章只是提到这个工具的基本使用，并没有后端调用数据的方法，需要自己写

1.创建统计图表的数据库

2.后台需要查找截至前一天的统计数据，不是今天，然后加到上面这种表里面。所以设置定时任务，每天凌晨执行，下图是结构和一个工具类。工具类里面是查找前一天的日期

工具类DateUtil

定时器

3.Vue页面使用ECharts，下载依赖

4.整合页面

图表

如何在Python中生成图形和图表

可视化越做越丑？这五个高级图表效果能瞬间抬升你的逼格

如何成为数据分析师系列（一）：可视化图表初阶

Excel中的图表事件

50个最有价值的数据可视化图表（推荐收藏）

Excel2007图表完全剖析 2/8

Excel2007图表完全剖析 8/8

Excel2007图表完全剖析 6/8

Excel2007图表完全剖析 1/8

Excel2007图表完全剖析 5/8

Excel2007图表完全剖析 7/8

Excel2007图表完全剖析 3/8

Excel2007图表完全剖析 4/8

Plotly_Express：新一代可视化神器，精美动态可视化图表仅需一行代码！

Excel中如何使用不连贯的数据来创建图表(C#)

D3 二维图表的绘制系列（二）基础柱状图

pyecharts源码解读（14）图表类包charts之组合图表：时间线轮播TimeLine

flex 图表

可视化图表入门教程

最受欢迎的 50 个数据可视化图表

EXCEL图表之瀑布图

在图表中连续添加一个新的系列

VBA中用自定义函数在工作表中添加动态图表

Excel控件 Spire.XLS系列教程（6）：C# 如何使用不连续的数据区域创建图表

Excel控件 Spire.XLS系列教程（5）：C# 如何使用不连续的数据区域创建图表

【下载Spire.XLS最新试用版】

SpringBoot之Vue添加图表

SpringBoot之统计后台注册人数的图表

本文章只是提到这个工具的基本使用，并没有后端调用数据的方法，需要自己写

1.创建统计图表的数据库

2.后台需要查找截至前一天的统计数据，不是今天，然后加到上面这种表里面。所以设置定时任务，每天凌晨执行，下图是结构和一个工具类。工具类里面是查找前一天的日期

工具类DateUtil

定时器

3.Vue页面使用ECharts，下载依赖

4.整合页面

图表

如何在Python中生成图形和图表

可视化越做越丑？这五个高级图表效果能瞬间抬升你的逼格

如何成为数据分析师系列（一）：可视化图表初阶

Excel中的图表事件

50个最有价值的数据可视化图表（推荐收藏）

Excel2007图表完全剖析 2/8

Excel2007图表完全剖析 8/8

Excel2007图表完全剖析 6/8

Excel2007图表完全剖析 1/8

Excel2007图表完全剖析 5/8

Excel2007图表完全剖析 7/8

Excel2007图表完全剖析 3/8

Excel2007图表完全剖析 4/8

Plotly_Express：新一代可视化神器，精美动态可视化图表仅需一行代码！

Excel中 如何使用不连贯的数据来创建图表(C#)

D3 二维图表的绘制系列（二）基础柱状图

pyecharts源码解读（14）图表类包charts之组合图表：时间线轮播TimeLine

flex 图表

可视化图表入门教程

最受欢迎的 50 个数据可视化图表

EXCEL图表之瀑布图

在图表中连续添加一个新的系列

Excel中如何使用不连贯的数据来创建图表(C#)