로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요
단축키를 누르면 현재 선택 된 셀을 기준으로 "옆의셀 나누기 옆의아래셀"의 결과값이 나오도록 하고 싶습니다.
정말 간단할 것 같은데 .. 모르겠습니다.;; activecell 이런게 사용될 것 같다는 생각 뿐 구체적인 코드를 모르겠습니다.
첨부의 참조용 자료 확인 부탁드립니다.
2011.07.29 16:36:36 *.104.126.21
부르끄님.. 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
새 창으로
선택한 기호
조건에 따라 셀 나누기 [3]
특정 텍스트를 포함한 데이터를 쭈~욱 나열하는 방법에 대하여(제발 도와주세요) [2]
VBA 현재 선택 된 셀을 기준으로 같은방식의 연산결과 값을 산출하는 법 [1]
드롭다운 메뉴를 만들고 싶습니다 [4]
VBA VBA로 정렬하는 법 문의 [6]
엑셀수식 특정셀 선택 후 하이픈 삽입 하는법 [3]
VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5]
열숨기기 기능에 대해서 [3]
차트에서 레이블의 숫자를 교체하는 법 [2]
Alt+tab을 눌렀을 경우 엑셀파일이 없어지는 것 관련 질문드립니다. [2]
엑셀탭에 대한 질문입니다. [3]
매크로 함수를 VBA로 바꾸면 될까요??? (ExecuteExcel4Macro in UDF) [2]
빠른실행도구 질문드립니다. [2]
필터링 관련 질문... [2]
소팅하는법좀 제발 알려주세요 [1]
엑셀 인쇄하면 그림파일이 출력이 안되요.. [1]
vba에 관해 질문드립니다. (DB에서 개인별 카드로 인쇄하는 방법) [2]
피벗테이블 기능 [4]
엑셀2007 자동필터 문의 [2]
부분합이요 [3]
부르끄님.. 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