麻辣家族討論版版 - Powered by Discuz! Board

標題: 統計平均積分總加 [打印本頁]

作者: aok669 時間: 2010-6-12 19:37 標題: 統計平均積分總加

各位前輩好

小弟要統計每一位的積分,
統計10期的準度,G欄開始是期數,
期數中數字為積分(有4,3,2,1,0分)都表示有參與,空白表示未參與,

請問有沒有公式能夠修改成,遇到空白,則往右讀取值,直到有10次的值為止(以G欄為基準)

積分的邏輯一樣,遇到空白,則往右讀取值,直到有10次值的加總

詳檔案
[attach]1239[/attach]
感激不儘

作者: victorl 時間: 2010-6-12 20:59

本帖最後由 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)

作者: aok669 時間: 2010-6-12 21:25

victorl 大大

請問自訂函數怎麼用??

請指導,感恩

作者: victorl 時間: 2010-6-13 02:24

回復 3# aok669

1. Excel 功能表工具 -> 巨集 -> Visual basic編輯器
2. Visual basic編輯器功能表插入->模組
3. 複製2#程式碼並貼入Visual basic編輯器
請參考附圖結果
[attach]1251[/attach]

作者: aok669 時間: 2010-6-13 14:25

回復 3# aok669

victorl 大大已經有插入模組

但是不知道如何運行???

作者: victorl 時間: 2010-6-13 16:50

回復 5# aok669

請參考2#說明
[attach]1259[/attach]

作者: aok669 時間: 2010-6-13 21:49

回復 6# victorl

非常感恩,已經可以使用,原來要在模組插入與貼上,

然後在積分=rr(區間) ,這樣才可以運行,學生受教了

作者: aok669 時間: 2010-6-15 14:06

GBKEE 版大

不好意思,這主題的訊息您有回覆我,不過我剛剛又去看,結果不見了,可否再給一次,感恩感恩

作者: GBKEE 時間: 2010-6-15 15:15

回復 8# aok669

Sub Ex()
Dim R, R1, R2, R3, 次數%
次數 = 10
With Range("D5", [D5].End(xlDown))
.Resize(.Cells.Rows.Count, 2) = ""
For Each R In .Cells
Set R1 = Range(Cells(R.Row, "G"), Cells(R.Row, "IV").End(xlToLeft))
For Each R2 In R1
Set R3 = R2.Resize(1, 次數)
If R3(次數).Column > R1(R1.Count).Column Then Exit For
If Application.CountA(R3) = 次數 Then
'CountA 計算範圍內非空白有資料的個數
R.Value = Application.Sum(R3)
R.Offset(, 1) = 次數 * 6
Exit For
End If
Next
Next
End With
End Sub

複製代碼

作者: birdy0815 時間: 2011-1-14 21:10

來練習看看如何使用正在學習的人自訂函數好像比較簡單但是 vba 完全看不懂

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)