在多個工作表作平均值計算，出現RANGE方法(_worksheet物件)失敗之錯誤

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-3-20 06:43 | 顯示全部帖子

回復 1# tsunamix03

你這程式碼是否在 Sheets(2)工作表物件模組裡!

試試看

Option Explicit
Sub Ex()
Dim col As Integer, p_today As Single, R As Integer, i As Integer, avg As Double
For i = 2 To 9 '在工作表2至工作表9作計算
col = 3
With Sheets(i)
Do While .Cells(1, col) <> ""
If IsNumeric(.Cells(65536, col + 1).End(xlUp).Value) Then '如果是數字
p_today = .Cells(65536, col + 1).End(xlUp).Value '行號(col+1) 存有每天的資料
Else
p_today = 0
End If
' Sheets(i).Activate
' Sheets(i).Cells(65536, col + 1).End(xlUp).Select
R = .Cells(65536, col + 1).End(xlUp).Row
avg = Application.Average(.Range(.Cells(R - 259, col + 1), .Cells(R, col + 1)))
.Cells(65536, col).Value = avg '行號col 放置260天平均值
col = col + 2
Loop
End With
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。