創建使用數據從多頁紙張

Question

考慮以下情況下的Excel圖表：

• 我有在它4張單Excel工作簿。
• 每張紙代表一年的四分之一。
• 每片含2列：我現在想創建一個每天收入超過全年的折線圖
  • 日期
  • 收入

。
X軸應從1月1日（第一張紙的第一列的第一行）開始，並在12月31日（第四張紙的第一列的最後一行）結束。
應該有一條線繪製Y軸上當年的每日銷售額。

Answer 1

我認爲最直接的事情就是將第五張表添加到工作簿中，該工作簿引用其他4張工作表中的單元格。然後根據第五張表中的數據創建圖表。如果你使用折線圖，X軸是預定義的，但在你的情況下，你希望你的X軸是日期。

Answer 2

這裏有一個子程序，讓你開始添加自動化圖表

Sub zx() 
    Dim wb As Workbook 
    Dim sh As Worksheet 
    Dim Chrt As Chart 
    Dim Srs As Series 

    Set wb = ActiveWorkbook 
    Set Chrt = wb.Charts.Add(After:=wb.Worksheets(wb.Worksheets.Count)) 
    Chrt.ChartType = xlXYScatterLines 
    Chrt.SeriesCollection(1).Delete 
    Chrt.Name = "Annual Trend" 

    Set Srs = Chrt.SeriesCollection.NewSeries 
    Srs.Name = "Q1" 
    Set sh = wb.Sheets("Quarter1") 
    Srs.XValues = "=" & sh.Name & "!" & sh.UsedRange.Columns(1).Address 
    Srs.Values = "=" & sh.Name & "!" & sh.UsedRange.Columns(2).Address 

    Set Srs = Chrt.SeriesCollection.NewSeries 
    Srs.Name = "Q2" 
    Set sh = wb.Sheets("Quarter2") 
    Srs.XValues = "=" & sh.Name & "!" & sh.UsedRange.Columns(1).Address 
    Srs.Values = "=" & sh.Name & "!" & sh.UsedRange.Columns(2).Address 

    Set Srs = Chrt.SeriesCollection.NewSeries 
    Srs.Name = "Q3" 
    Set sh = wb.Sheets("Quarter3") 
    Srs.XValues = "=" & sh.Name & "!" & sh.UsedRange.Columns(1).Address 
    Srs.Values = "=" & sh.Name & "!" & sh.UsedRange.Columns(2).Address 

    Set Srs = Chrt.SeriesCollection.NewSeries 
    Srs.Name = "Q4" 
    Set sh = wb.Sheets("Quarter4") 
    Srs.XValues = "=" & sh.Name & "!" & sh.UsedRange.Columns(1).Address 
    Srs.Values = "=" & sh.Name & "!" & sh.UsedRange.Columns(2).Address 
End Sub