Re: [算表] 以EXCEL記錄棒壘球成績

看板Office作者itat2007 (Black Day)時間17年前 (2009/06/10 09:09)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串2/2 (看更多)

用巨集,新增一個按鈕工作表 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