- 帖子
- 65
- 主題
- 0
- 精華
- 0
- 積分
- 120
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-15
- 最後登錄
- 2010-7-16
|
本帖最後由 victorl 於 2010-6-12 21:02 編輯
回復 1# aok669
自訂函數
Function rr(a As Range) As Double
x = 0: y = 0
For Each aD In a
If Not IsEmpty(aD) Then
y = y + 1
If y > 10 Then Exit For
x = x + aD
End If
Next
If y >= 10 Then rr = x Else rr = y - 10
End Function
用法說明:
積分欄位輸入 =rr(選擇區間)，如果區間之資料不足10筆則結果為負值(for 總號欄位使用)，大於10筆則將前10筆加總
總號欄位使用IF 判斷式即可 E5=if(D5<0,(10+D5)*6,60) |
|
發表於 2010-6-12 20:59
| 
