abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2011.07.29 16:36

부르끄님.. VBA 공부하는군요~

offset()함수를 사용하면 되는데요.. VBE창에서 F1 눌러서 range.offset 검색하시면 친절하게 설명해줍니다.

암튼.. 원하시는 코드는 아래와 같습니다.

도움이 되셨기를.. ^^

샘플 다운 받기 : abyul.com_엑셀예제질문(1).xls

Sub showPercentage()

    Dim rngActive As Range: Set rngActive = ActiveCell
    Dim rngA As Range: Set rngA = rngActive.Offset(0, -1) '# 왼쪽 옆의 셀
    Dim rngB As Range: Set rngB = rngActive.Offset(1, -1) '# 왼쪽 옆의 아래 셀

    rngActive.Formula = "=" & rngB.Address(RowAbsolute:=False, ColumnAbsolute:=False) & "/" & _
                        rngA.Address(RowAbsolute:=False, ColumnAbsolute:=False)

End Sub