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

標題: 如何用EXCEL寫程式計算平均值 [打印本頁]

作者: a79011013 時間: 2011-5-4 13:33 標題: 如何用EXCEL寫程式計算平均值

各位大大好:
小妹在此有個棘手問題想請大大們幫忙,
小妹初學VB 對VB應用並不熟析, 但卻需再短時間內寫出迴圈程式
圖書館VB課本翻了再翻,依舊不知如何應用
由於時間的緊迫不允許小妹慢慢的研究急需個位高手幫忙!
想請問各位大大,如何使用Do..loop..while 寫出以下的迴圈?

作者: mark15jill 時間: 2011-5-4 16:05

本帖最後由 mark15jill 於 2011-5-4 17:21 編輯

+.+ 平均值
EXCEL 預設就有公式了..
不過看了一下所附帶的檔案(DOC檔案)
似乎不是單純平均值吧...
能的話能否麻煩樓主弄個簡易EXCEL檔案作範例呢...
看那個看的很暈..

PS 不知道是我做的試驗品有缺失還是怎樣 a值竟然出現負的...+.+

附上單一筆資料的試驗品如果確定是樓主要的我在繼續往下+.+

[attach]5967[/attach]

作者: a79011013 時間: 2011-5-8 22:32

上面的大大~
小妹的等級數不太夠..無法下載大大的程式T_T
可否請大大傳至小妹的信箱:[email protected]

感謝至極><

作者: a79011013 時間: 2011-5-9 00:07

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

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

感謝大大

作者: GBKEE 時間: 2011-5-9 07:57

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

作者: mark15jill 時間: 2011-5-9 09:11

回復 4# a79011013

以下是示意圖
[attach]6074[/attach]

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

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

作者: a79011013 時間: 2011-5-9 13:03

回復 5# GBKEE

希望大大看得懂

感謝

作者: a79011013 時間: 2011-5-9 13:12

回復 6# mark15jill

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

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

感謝大大

作者: diabo 時間: 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)

[attach]6085[/attach]

VBA 就讓高手幫忙吧!

作者: a79011013 時間: 2011-5-10 00:07

回復 9# diabo

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

感謝

作者: diabo 時間: 2011-5-10 21:25

回復 10# a79011013

[attach]6110[/attach]

作者: a79011013 時間: 2011-5-10 22:45

回復 11# diabo
感謝大大的幫忙~
不過由於資料不只一筆~
所以小妹和朋友會依據大大的操作方式研究如何寫成巨集~
有問題的話~會問問大大的!

感謝您^^

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