用巨集,新增一個按鈕
工作表 sheet1
A B C D E F
球員　　打數　　安打　　打擊率　　　　　新增打數　　新增安打　　
Ａ　　　　50 30 0.600 2 1
Ｂ 50 25 0.500 5 4
Ｃ 60 20 0.333 16 8
Ｄ 40 10 0.250 11 3
Ｅ 40 10 0.250 9 1

Private Sub CommandButton1_Click()
Dim T As Integer, H As Integer
With Worksheets("sheet1")
For i = 2 To 6 '球員A2到A6
T = .Cells(i, 2).Value + .Cells(i, 5).Value '打數累積
H = .Cells(i, 3).Value + .Cells(i, 6).Value '安打累積
.Cells(i, 2).Value = T '輸入打數
.Cells(i, 3).Value = H '輸入安打
Next
End With
Range("E2:F6").Select '清除新增位置
Selection.ClearContents
End Sub



※ 引述《HankJiang (很呆的呆江)》之銘言：
: 軟體:EXCEL
: 版本:2007
: 小弟負責隊上的成績記錄
: 最近開始用EXCEL算各項成績(打擊率、上壘率、長打率等)
: 現在碰到一個問題
: 我已經做好了累積成績的部分
: 有沒有可能在每打完一場比賽後，將單場的成績打在累積成績後的欄位
: 而可以加單場的成績加至累積的成績中
: 而且可以一場一場將資料重複鍵入
: ＥＸ.
: 現有:
: 球員　　打數　　安打　　打擊率　　　　　　
: Ａ　　　　48 29 0.604
: Ｂ 45 21 0.467
: Ｃ 44 12 0.273
: Ｄ 29 7 0.241
: Ｅ 31 9 0.290
: 有沒有辦法變成這樣:
: 1.在後面欄位鍵入要加入的資料
: 球員　　打數　　安打　　打擊率　　　　　新增打數　　新增安打　　
: Ａ　　　　50 30 0.600 2 1
: Ｂ 50 25 0.500 5 4
: Ｃ 60 20 0.333 16 8
: Ｄ 40 10 0.250 11 3
: Ｅ 40 10 0.250 9 1
: 2.而將前面的部分保留，而後面的欄位則可以鍵入下一筆新增的資料
: 球員　　打數　　安打　　打擊率　　　　 新增打數 新增安打
: Ａ　　　　50 30 0.600
: Ｂ 50 25 0.500
: Ｃ 60 20 0.333
: Ｄ 40 10 0.250
: Ｅ 40 10 0.250

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.64.16.123