Excel VBA循环绘制GIF图片到文件

最新推荐文章于 2020-05-01 19:18:00 发布

Norrisxia

最新推荐文章于 2020-05-01 19:18:00 发布

阅读量1.6k

点赞数

分类专栏： Excel 文章标签： Excel

本文链接：https://blog.csdn.net/qwe4411222/article/details/39367951

版权

本文介绍如何通过Excel VBA来实现从大量数据中筛选信息，并循环绘制每天的折线图，生成GIF动态图。利用Hive导出的30000+行数据，借助VBA进行高效处理。

摘要由CSDN通过智能技术生成

从数据库里用Hive导出了30000+行的数据，每天31或32个点，要画每天的折线图。

其实用R也可以实现，只不过数据在Excel里，干脆就写了一段VBA。

Sub PicOutput()
    Dim i As Long
    Dim dayCount As Integer
    Dim pointid As String
    Dim iCount(32) As Long
    
    On Error GoTo ExitThis
    
    i = 2
    dayCount = 0
    
    pointid = Sheets(1).Cells(i, 1).Value
    iCount(dayCount) = i
    dayCount = dayCount + 1
    
    For i = 3 To 32923
        If i < 32923 And Sheets(1).Cells(i, 1).Value Like pointid Then
            iCount(dayCount) = i
            dayCount = dayCount + 1
        Else             '画图
            Dim myChart As Chart
            Set myChart = ActiveSheet.Shapes.AddChart.Chart
            With myChart
                .ChartType = xlLine
                .HasTitle = True
                .ChartTitle.Caption = pointid
                .SetSourceData Source:=Wo