第５話 ５教科のレーダーチャート
を実現するコード
Private Sub CommandButton1_Click()
Dim x As Byte, y As Byte
Dim cn As Byte
cn = 0
For x = 0 To 4
y = Int(100 * Rnd)
Cells(1 + cn, 2) = y
cn = cn + 1
Next
Cells(1, 1) = "国語"
Cells(2, 1) = "社会"
Cells(3, 1) = "数学"
Cells(4, 1) = "理科"
Cells(5, 1) = "英語"
ActiveSheet.Shapes.AddChart2(317, xlRadar, 100, 100, 300, 300).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$5")
End Sub
パラメータ
317, xlRadar
などはもちろんマクロの記録から学びました。
100, 100, 300, 300
の部分は試行錯誤です。
では、グラフを縦棒グラフ
に変更してみましょう。
例によって、
３０行下に答を示します。
答え
Private Sub CommandButton1_Click()
Dim x As Byte, y As Byte
Dim cn As Byte
cn = 0
For x = 0 To 4
y = Int(100 * Rnd)
Cells(1 + cn, 2) = y
cn = cn + 1
Next
Cells(1, 1) = "国語"
Cells(2, 1) = "社会"
Cells(3, 1) = "数学"
Cells(4, 1) = "理科"
Cells(5, 1) = "英語"
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered, 100, 100, 300, 300).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$5")
End Sud
さて、次話以降では
（素数の実際の存在確率−系列1とガウスの近似式による存在確率-系列2)
のグラフを作っていくことを考えます。
