-1

次のコードでエラー 13 が発生する理由がわかりません。具体的には 8 行目 (dStDev = Round(Application.StDev(rngGrainSummary), 3)) 

    Dim i As Long                   'generic counter
Dim nColumns As Long            'number of grain sizes to plot
Dim iSeries As Series           'i-th series
Dim nSeries As Long             'total number of series
Dim rngIDNode As Range          'ID node of data worksheet
Dim rngGrainSummary As Range    'range including all current grain size data
Dim rngLimitNode As Range       'last specification cell of data worksheet


  'find the stats by moving rngGrainSummary right incrementally
'rounding necessary due to constraint on string length of absolutely assigned y values
For i = 1 To nColumns
    Set rngGrainSummary = rngGrainSummary.Offset(0, 1)
    dMean(i) = Round(Application.Average(rngGrainSummary), 3)
    dMax(i) = Round(Application.Max(rngGrainSummary), 3)
    dMin(i) = Round(Application.Min(rngGrainSummary), 3)
    dStDev = Round(Application.StDev(rngGrainSummary), 3)
    dStDevAbove(i) = dMean(i) + dStDev
    dStDevBelow(i) = dMean(i) - dStDev
Next

他に何を追加できるかはわかりませんが、皆さんの助けになります。助けてください！

ありがとう、マット

4

2 に答える 2

0

rngGrainSummary を解釈するには、少なくとも 2 セットのデータが必要でした。コードは正常に動作します。

于 2013-06-12T07:52:26.477 に答える