第24講 各種グラフの作成
第5話 5教科のレーダーチャート

g
を実現するコード
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
の部分は試行錯誤です。
では、グラフを縦棒グラフ
d
に変更してみましょう。
例によって、
30行下に答を示します。





















答え
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
(素数の実際の存在確率−系列1とガウスの近似式による存在確率-系列2)
のグラフを作っていくことを考えます。


第4話へ 第6話へ
004

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ