' ' 人数計算A ' マクロ記録日 : 1999/3/28 ユーザー名 : H.Miyamoto ' Sub 人数計算A() sngStartTime = Timer Sheets("得点").Select Range("A5").Select Selection.End(xlDown).Select DataEndRow = Selection.Row Range("A1").Select Cells(1, 1) = DataEndRow - 5 sngEndTime = Timer sngRequiredTime = Format(sngEndTime - sngStartTime, "Fixed") MsgBox "所要時間:" & sngRequiredTime End Sub Sub 人数計算B() ' ' 人数計算B ' マクロ記録日 : 1999/3/28 ユーザー名 : H.Miyamoto ' Dim ALL sngStartTime = Timer Sheets("得点").Select NU = 1 Do Until Cells(NU + 4, 3) = Cells(4, 3) NU = NU + 1 Loop ALL = NU - 1: Cells(1, 1) = ALL sngEndTime = Timer sngRequiredTime = Format(sngEndTime - sngStartTime, "Fixed") MsgBox "所要時間:" & sngRequiredTime End Sub Sub クラス人数計算() ' ' クラス人数計算 ' マクロ記録日 : 1999/3/28 ユーザー名 : H.Miyamoto ' Dim CL_BEG(4), CL_END(4), CL_MEM(4) クラス番号順並べ替え Sheets("得点").Select NUMB = 1: S = 0 For K = 1 To 4 CL_BEG(K) = NUMB + 4 GoSub DET CL_END(K) = NUMB + 4 CL_MEM(K) = CL_END(K) - CL_BEG(K) + 1 NUMB = NUMB + 1: S = S + CL_MEM(K) Next ALL = S Exit Sub DET: Do Until Cells(NUMB + 4, 1) <> Cells(NUMB + 5, 1) NUMB = NUMB + 1 Loop Return End Sub ' ' 入力開始 マクロ ' マクロ記録日 : 1995/4/17 ユーザー名 : H.Miyamoto ' remake 6/23 '96 ' Sub 入力開始() Sheets("得点").Select Range("D5").Select With ActiveWindow .SplitColumn = 3 .SplitRow = 4 End With ActiveWindow.FreezePanes = True 計算保留 (K) Range("D5").Select End Sub ' ' 入力終了 マクロ ' マクロ記録日 : 1995/4/17 ユーザー名 : H.Miyamoto ' ' Sub 入力終了() 計算実行 (K) Sheets("得点").Select With ActiveWindow .SplitColumn = 0 .SplitRow = 0 End With Range("A1").Select Sheets("マクロボタン").Select Range("A1").Select End Sub ' ' 計算実行 マクロ ' マクロ記録日 : 1995/4/23 ユーザー名 : H.Miyamoto ' ' Sub 計算実行(K) Sheets("得点").Select Application.MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False Calculate End Sub ' ' 計算保留 マクロ ' マクロ記録日 : 1995/4/23 ユーザー名 : H.Miyamoto ' ' Sub 計算保留(K) Sheets("得点").Select With Application .Calculation = xlManual .MaxChange = 0.001 End With ActiveWorkbook.PrecisionAsDisplayed = False End Sub ' ' 成績順並べ替えマクロ ' マクロ記録日 : 1995/4/17 ユーザー名 : H.Miyamoto ' remake 6/16 '97 ' remake May5 '98 ' remake Mar.27 '99 ' Sub 成績順並べ替え() Dim ALL Sheets("得点").Select '学年人数設定 NU = 1 Do Until Cells(NU + 4, 3) = Cells(4, 3) NU = NU + 1 Loop ALL = NU - 1 Sheets("得点").Select Range(Cells(5, 1), Cells(ALL + 4, 30)).Select Selection.SortSpecial SortMethod:=xlCodePage, key1:=Range("V5"), _ Order1:=xlAscending, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom Range("A1").Select End Sub ' ' クラス番号順並べ替えマクロ ' マクロ記録日 : 1995/4/17 ユーザー名 : H.Miyamoto ' remake Mar.27 '99 ' ' Sub クラス番号順並べ替え() Dim ALL Sheets("得点").Select '学年人数設定 NU = 1 Do Until Cells(NU + 4, 3) = Cells(4, 3) NU = NU + 1 Loop ALL = NU - 1 Sheets("得点").Select Range(Cells(5, 1), Cells(ALL + 4, 30)).Select Selection.SortSpecial SortMethod:=xlCodePage, key1:=Range("A5"), _ Order1:=xlAscending, key2:=Range("B5"), Order2:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation _ :=xlTopToBottom Range("A1").Select End Sub