麻辣家族討論版版 » Excel程式區 » 如何使用VBA計算兩組數的平均

返回列表下一主題上一主題發帖

[發問] 如何使用VBA計算兩組數的平均

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-7-23 17:56 | 只看該作者

[發問] 如何使用VBA計算兩組數的平均

本帖最後由 linlin00 於 2015-7-23 17:59 編輯

各位大大好，我最近開始練習VBA，
附件是我原先計算的，假設有6筆資料要兩兩計算它的平均，
像是第一筆資料分別為5,5，第二筆分別為6,6
可求得第一筆與第二筆的平均分別為(5+6)/2=5.5,(5+6)/2=5.5
想請問如果要以VBA來操作該如何表示呢?

練習.rar (7.69 KB)

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-7-23 21:33 | 只看該作者

回復 1# linlin00

Public Sub Ex()
s = 2
For i = 2 To 6
x = i + 1
For J = x To 7
Cells(s, "G") = (Cells(i, 2) + Cells(J, 2)) / 2
Cells(s, "H") = (Cells(i, 3) + Cells(J, 3)) / 2
s = s + 1
Next
Next
End Sub

複製代碼

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

3^#

發表於 2015-7-23 22:32 | 只看該作者

謝謝lpk187大!!
另外想請問一下，如果想在每一行平均前面自動產生是誰與誰的平均有辦法做到嗎?
比如說第一行是1跟2的平均，就在那一行前面寫上"1+2的平均"類似這樣

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-7-23 22:42 | 只看該作者

回復 3# linlin00

Public Sub Ex()
s = 2
For I = 2 To 6
x = I + 1
For J = x To 7
Cells(s, "F") = Cells(I, 1) & "," & Cells(J, 1)
Cells(s, "G") = (Cells(I, 2) + Cells(J, 2)) / 2
Cells(s, "H") = (Cells(I, 3) + Cells(J, 3)) / 2
s = s + 1
Next
Next
End Sub

複製代碼

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-7-23
最後登錄: 2015-10-20

5^#

發表於 2015-7-23 23:18 | 只看該作者

非常感謝!!

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

返回列表下一主題上一主題