請問各位高手- Function avg(Rng As Range, dataN%)
- Dim xRng As Range, Tf As Boolean
- Set xRng = Range(Rng, Rng.Offset(0, dataN - 1))
- Tf = WorksheetFunction.Count(xRng) = dataN
- If Tf Then
- avg = WorksheetFunction.Average(xRng)
- Else
- avg = ""
- End If
- End Function
檢查資料時，也並沒發現起始範圍不對，偏偏用迴圈丟入範圍及dataN時，會不定時發生錯誤
該函數是不是有更好的寫法？
麻煩大家不吝指教，謝謝 |
發表於 2018-2-2 13:56
| 
