Excel 고수님 수정 부탁드립니다.
2021.09.22 13:11
Excel - 개발도구 - Visual Basic 코드로 선택한 셀의 행 및 열 자동 강조 표시
첨부의 사진처럼 행열 강조 하면서 선택 된 셀만(선택 된 셀은 투명하게) 첨부의 사진처럼 나올수 있도록 도움을 부탁 드립니다.
수정 후 이미지
수정 전 이미지
수정 전 Visual Basic 코드(컬러 색상은 비슷한 번호가 없어서 20으로 설정해 보았습니다)
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20200430
Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 20
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 20
.Pattern = xlSolid
End With
End Sub
댓글 [6]
-
지후빠 2021.09.22 13:53
-
gom 2021.09.22 14:16
문제 해결에 도움을 주셔서 정말로 감사 합니다.
혹시 선택 된 셀에 글씨 굵게 표시하는 것도 가능 할까요?
-
지후빠 2021.09.22 16:18
가능한데요 다른셀 선택할때는 다시 보통으로 돌려 놓은가요? -
지후빠 2021.09.22 17:18
다음처럼 하면 되는데요. 원본 굵기 정보를 보관합니다.
굵게 된것은 선택이 옮겨가도 여전히 굵게 남을 것이고, 보통은 선택하면 굵게되고 선택이 옮겨가면 원래의 보통으로 돌아갑니다.
그런데 복사 붙여넣기 등 안되는 기능들이 있을텐데 불편하지 않으시겠어요? ^^
필요할때만 잠깐 켜서 사용하시는 방향으로 하심이... ㅎ~
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
myColor = RGB(200, 235, 240)
Static xRow
Static xColumn
Static xBold
If xColumn <> "" Then
Columns(xColumn).Interior.ColorIndex = xlNone
Rows(xRow).Interior.ColorIndex = xlNone
Cells(xRow, xColumn).Font.Bold = xBold
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
Columns(pColumn).Interior.Color = myColor
Rows(pRow).Interior.Color = myColor
With ActiveCell
.Interior.ColorIndex = xlNone
xBold = .Font.Bold
.Font.Bold = True
End With
End Sub
-
지후빠 2021.09.22 18:41
색상은 연한색으로 다음에서 선택해보십시오. RGB(240, 248, 255) 이렇게 연한색상으로...
셀 배경색은 투명도를 줄 수가 없어서 연한 색상을 선택하면 마찮가지로 투명한 느낌을 줍니다.
https://www.rapidtables.com/web/color/RGB_Color.html
조금 더 느낌을 살려봤습니다. 여기까지만 하겠습니다. ^^
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
myColor = RGB(240, 248, 255)
Static xRow
Static xColumn
Static xBold
If xColumn <> "" Then
With Columns(xColumn)
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
With Rows(xRow)
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With
Cells(xRow, xColumn).Font.Bold = xBold
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn)
.Interior.Color = myColor
.Borders.Color = RGB(220, 220, 220)
End With
With Rows(pRow)
.Interior.Color = myColor
.Borders.Color = RGB(220, 220, 220)
End With
With ActiveCell
.Interior.ColorIndex = xlNone
xBold = .Font.Bold
.Font.Bold = True
End With
End Sub
-
줄넘기 2021.09.23 08:13
여기 숨은 고수님들이 매우매우 많군요
| 번호 | 제목 | 글쓴이 | 조회 | 등록일 |
|---|---|---|---|---|
| [공지] | 자유 게시판 이용간 유의사항 (정치, 종교, 시사 게시물 자제) [1] | gooddew | - | - |
| » | Excel 고수님 수정 부탁드립니다. [6] | gom | 1181 | 09-22 |
| 41375 | 배터리 호환에 대한 건 [4] | 타나 | 903 | 09-22 |
| 41374 | 농사는 힘들군요.....농민에게 반품 해달라고 문자가 ..... [14] | 백단심계 | 1441 | 09-21 |
| 41373 | 고수님 사진 좀 편집 좀 부탁드려요. [8] | AutoMP3 | 899 | 09-21 |
| 41372 | 영화 안 본지가.. [5] | 버프 | 793 | 09-21 |
| 41371 | 룸 라이터기 [7] | 세븐좋아 | 1034 | 09-21 |
| 41370 | 어떤 느낌 일까요? [3] | 테츠로 | 927 | 09-21 |
| 41369 | 명절 잘 보내세요 [10] | 슈머슈마 | 616 | 09-21 |
| 41368 | Yes Sir, I Can Boogie 멤버 69세 사망 [5] | 번개 | 814 | 09-21 |
| 41367 | 평생 무료 온라인 RDP(Remote Desktop Protocol) 얻는 방법 | 그림자7 | 924 | 09-20 |
| 41366 | 이 배경 음악 제목을 알 수 있을까요? [1] |
|
644 | 09-20 |
| 41365 | 추석 잘보내세요 [2] | harman777 | 199 | 09-20 |
| 41364 | 추석명절 한가위 잘 보내세요 [1] | 긍지버림 | 311 | 09-20 |
| 41363 | 마음이 뜨거워지는 인생명언 | 긍지버림 | 592 | 09-20 |
| 41362 | Ana Vidovic - Recuerdos de la Alhambra [5] | 눈이 | 167 | 09-20 |
| 41361 | 애매한 램 4기가.... [6] | 현민지 | 1237 | 09-19 |
| 41360 | 드디어 내일모레 추석이군요ㅎㅎ [1] |
|
324 | 09-19 |
| 41359 | 통닭이 왜이렇죠 [7] | art | 1321 | 09-19 |
| 41358 | EBS 세계의명화 [시카고] 지금 함께 볼 수 있습니다.~ [4] | 4월10일 | 550 | 09-18 |
| 41357 | 지금 달 위에서 빛나는 별이 무슨 별인지 아시는 분 [3] | 내리사랑 | 654 | 09-18 |
바로 외출해야해서 귀가 해서 좀 더 보겠습니다.