错误13类型不匹配

-1

我不能工作的原因我发现了一个错误13用下面的代码 - 更具体地在管线8（DSTDEV = ROUND（Application.StDev（rngGrainSummary），3））错误13类型不匹配

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

我不确定我还可以添加哪些东西，对您的所有人都有帮助。请帮忙！

谢谢，马特

来源

2013-06-06 Matteous

_我不确定我还可以添加什么......_您可以包含变量的定义。你的错误可能是因为你没有使用'dStDev（i）'，很难说没有定义。 –

'rngGrainSummary'的初始引用是什么？如果它是单个单元格，那么上面的代码也会引用一个单元格，并且'stdev'将返回一个错误。 – Ioannis

这很令人困惑，因为我们有许多s/sheet使用相同的代码没有问题。很奇怪。 – Matteous

rngGrainSummary。代码工作正常。

来源

2013-06-12 07:52:26 Matteous

也许发网返回错误值，而不是需要至少两组数据来解释双

来源

2013-06-06 06:08:12 JosieP

我们找到了答案是多么嗷嗷待哺的牙齿 - 在rngGrainSummary中需要两行数据。感谢大家的帮助！ – Matteous

错误13类型不匹配

回答

相关问题