로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요
단축키를 누르면 현재 선택 된 셀을 기준으로 "옆의셀 나누기 옆의아래셀"의 결과값이 나오도록 하고 싶습니다.
정말 간단할 것 같은데 .. 모르겠습니다.;; 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
새 창으로
선택한 기호
VBA 병합효과 [3]
VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결
VBA 특정색 행 삭제 메크로 배워보고 싶습니다~ [2]
VBA 엑셀 랜덤돌리기 질문입니다 [2]
VBA 특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행 [2]
VBA win7 64bit / 64bit 엑셀 / 32bit DLL의 사용법이 궁금합니다.
VBA 파일&폴더 ExecuteExcel4Macro로 다른 파일 열지않고 셀 데이터 가져오기 시 실패
VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1]
VBA 2개의 시트를 비교하여 다른 부분을 찾아내는 프로시저 질문입니다! [3]
VBA 엑셀 vba 함수 질문드릴게요. [4]
VBA 외부 어플리케이션 실행 & 유저폼 일괄 닫기 & 리본 메뉴 사용자 추가 탭 숨기거나 보이게 하는 방법 [7]
VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5]
VBA 엑셀 메모의 배경으로 삽입한 이미지 추출하기
VBA [긴급] Range 범위 "A2:A10" -> 를 변수로 받게 하는 방법.. [3]
VBA vba로 서식정렬 [4]
VBA VBA 서적 추천좀 해주세요 [1]
VBA 아별님! 엑셀 질문입니다. _ 고급필터를 활용한 데이터 분리 작업(각 시트로 분리) [3]
VBA 진행바 응용(다른 메뉴 실행중) _ 작업 진행바 Progress bar [3]
VBA vba 방향키 질문입니다 [4]
VBA 현재 선택 된 셀을 기준으로 같은방식의 연산결과 값을 산출하는 법 [1]
![[레벨:4]](http://abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1791point (43%), 레벨:4/30"){kind=icon}
부루끄
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141971point, 레벨:30/30"){kind=icon}
아별
부르끄님.. 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