比方說，A2為名稱，其後的內容全部為數值型，B2為一月份得分、C2為二月份得分、D2為三月份得分.....以此類推，統計列 H2＝sum(B2:G2)。這種記錄有100行.如何實現：每月輸入當月的得分後，整個表格的全部記錄，隨統計列內容的變化而“自動”排序，而不是，每月填好當月數後，都要點“資料”--“排序” 這個需要程式碼 作表名稱那裡——右鍵——檢視程式碼把下面的程式碼全部複製進去，就可以了Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then "當A列的資料有改變時 i = Selection.Row j = Selection.Column Columns("A:A").Select "選中你要排序的列，這是A列，如是是ABC三列，則換為"A:C" Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal"Key1:=Range("A1"), 表示用A列進行排序 Cells(i, j).Select End IfEnd Sub
比方說，A2為名稱，其後的內容全部為數值型，B2為一月份得分、C2為二月份得分、D2為三月份得分.....以此類推，統計列 H2＝sum(B2:G2)。這種記錄有100行.如何實現：每月輸入當月的得分後，整個表格的全部記錄，隨統計列內容的變化而“自動”排序，而不是，每月填好當月數後，都要點“資料”--“排序” 這個需要程式碼 作表名稱那裡——右鍵——檢視程式碼把下面的程式碼全部複製進去，就可以了Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then "當A列的資料有改變時 i = Selection.Row j = Selection.Column Columns("A:A").Select "選中你要排序的列，這是A列，如是是ABC三列，則換為"A:C" Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal"Key1:=Range("A1"), 表示用A列進行排序 Cells(i, j).Select End IfEnd Sub