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 | - | - |
| 41274 | TPM 2.0 module이 싸지는 않네요. [8] | 바이오스 | 1440 | 09-24 |
| 41273 | 22000.194 RTM 이라고 하네요 [11] | 옆집놈 | 1757 | 09-24 |
| 41272 | Windows 10 Pro 21H2 19044.1263 업데이트 [2] | 부는바람 | 1075 | 09-24 |
| 41271 | 요즘은 의욕이 없어서 통합 작업은 그만두렵니다 [53] | suk | 1548 | 09-24 |
| 41270 | Cent Browser를 못 버리는 이유... [3] | 삼시세끼 | 740 | 09-23 |
| 41269 | 여긴 쪽지로 파일 주고받는 기능 없나요? [3] | kernel | 570 | 09-23 |
| 41268 | 19H2_2108P 공유 부탁드립니다. [3] | hyeo | 380 | 09-23 |
| 41267 | 용역계약 파기(해고) 문의 [4] | 번개 | 753 | 09-23 |
| 41266 | 심심풀이 간단한 CMD 명령 문제 [6] | 오호라7 | 517 | 09-23 |
| 41265 | [제작테스트] 힐링 동영상 화면보호기(서버변경)외 백그라... [4] | 멀더는외계 | 653 | 09-23 |
| 41264 | 명절 보내고 오니 [31] | 선우 | 1037 | 09-23 |
| 41263 | 윈 11 정식 출시 전에 고민이 있네요. [6] |
|
1436 | 09-23 |
| 41262 | 힐링 사진보면서 즐거운 추석.. [13] | 용가리 | 1153 | 09-23 |
| » | Excel 고수님 수정 부탁드립니다. [6] | gom | 1190 | 09-22 |
| 41260 | 배터리 호환에 대한 건 [4] | 타나 | 918 | 09-22 |
| 41259 | 농사는 힘들군요.....농민에게 반품 해달라고 문자가 ..... [14] | 백단심계 | 1450 | 09-21 |
| 41258 | 고수님 사진 좀 편집 좀 부탁드려요. [8] | AutoMP3 | 905 | 09-21 |
| 41257 | 영화 안 본지가.. [5] | 버프 | 809 | 09-21 |
| 41256 | 룸 라이터기 [7] | 세븐좋아 | 1080 | 09-21 |
| 41255 | 어떤 느낌 일까요? [3] | 테츠로 | 931 | 09-21 |
바로 외출해야해서 귀가 해서 좀 더 보겠습니다.