VBAを使用してExcelで複数のグラフを作成

Question

私は300列のワークシートを持ち、同じワークシートにある他の2枚のシートからデータを取り込んで各列に1つの散布図を作成したいと考えています。 問題はVBAに慣れていないことと、一部のエラーコードがまったく役に立たないことです。

Private Sub Create_Charts() 
    Dim sh As Worksheet 
    Dim chrt As Chart 

    For i = 1 To 300 

     Set sh = ActiveWorkbook.Worksheets("Graphs") 
     Set chrt = sh.Shapes.AddChart.Chart 
     With chrt 
      'Data 
      .ChartType = xlXYScatter 
      .SeriesCollection.NewSeries 
      .SeriesCollection(1).Name = "=""Scatter Chart""" 


      'With the following parameters it works: 
      '.SeriesCollection(1).XValues = "=OP!$c$4:$c$1588" 
      '.SeriesCollection(1).Values = "=PV!$c$4:$c$1588" 

      'But I need something like this:     
      .SeriesCollection(1).XValues = CStr(Worksheets("PV").Range(Cells(i, 4), Cells(i, 1588))) 
      .SeriesCollection(1).Values = CStr(Worksheets("OV").Range(Cells(i, 4), Cells(i, 1588))) 

      'Location 
      .ChartArea.Left = 380 * i - 380 
      .ChartArea.Top = 100 
      .ChartArea.Height = 360 
      .ChartArea.Width = 360 

      'Formatting 
      .Axes(xlCategory).HasMajorGridlines = True 
      .Axes(xlValue).HasMajorGridlines = True 
      .HasAxis(xlCategory, xlPrimary) = False 
      .HasAxis(xlValue, xlPrimary) = False 

      .HasLegend = False 


     End With 

    Next i 

End Sub 

Answer 1

この行は列を参照：

.SeriesCollection(1).XValues = "=OP!$c$4:$c$1588" 

これは、行、列1588の列4からi行参照：

.SeriesCollection(1).XValues = CStr(Worksheets("PV").Range(Cells(i, 4), Cells(i, 1588))) 

をしかし、あなたはまた、唯一のない範囲を参照する必要がしかし細胞。そして文字列アドレスを渡す場合は、先行する "="が必要です。ある範囲を渡す方が簡単です。だから、これを試してみてください（「？なぜ、このコードが動作していない」）、デバッグの助けを求めている

Dim wsPV As Worksheet, wsOV As Worksheet 
Dim rngX As Range, rngY As Range 

Set wsPV = ActiveWorkbook.Worksheets("PV") 
Set wsOV = ActiveWorkbook.Worksheets("OV") 

Set rngX = wsPV.Range(wsPV.Cells(4, i), wsPV.Cells(1588, i) 
Set rngY = wsOV.Range(wsOV.Cells(4, i), wsOV.Cells(1588, i) 

chrt.SeriesCollection(1).XValues = rngX 
chrt.SeriesCollection(1).Values = rngY