시나공

시험에

나오는 것만

공부한다!

안녕하세요.

매크로가 정상적으로 실행되지 않습니다.

RANK 함수를 적용하는 부분이 정답과 차이가 있습니다. 중간석차( )가 작성하신 매크로 이고, 중간석차1( )이 제가 작성한 것입니다.

진하게 표시된 부분이 정확히 작성되지 않아서 오류가 나타나는 것입니다.

--------------------------

Sub 중간석차()

' 중간석차 매크로
'

'
    Range("I4").Select
    . = "=RANK(RC[-1],R4C8:R9C8)"
    Range("I4").Select
    .  := Range("I4:I9"), Item := xlFillDefault
    Range("I4:I9").Select
    Range("L11").Select
End Sub

Sub 중간석차1()
'
' 중간석차1 매크로
'

'
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R4C8:R9C8)"
    Range("I4").Select
    Selection.Copy
    Range("I4:I9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("K4").Select
End Sub

-------------------

[I4] 셀에 =RANK(H4,$H$4:$H$9)를 기록하시고 채우기 핸들러로 [I4:I9]까지 채워주시면 됩니다.

좋은 하루 보내세요.

안녕하세요.

님이 작성한 파일을 올려주세요. 파일을 봐야 정확한 답변을 해드릴 수 있습니다.

즐거운 하루 되세요.

우선, 답변 감사합니다.

activecell이 문구에 안들어가서 실행이 안되는것 같습니다.

그런데 교재 168쪽에 있는대로 하나하나 똑같이 했는데, 제 파일에는 왜 activecell문구가 생성이 안되는걸까요..

말씀하신 rank문구와 채우기 기능도 p261에 나온대로 똑같이 해봤습니다..