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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-5-4 13:33 | 只看該作者

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

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

平均值.rar (686.55 KB)

樓主熱帖

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

12^#

發表於 2011-5-10 22:45 | 只看該作者

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

感謝您^^

diabo

中學生 Rank: 2

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

11^#

發表於 2011-5-10 21:25 | 只看該作者

回復 10# a79011013

範例.gif

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請問大大是如何寫的?
可以教步驟麻?

感謝

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

8^#

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

回復 6# mark15jill

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

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

感謝大大

帖子: 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)

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