mschartで平均値の棒グラフを作るには？ (ID:101341)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 URLのグラフの折れ線のデータ（合計）の値は、関数でなく直接値を入力したものですよね？ Dat(1, 0) = "浅野" Dat(1, 1) = 69 '国語の点数 Dat(1, 2) = 81 '数学の点数 Dat(1, 3) = 73 '英語の点数 Dat(1, 4) = 223 ←sumやavgなどの関数を使いたいんですが、式の求め方はどうなるんでしょうか？ ちなみに成績はaccessに入っているものです。 それと、一応わかりづらいと思いますが。。。 やった回数が10回以上のとき、日付順（科目関係なく）に表示するように作ったものです。 Private Sub Form_Load() Set cn = New ADODB.Connection cn.ConnectionString = "Driver=Microsoft Access Driver (*.mdb);" & "DBQ=ユーザ管理.mdb" cn.Open 'レコードセット取得 Set rs = New ADODB.Recordset rs.Open "成績管理", cn, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rs criteria = CurrentID rs.MoveFirst rs.Filter = "ID = '" & criteria & "'" Dim i As Integer i = rs.RecordCount '回数 Dim arrValues10(1 To 10, 1 To 2) For i = 1 To 10 '回数＞＝10のとき arrValues10(i, 1) = rs!日付 ' ラベル arrValues10(i, 2) = rs!成績 ' 値 rs.MoveNext Next i MSChart1.ChartData = arrValues10 MSChart1.chartType = VtChChartType2dBar End Sub