선택할 셀의 행과 열 강조색으로 표시해서 시세 쉽게 따기
안녕하세요
마리오소다입니다!
시세를 엑셀시트로 따다보면
옆으로 점점 많이 지는 메뉴 때문에
내가 지금 입력하고 있는 칸이 어느단지이고, 이 단지의 정보는 뭐인지 찾기위해
셀을 여러번 옮기거나 눈을 찡그리면서 보거나 그런 순간이 있는데,
내가 선택한 셀 위 아래로 강조색이 표시되면, 눈이 참 편안해 질텐데 말이죠!! ?
아래 그림처럼 셀을 옮길때 마다 십자가 모양으로 색을 강조해서
작업 능률을 올릴 수 있는 방법 알려드릴게요!
쉬워요
찬찬히 잘 따라오셔용
먼저 메뉴 설정을 좀 손봐야 해요
매우 쉬워요
일단 “파일” 클릭
옵션으로 들어가요
‘리본 사용자 지정’ 클릭
여기서 개발 도구 메뉴 체크가 해제되어 있다면->체크 해줍니다 ->확인 누르고 메뉴에서 빠져 나옵니다.
메뉴에 ‘개발 도구’라는 메뉴가 보이기 시작하면 성공적.
‘개발 도구’를 클릭해서 들어갑니다.
그럼 Visual Basic 메뉴가 활성화 되어있죠? 이걸 클릭해요.
생소한 화면이 나타나도 당황하지 마세요! 걍 클릭만 잘하면 됩니다용
왼쪽에 프로젝트 메뉴를 보면 우리가 열어 놓은 엑셀의 시트가 보이실거에요.
(부가 설명)
(엑셀 화면으로 봤을 때 아래쪽에 시트가 Visual Basic 에서 저렇게 디렉토리 형식으로 보일 뿐이에요~)
내가 원하는 설정하기 시트를 ‘더블클릭 해줍니다’
(해당 엑셀 전체에 적용하고 싶을때, 죄송하지만 한꺼번에 설정은 못합니다. 시트 하나하나 설정해 주셔야 해용
앞마당 하나씩 늘어날 때마다 설정하고 시작하면 되겠쥬?)
다시 돌아와서 원하는 시트를 더블클릭하면
오른쪽에 저런 메모장같은 창이 하나 뜰거에요. 저 창에다가 아래 코드를 그냥 복사해서 붙여넣으세요.
(복붙이 안되는 에러가 있어서 아래 코드를 다시 공유합니다, 화면과 다르더라도 아래의 코드를 입력하세요)
(코드와 수식 복사용 첨부파일 있습니다 (word파일) )
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo SafeExit
' 복사/붙여넣기 중에는 이벤트 중단
If Application.CutCopyMode <> False Then Exit Sub
' 선택한 셀에 조건부 서식이 있을 경우만 계산
If Not Target Is Nothing Then
If Target.FormatConditions.Count > 0 Then
Application.EnableEvents = False
Me.Calculate
End If
End If
SafeExit:
Application.EnableEvents = True
End Sub
그리고 창 닫고 다시 엑셀화면으로 나오세요.
색깔 강조 효과를 하고 싶은 범위를 지정하세요.
근데 걍 시트 전체를 다 지정해버리게 젤 속편하겠죠?
엑셀왼쪽 위 구석탱이에 있는 쪼끄만 세모 단추를 클릭해서 전체 범위로 지정해 버립니다.
그럼 셀 전체가 회색으로다 지정 되었죠?
그 상태에서 홈->조건부서식->색조->기타규칙 순으로 들어가세요
그럼 이런 메뉴가 나타날거에요.
“수식을 사용하여 서식을 지정할 셀 결정”을 누르시고
아래의 수식을 “다음 수식이 참인 값의 서식 지정”아래 빈칸에 복사 붙여 넣기 해주세요.
(코드와 수식 복사용 첨부파일 있습니다 (word파일) )
=OR(CELL("ROW")=ROW(),CELL("COL")=COLUMN())
그런 후 서식을 눌러줍니다.
이런 메뉴가 나오면 채우기->원하는색 선택 → 확인 을 누릅니다.
그럼 색깔지정까지 끝!!!
짜라란~~~ 내가 선택한 셀을 따라서 십자가 모양으로 행과 열에 강조색이 나타나요
이제 눈 찡그리며 내가 쓰고 있는 단지 정보 어렵게 찾지 말긔. 미간 주름 절대 지켜요!
*주의 : 저장할 때 매크로 포함 엑셀로 저장해셔야해요.
F12누르면 다른이름으로 저장 나오잖아요?
그때 매크로 사용통합문서로 선택하고 저장하면 되요.
쉽쥬?
(코드랑 수식 밑에 한 번더 써 드립니다)
(코드와 수식 복사용 첨부파일 있습니다 (word파일) )
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo SafeExit
' 복사/붙여넣기 중에는 이벤트 중단
If Application.CutCopyMode <> False Then Exit Sub
' 선택한 셀에 조건부 서식이 있을 경우만 계산
If Not Target Is Nothing Then
If Target.FormatConditions.Count > 0 Then
Application.EnableEvents = False
Me.Calculate
End If
End If
SafeExit:
Application.EnableEvents = True
End Sub
=OR(CELL("ROW")=ROW(),CELL("COL")=COLUMN())
조금이라도 도움이 되셨길 바랍니다.
그리고 +@로 소개해 드리고 싶은건
시세따기, 시세트래킹, 전수조사, 시세 그룹핑까지 한개의 파일에서 가능한
해바라기v님 시세트래킹 양식도 공유 합니당
https://weolbu.com/s/E7LUmnSYIQ
챌린지에 참여하는 멤버에게 응원 댓글을 남겨주세요. 혼자가면 빨리 가지만 함께 가면 멀리 갈 수 있어요.🚶♀️🚶♂️
코드랑 수식 복사용.docx
다운로드
댓글
