第４話 サインとコサインのグラフ
を実現するコード
Private Sub CommandButton1_Click()
Dim x As Single, y As Single
Dim cn As Integer
cn = 0
For x = -9 To 9 Step 0.01
y = Sin(x)
Cells(1 + cn, 1) = y
cn = cn + 1
Next
ActiveSheet.Shapes.AddChart2(227, xlLineMarkers, 100, 100, 600, 200).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$A$1800")
End Sub
横幅と縦幅は試行錯誤で、様子をつかんでいけば良いですよね。
ところで、消去ボタンはExcelを開いた第１回目だけはエラーしませんが、
第２回目以降はエラーします。
その理由は、
ActiveSheet.ChartObjects("グラフ 1").Activate
におけるグラフの名称が、
２回目はグラフ 2
３回目はグラフ 3
・
・
となってしまうからです。
問題を解消する方法はあるのでしょうが・・・・・
解消する方法がお分かりの方は、メールで教えて頂けると幸いです。
では、次のコサインのグラフを作って下さい。
答は、例によって３０行下です。
答え
Private Sub CommandButton1_Click()
Dim x As Single, y As Single
Dim cn As Integer
cn = 0
For x = -9 To 9 Step 0.01
y = Cos(x)
Cells(1 + cn, 1) = y
cn = cn + 1
Next
ActiveSheet.Shapes.AddChart2(227, xlLineMarkers, 100, 100, 600, 200).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$A$1800")
End Sub
では、次話の課題です。
皆さん、５教科のレーダーチャートを作って下さい。
もちろん、データはランダムデータです。
