시나공

시험에

나오는 것만

공부한다!

정확한 이유를 알 수 없지만 마지막 작업에서 필요하지 않은 작업을 한 것 같습니다.

오류가 나면 디버그를 누른 후

Sub 중간석차()
'
' 중간석차 Macro
'

'
Range("J5").Select
ActiveCell.FormulaR1C1 = "=RANK(1,RC[-1])"
ActiveCell.FormulaR1C1 = "=RANK(1,RC[-1]:R[6]C[-1])"
ActiveCell.FormulaR1C1 = "=RANK(1,RC[-1])"
ActiveCell.FormulaR1C1 = "=RANK(RC[-1],RC[-1]:R[5]C[-1])"
Selection.AutoFill Destination:=Range("J5:J10"), Type:=xlFillDefault
Range("J5:J10").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R[-1]C[-1]:R[5]C[-1])"
Range("J5").Select
Selection.AutoFill Destination:=Range("J5:J10"), Type:=xlFillDefault
Range("J5:J10").Select
Selection.ClearContents
Range("J5").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-1],RC[-1]:R[5]C[-1])"
Selection.AutoFill Destination:=Range("J5:J10"), Type:=xlFillDefault
Range("J5:J10").Select
ActiveCell.FormulaR1C1 = ""
Range("J6:J10").Select
Range("J10").Activate
Selection.ClearContents
Range("J5").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R[-1]C[-1]:R[5]C[-1])"
Range("J5").Select
Selection.AutoFill Destination:=Range("J5:J10"), Type:=xlFillDefault
Range("J5:J10").Select
Range("J12").Select
ActiveCell.FormulaR1C1 = ""
Range("K12").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "중간석차"
With Selection.Characters(Start:=1, Length:=4).Font
.Name = "맑은 고딕"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("J14").Select
End Sub

빨간 색으로 지정된 부분을 삭제하시고 x를 눌러 닫으세요.

버튼에 적용하는 부분도 매크로에 입력하셔서 오류가 난 것 같네요.

좋은 하루 되세요.