로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요
단축키를 누르면 현재 선택 된 셀을 기준으로 "옆의셀 나누기 옆의아래셀"의 결과값이 나오도록 하고 싶습니다.
정말 간단할 것 같은데 .. 모르겠습니다.;; 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 같은데이타 병합 [2]
VBA 선택한 영역 랜덤 색 대해서 질문하겟습니다. [4]
VBA vba 등록질문하겟습니다. [6]
VBA 닫혀있는 다른파일 데이터 어떻게 참조하나요? [1]
VBA 사진 매크로 질문입니다 ^^ [5]
VBA 기존에 설정되어 있는 단축키를 다른 기능으로 대체하는 방법 가르쳐주세요~ [4]
VBA 특정폴더 파일 실행 [4]
VBA 다운받았는데요 [8]
VBA 도형에 회전에 관해서.... [5]
VBA VBA 서로 다른 파일에서 질문 입니다. [1]
VBA .Find 주소 검색기 이름중복검색 [3]
VBA 도와 주세요. [1]
VBA 숫자 문자 비교검색 [2]
VBA 안녕하세요 아별님!
VBA 아별님 안녕하세요? 파이스입니다. _ 엑셀창과 VBE창 창전환 쉽게 하는 방법 [3]
VBA 파일&폴더 참조하고 있는 파일 열기 [1]
VBA 시트... [2]
VBA vba Activate 오류 질문합니다 [3]
VBA .Find Find 함수를 이용한 검색 관련 질문 [1]
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 "포인트:142726point, 레벨: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