投稿日	： 2003/09/12(Fri) 14:34
投稿者	： ちゅら
Ｅメール	：
ＵＲＬ	：
タイトル	： 散布図について

intFileNo = FreeFile
　　'シーケンシャル入力モードで seiseki.csv　をオープン
　　Open "seiseki.csv" For Input As #intFileNo
　　intDatN = -1　 ' 0 を初期値にするために
　　'EOF(intFileNo)が True になるまで実行
　　Do Until EOF(intFileNo)
　　　　intDatN = intDatN + 1　　 '件数をカウント
　　　　'データを各変数に読込
　　　　Input #intFileNo, CsvD(0), CsvD(1), CsvD(2), CsvD(3), CsvD(4), _
　　　　　　　　 CsvD(5), CsvD(6), CsvD(7), CsvD(8), CsvD(9), CsvD(10)
　　　　If intDatN = 0 Then　　'項目の部分
　　　　　　For j = 1 To 10
　　　　　　　　sName(j) = CsvD(j)
　　　　　　Next j
　　　　Else
　　　　　　Kamoku(intDatN) = CsvD(0)　'科目名
　　　　　　For j = 1 To 10
　　　　　　　　intDat(j, intDatN) = CInt(CsvD(j))　'点数
　　　　　　Next j
　　　　End If
　　Loop
　　'ファイルを閉じる
　　Close #intFileNo
　　'CSVファイルから読み込んだデータをグラフのデータにセット
　　With MSChart1
　　　　'デフォルトのグラフタイプ（２Ｄ棒）
　　　　.chartType = VtChChartType2dBar
　　　　'列数を３列に設定（国語・数学・英語）
　　　　'図表と関連する現在のデータ グリッド内の列数を設定します
　　　　.ColumnCount = 3
　　　　'CSV ファイルの行と列とは逆になるので注意
　　　　'行数を１０行に設定（生徒毎）
　　　　.RowCount = 10
　　　　For i = 1 To .RowCount　　'行
　　　　　　For j = 1 To .ColumnCount　'列
　　　　　　　　.Column = j
　　　　　　　　.Row = i
　　　　　　　　'配列からデーターを読込
　　　　　　　　.Data = intDat(i, j)　'intDat(行,列)
　　　　　　Next j
　　　　Next i
　　　　'ラベル及び列テキストをセット
　　　　For i = 1 To 10
　　　　　　'図表と関連する現在のデータ グリッド内の特定の行ラベルを設定
　　　　　　.DataGrid.RowLabel(i, 1) = sName(i)　 '生徒名の読み込み
　　　　Next i
　　　　For i = 1 To 3
　　　　　　'図表に関連するグリッド内のデータ列のラベルを設定
　　　　　　.DataGrid.ColumnLabel(i, 1) = Kamoku(i) '科目名
　　　　　　'図の凡例中の系列を識別する文字列を設定
　　　　　　.Plot.SeriesCollection(i).LegendText = Kamoku(i)　'凡例
　　　　Next i
　 End With
End Sub


上は、当サイトの散布図を表示の一部分をコピーしたものなんですが、ここではEXCELから文字を含んだファイルを呼び出して散布図に表示していますが、数値のみのファイルを散布図にするにはどうすればいいんでしょうか？（科目や生徒名などがあって混乱しています）お時間ありましたらレスお願いします。

★ - 散布図について - ちゅら 09/12-14:34No.5882
• Re: 散布図について - 花ちゃん 09/12-14:52 No.5883
  • Re^2: 散布図について - ちゅら 09/12-14:56 No.5884
    • Re^3: これではどうですか？ - 花ちゃん 09/12-16:01 No.5887
      • Re^4: これではどうですか？ - ちゅら 09/12-16:34 No.5890
        • Re^5: これではどうですか？ - 花ちゃん 09/12-18:29 No.5894