投稿日	： 2003/09/12(Fri) 16:01
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: これではどうですか？

下記ならどうですか？

Private Sub sDataOpen()
'CSVファイルから2行10列のデータを読込み
    Dim CsvD(10) As String, j          As Long
    Dim intDatN  As Integer, intFileNo As Integer
    intFileNo = FreeFile
    Open "seiseki.csv" For Input As #intFileNo
    intDatN = -1
    With MSChart1
        .chartType = VtChChartType2dBar
        .ColumnCount = 2
        .RowCount = 10
        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)
            .Column = intDatN + 1
            For j = 0 To 9
                .Row = j + 1
                .Data = CInt(CsvD(j))
            Next j
        Loop
        Close #intFileNo
     End With
End Sub

★ - 散布図について - ちゅら 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