roman_holidayのプロフィール

およそ12000~15000ほどある2列のデータを散布図で描画し、y値の大きい物だけデータラベルを表示させるマクロを作りました。 最初は全データを表示するようにしていて、その時は上手く動いていたのですが一部のみを表示するように書き直したところ、HasDataLabelの所で「1004：パラメータが無効です」のエラーが出るようになりました。 色々値を変えて調べてみたところRangeで指定する範囲の値によってエラーが出たりでなかったりしていました。およそ3800行辺りを指定するとエラーになるようです。 どう対処すれば良いかまるで分からないので対処法について至急ご教示願います。 以下ソースです。よろしくお願いします。 Option Explicit Sub makechart() '変数定義 Dim cmax As Long, i As Long, st As Long, en As Long, cst As Long, cen As Long Dim x As Double, y As Double Dim ws1 As Worksheet Dim alldata As Range, spectrum As Range Dim ChartObj As Object Set ws1 = Worksheets("022") cmax = ws1.Range("A1048576").End(xlUp).Row '範囲指定 st = 450 en = 500 'セルの初期位置 i = 8 x = Val(Cells(i, 1).Value) Do While x < st And i <= cmax i = i + 1 If (i > cmax) Then MsgBox ("下限値オーバー") End End If x = Val(Cells(i, 1).Value) Loop cst = i Do While x < en And i <= cmax i = i + 1 If (i > cmax) Then MsgBox ("上限値オーバー") End End If x = Val(Cells(i, 1).Value) Loop cen = i Set alldata = Range("A8:B" & cmax) Set spectrum = Range("A" & cst & ":B" & cen)　←この値によってエラーが出たり出なかったりする With ActiveSheet.Shapes.AddChart.Chart '散布図追加 .ChartType = xlXYScatter .SetSourceData spectrum For i = cst To cmax x = Val(Cells(i, 1).Value) y = Val(Cells(i, 2).Value) If (y > 1000000) Then .SeriesCollection(1).Points(i).HasDataLabel = True　←ここでエラー .SeriesCollection(1).Points(i).DataLabel.Text = Str(x) .SeriesCollection(1).Points(i).DataLabel.Position = xlLabelPositionAbove End If Next i End With End Sub

およそ12000~15000ほどある2列のデータを散布図で描画し、y値の大きい物だけデータラベルを表示させるマクロを作りました。 最初は全データを表示するようにしていて、その時は上手く動いていたのですが一部のみを表示するように書き直したところ、HasDataLabelの所で「1004：パラメータが無効です」のエラーが出るようになりました。 色々値を変えて調べてみたところRangeで指定する範囲の値によってエラーが出たりでなかったりしていました。およそ3800行辺りを指定するとエラーになるようです。 どう対処すれば良いかまるで分からないので対処法について至急ご教示願います。 以下ソースです。よろしくお願いします。 Option Explicit Sub makechart() '変数定義 Dim cmax As Long, i As Long, st As Long, en As Long, cst As Long, cen As Long Dim x As Double, y As Double Dim ws1 As Worksheet Dim alldata As Range, spectrum As Range Dim ChartObj As Object Set ws1 = Worksheets("022") cmax = ws1.Range("A1048576").End(xlUp).Row '範囲指定 st = 450 en = 500 'セルの初期位置 i = 8 x = Val(Cells(i, 1).Value) Do While x < st And i <= cmax i = i + 1 If (i > cmax) Then MsgBox ("下限値オーバー") End End If x = Val(Cells(i, 1).Value) Loop cst = i Do While x < en And i <= cmax i = i + 1 If (i > cmax) Then MsgBox ("上限値オーバー") End End If x = Val(Cells(i, 1).Value) Loop cen = i Set alldata = Range("A8:B" & cmax) Set spectrum = Range("A" & cst & ":B" & cen)　←この値によってエラーが出たり出なかったりする With ActiveSheet.Shapes.AddChart.Chart '散布図追加 .ChartType = xlXYScatter .SetSourceData spectrum For i = cst To cmax x = Val(Cells(i, 1).Value) y = Val(Cells(i, 2).Value) If (y > 1000000) Then .SeriesCollection(1).Points(i).HasDataLabel = True　←ここでエラー .SeriesCollection(1).Points(i).DataLabel.Text = Str(x) .SeriesCollection(1).Points(i).DataLabel.Position = xlLabelPositionAbove End If Next i End With End Sub