投稿日 | : 2004/10/05(Tue) 21:20 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: サンプルについて |
> ちなみに、csvファイルは、MSChartコントロールを使ってグラフを表示する(その1)で
> 作成したseiseki.csvでしょうか?
上記のデータを数値の部分のみ2行10列分だけ使ったものです。
紛らわしいならご自分でデータを作成するなり、下記を試して見て下さい。
でも、上記データを読み込む部分が理解できないと応用もできませんよ。
データの読込は通常のグラフと同じですよ。
但し、散布図なので数値データだけが必要なので項目等の文字列の部分は削除するなり
データを数値にしておかないと、プロパティの値が不正ですとエラーが出ますよ
(サンプルのコードそのままでは)
Private Sub sDataOpen()
'2行10列のデータを読込み
Dim Dat(1, 9) As Integer, j As Long, i As Long
Dat(0, 0) = 69
Dat(0, 1) = 87
Dat(0, 2) = 74
Dat(0, 3) = 71
Dat(0, 4) = 84
Dat(0, 5) = 77
Dat(0, 6) = 77
Dat(0, 7) = 75
Dat(0, 8) = 68
Dat(0, 9) = 87
Dat(1, 0) = 81
Dat(1, 1) = 80
Dat(1, 2) = 82
Dat(1, 3) = 69
Dat(1, 4) = 86
Dat(1, 5) = 70
Dat(1, 6) = 69
Dat(1, 7) = 90
Dat(1, 8) = 88
Dat(1, 9) = 70
With MSChart1
.ColumnCount = 2
.RowCount = 10
'データをセット
For i = 0 To 1
.Column = i + 1
For j = 0 To 9
.Row = j + 1
.Data = Dat(i, j)
Next j
Next i
End With
End Sub