統計平均積分總加

帖子: 38
主題: 5
精華: 0
積分: 67
點名: 0
作業系統: winXP 和 win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-1-9
最後登錄: 2013-1-21

10^#

發表於 2011-1-14 21:10 | 只看該作者

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

9^#

發表於 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

複製代碼

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2010-6-2
最後登錄: 2010-12-16

論壇贊助勳章

8^#

發表於 2010-6-15 14:06 | 只看該作者

GBKEE 版大

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

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2010-6-2
最後登錄: 2010-12-16

論壇贊助勳章

7^#

發表於 2010-6-13 21:49 | 只看該作者

回復 6# victorl

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

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

victorl

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

6^#

發表於 2010-6-13 16:50 | 只看該作者

回復 5# aok669

請參考2#說明

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2010-6-2
最後登錄: 2010-12-16

論壇贊助勳章

5^#

發表於 2010-6-13 14:25 | 只看該作者

回復 3# aok669

victorl 大大已經有插入模組

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

victorl

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

4^#

發表於 2010-6-13 02:24 | 只看該作者

回復 3# aok669

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

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2010-6-2
最後登錄: 2010-12-16

論壇贊助勳章

3^#

發表於 2010-6-12 21:25 | 只看該作者

victorl 大大

請問自訂函數怎麼用??

請指導,感恩

victorl

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

2^#

發表於 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)