Excelで各行のグラフを作成するためにvbaでループを作成しようとすると、sparklinesは機能しません

Question

私はExcelチャート内の各行のグラフを作成するループを作ろうとしています。スパークライン。私はまた、自分が何をしているのか本当に分かっていません。

私はので、私は私が思いついたものを、VBAで私の運をしようとしているC++での最小限の経験を持っている以下の通りです：私は、私はあなたが探していると考えているものと、以下のコードを書き換えました

Sub chartcreation() 
' 
chartcreation Macro 
' 
Sub Main() 

    x$ = 2 

Do While Cells(x$, 2) <> "" 

    Range("A1:Tx$").Select 
    Range("Tx$").Activate 
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select 
    ActiveChart.SetSourceData Source:=Range("MAY!$A$1:$T$1",MAY!A$(x$)$T$x$") 
    ActiveSheet.Shapes("Chart 3").IncrementLeft 380.6249606299 
    ActiveSheet.Shapes("Chart 3").IncrementTop -270 

    x = x + 1 

End Sub 

Answer 1

。これは、列Bの値を持つすべての行を通過し、グラフを作成し、その行の列Uにグラフの左上隅を配置します。

Option Explicit 

Sub Main() 
    Dim strChrt As String 
    Dim ws As Worksheet 
    Dim x As Integer 
    Dim lastRow As Integer 

    Set ws = ActiveSheet 
    lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row 

    For x = 2 To lastRow 
     ws.Range(ws.Cells(x, "A"), ws.Cells(x, "T")).Select 
     ws.Shapes.AddChart2(227, xlLine).Select 

     strChrt = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, "")) 
     ActiveSheet.Shapes(strChrt).Left = ws.Cells(x, "U").Left 
     ActiveSheet.Shapes(strChrt).Top = ws.Cells(x, "U").Top 

    Next x 

End Sub