로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요
단축키를 누르면 현재 선택 된 셀을 기준으로 "옆의셀 나누기 옆의아래셀"의 결과값이 나오도록 하고 싶습니다.
정말 간단할 것 같은데 .. 모르겠습니다.;; 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
새 창으로
선택한 기호
아별툴관련질문 엑셀창 질문.. [5]
엑셀일반 혹시 이런것도 가능한가요? (간결한 2가지 질문) - VBA만 실행파일(.exe)로 만들 수 있는지 여부, 외부 파일명 일괄 변경 방법.. [2]
VBA 파일&폴더 VBA 수정하여 사용하다가 막혀서 문의드립니다. [2]
엑셀일반 엑셀로 확률도 구할수있나요? [1]
엑셀수식 고수님들 도와주세요 ~ 엑셀에서 글자색에 따른 if함수 수식 가능해요? [1]
엑셀일반 구버전 호환모드로 로드 시, 계행문자 줄바꿈 저장 안되는 현상 관련 [2]
엑셀일반 엑셀 cloud tool 파일 구할수 있을까요? [3]
피벗테이블 피벗테이블 날짜 버튼 생성에 대한 문의 [2]
셀서식(표시형식) [분류문의] 데이터 유효성검사를 이용해 분류를 만든 다음에 특정셀 값 입력 [1]
엑셀수식 합계액 오류 _ 단수차 보정 방법 [3]
VBA 파일&폴더 엑셀파일명으로 검색하여 링크걸기 [1]
가르쳐주세요 [2]
pivot 다중범위통합 ㅠㅠ 할수없이 _ 피벗테이블 다중 통합 범위 [4]
홍보물 발송 주소록 정리
엑셀일반 빠른실행도구모음 자동숨김 해제 [2]
풀리지 않는 궁금증에 도움 부탁드립니다. [1]
차트 피라미드 그래프 (그림 첨부) [5]
엑셀일반 부분합 질문있습니다. [2]
서식설정문의. [1]
엑셀수식 순차적으로 정리하고 싶은데.. 질문드립니다. [2]
![[레벨: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