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

←解決時は質問者本人がここをチェックしてください。

戻る