如何用EXCEL寫程式計算平均值

帖子: 10
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: window XP
軟體版本: Office 2003
閱讀權限: 10
性別: 女
來自: 高雄
註冊時間: 2011-5-4
最後登錄: 2011-11-8

3^#

發表於 2011-5-8 22:32 | 只看該作者

上面的大大~
小妹的等級數不太夠..無法下載大大的程式T_T
可否請大大傳至小妹的信箱:a79011013@yahoo.com.tw

感謝至極><

帖子: 10
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: window XP
軟體版本: Office 2003
閱讀權限: 10
性別: 女
來自: 高雄
註冊時間: 2011-5-4
最後登錄: 2011-11-8

4^#

發表於 2011-5-9 00:07 | 只看該作者

本帖最後由 GBKEE 於 2011-5-9 07:48 編輯

回復 2# mark15jill
小妹附上範例給您參考~內附小妹手算的解答

感謝大大

範例.rar (3.64 KB)

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兔年全勤獎章

5^#

發表於 2011-5-9 07:57 | 只看該作者

回復 4# a79011013
附檔完全看不懂,請可以再解釋一下

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2011-5-9 09:11 | 只看該作者

回復 4# a79011013

以下是示意圖

以下是用巨集的模組編寫的

Sub xx()

Range("g2").Select
ActiveCell.FormulaR1C1 = (Range("b2") + Range("f2")) / 2
Range("h2").Select
ActiveCell.FormulaR1C1 = ((Range("g2") * (Range("g2") + 1)) / 2)
Range("i2").Select
If Mid(Range("h2"), 3, 1) / 2 = 0 Then
      Range("i2").Value = "單數"
Else
      Range("i2").Value = "偶數"
End If
      Range("j2").Select
If Range("i2").Value = "偶數" Then
      Range("j2").Value = ((h2 + 1) / 2)
Else
      Range("j2").Value = (((h2) / 2) + ((h2 + 1) / 2)) / 2
End If
      Range("k2").Select
      Range("k2").Value = Int((h2 - 0.5 - 1.96 * Sqr((g2 * (g2 + 1) * ((2 * g2) + 1)) / 24)))

End Sub

帖子: 10
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: window XP
軟體版本: Office 2003
閱讀權限: 10
性別: 女
來自: 高雄
註冊時間: 2011-5-4
最後登錄: 2011-11-8

7^#

發表於 2011-5-9 13:03 | 只看該作者

回復 5# GBKEE

希望大大看得懂

感謝

解釋.rar (42.16 KB)

帖子: 10
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: window XP
軟體版本: Office 2003
閱讀權限: 10
性別: 女
來自: 高雄
註冊時間: 2011-5-4
最後登錄: 2011-11-8

8^#

發表於 2011-5-9 13:12 | 只看該作者

回復 6# mark15jill

不是很明白圖示的意思><跟我一開始算的範例答案不太一樣
可以說明裡面的數值的意思是?

如11 21 31 41 51
12 22 32 42 52
...

感謝大大

diabo

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

9^#

發表於 2011-5-9 20:12 | 只看該作者

本帖最後由 diabo 於 2011-5-9 20:17 編輯

(1) K=1 樣本數有 8個(n1=8) X11, X12, ... , X18
(2) 利用 Walsh 平均值來擴大樣本數到36(N=36)個
(3) 點估計，其實就是中位數，用median(W111,W112....)=268.25
(4) a= int(N - 0.5 - 1.96 * (n1*(n1+1)*(2*n1+1)/24)^0.5) = 21
(5) 信賴區間 (a+1) 到 (N-a)

VBA 就讓高手幫忙吧!

diabo

帖子: 10
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: window XP
軟體版本: Office 2003
閱讀權限: 10
性別: 女
來自: 高雄
註冊時間: 2011-5-4
最後登錄: 2011-11-8

10^#

發表於 2011-5-10 00:07 | 只看該作者

回復 9# diabo

0.0請問大大是如何寫的?
可以教步驟麻?

感謝