統計平均積分總加

aok669

各位前輩 好

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

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


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

詳檔案
a.rar (11.85 KB)

下載次數: 17

2010-6-12 19:36

感激不儘

victorl

回復 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

victorl 大大

請問自訂函數怎麼用??

請指導,感恩

victorl

回復 3# aok669


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

下載 (44.4 KB)

2010-6-13 02:23

aok669

回復 3# aok669


    victorl 大大 已經 有插入模組

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

victorl

回復 5# aok669


    請參考2#說明

下載 (65.42 KB)

2010-6-13 16:50

aok669

回復 6# victorl


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

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

aok669

GBKEE 版大

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

GBKEE

回復 8# aok669

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

複製代碼

birdy0815

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