返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2011-5-4 16:05 | 顯示全部帖子
本帖最後由 mark15jill 於 2011-5-4 17:21 編輯

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

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

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

平均值試驗.rar (13.91 KB)

TOP

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

高中生Rank: 3Rank: 3

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

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題