메인 컨텐츠로 가기

데이터가 가득한 광범위한 Excel 워크시트를 탐색하는 것은 어려울 수 있으며, 위치를 추적하거나 잘못 읽은 값을 잃기 쉽습니다. 데이터 분석을 향상하고 오류 가능성을 줄이기 위해 Excel에서 선택한 셀의 행과 열을 동적으로 강조 표시하는 3가지 방법을 소개합니다. 셀에서 셀로 이동할 때 강조 표시가 동적으로 이동하여 다음 데모와 같이 올바른 데이터에 계속 집중할 수 있도록 명확하고 직관적인 시각적 단서를 제공합니다.

Excel에서 활성 행 및 열 자동 강조 표시


비디오: Excel에서 활성 행 및 열 자동 강조 표시


VBA 코드로 활성 행 및 열 자동 강조 표시

현재 워크시트에서 선택한 셀의 전체 열과 행을 자동으로 강조 표시하려면 다음 VBA 코드를 사용하면 이 작업을 수행하는 데 도움이 될 수 있습니다.

1단계: 활성 행과 열을 자동으로 강조 표시하려는 워크시트를 엽니다.

2단계: VBA 시트 모듈 편집기를 열고 코드 복사

  1. 시트 이름을 마우스 오른쪽 버튼으로 클릭하고 코드보기 컨텍스트 메뉴에서 스크린 샷을 참조하십시오.
  2. 열린 VBA 시트 모듈 편집기에서 다음 코드를 복사하여 빈 모듈에 붙여넣습니다. 스크린샷 보기:
    VBA 코드 : 선택한 셀의 행 및 열 자동 강조 표시
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Update by Extendoffice
        Dim rowRange As Range
        Dim colRange As Range
        Dim activeCell As Range
        Set activeCell = Target.Cells(1, 1)
        Set rowRange = Rows(activeCell.Row)
        Set colRange = Columns(activeCell.Column)
         Cells.Interior.ColorIndex = xlNone
        rowRange.Interior.Color = RGB(248, 150, 171)
        colRange.Interior.Color = RGB(173, 233, 249)
    End Sub
    
    팁: 코드 사용자 정의
    • 강조 색상을 변경하려면 다음 스크립트에서 RGB 값을 수정하기만 하면 됩니다.
      rowRange.Interior.Color = RGB(248, 150, 171)
      colRange.Interior.Color = RGB(173, 233, 249)
    • 선택한 셀의 전체 행만 강조 표시하려면 다음 줄을 제거하거나 주석 처리(앞에 아포스트로피 추가)하세요.
      colRange.Interior.Color = RGB(173, 233, 249)
    • 선택한 셀의 전체 열만 강조 표시하려면 다음 줄을 제거하거나 주석 처리(앞에 아포스트로피 추가)하세요.
      rowRange.Interior.Color = RGB(248, 150, 171)

  3. 그런 다음 VBA 편집기 창을 닫고 워크시트로 돌아갑니다.

결과 :

이제 셀을 선택하면 해당 셀의 전체 행과 열이 자동으로 강조 표시되고 선택한 셀이 변경되면 아래 데모와 같이 강조 표시가 동적으로 이동합니다.

배송 시 요청 사항:
  • 이 코드는 워크시트의 모든 셀에서 배경색을 지우므로 사용자 지정 색상이 있는 셀이 있는 경우 이 솔루션을 사용하지 마십시오.
  • 이 코드를 실행하면 취소 기능을 시트에 추가하면 실수를 되돌릴 수 없습니다. Ctrl + Z 지름길.
  • 이 코드는 보호된 워크시트에서는 작동하지 않습니다.
  • 선택한 셀의 행과 열 강조 표시를 중지하려면 이전에 추가한 VBA 코드를 제거해야 합니다. 그 후 클릭하여 강조 표시를 재설정하려면 > 채우기 색 > 채우기 없음.

Kutools를 한 번만 클릭하면 활성 행과 열이 자동 강조 표시됩니다.

Excel에서 VBA 코드의 한계에 직면하고 계십니까? 쿠툴 Excel 용's 그리드 포커스 기능이 이상적인 솔루션입니다! VBA의 단점을 해결하도록 설계된 이 제품은 시트 경험을 향상시키기 위해 다양한 강조 스타일을 제공합니다. 열려 있는 모든 통합 문서에 이러한 스타일을 적용할 수 있는 기능을 통해 쿠툴 지속적으로 효율적이고 시각적으로 매력적인 데이터 관리 프로세스를 보장합니다.

주의 사항: 이것을 사용하고 싶다면 그리드 포커스 기능 부탁드립니다 Excel 용 Kutools 다운로드 및 설치 먼저.

설치 후 Excel 용 Kutools클릭하세요 쿠툴 > 그리드 포커스 이 기능을 활성화하려면 이제 활성 셀의 행과 열이 즉시 강조 표시되는 것을 볼 수 있습니다. 이 강조 표시는 셀 선택을 변경하면 따라가도록 동적으로 이동합니다. 아래 데모를 참조하세요.

그리드 포커스 기능의 주요 이점:
  • 원래 셀 배경색을 유지합니다.
    VBA 코드와 달리 이 기능은 워크시트의 기존 서식을 따릅니다.
  • 보호된 시트에서 사용 가능:
    이 기능은 보호된 워크시트 내에서 원활하게 작동하므로 보안을 손상시키지 않고 중요하거나 공유된 문서를 관리하는 데 이상적입니다.
  • 실행 취소 기능에 영향을 주지 않습니다.
    이 기능을 사용하면 Excel의 실행 취소 기능에 대한 전체 액세스 권한을 유지할 수 있습니다. 이를 통해 변경 사항을 쉽게 되돌릴 수 있어 데이터 조작에 보안 계층이 추가됩니다.
  • 대용량 데이터에서도 안정적인 성능:
    이 기능은 대규모 데이터 세트를 효율적으로 처리하도록 설계되어 복잡하고 데이터 집약적인 스프레드시트에서도 안정적인 성능을 보장합니다.
  • 다양한 강조 스타일:
    이 기능은 다양한 강조 옵션을 제공하므로 다양한 스타일과 색상 중에서 선택하여 행, 열 또는 행과 열의 활성 셀을 선호도와 요구 사항에 가장 적합한 방식으로 돋보이게 만들 수 있습니다.
팁 :
  • 이 기능을 비활성화하려면 다음을 클릭하십시오. 쿠툴 > 그리드 포커스 이 기능을 다시 닫으려면;
  • 이 기능을 적용하려면 Excel 용 Kutools 다운로드 및 설치 먼저.

조건부 서식을 사용하여 활성 행 및 열 자동 강조 표시

Excel에서는 활성 행과 열을 자동으로 강조 표시하도록 조건부 서식을 설정할 수도 있습니다. 이 기능을 설정하려면 다음 단계를 따르세요.

1단계: 데이터 범위 선택

먼저 이 기능을 적용할 셀 범위를 선택하세요. 이는 전체 워크시트일 수도 있고 특정 데이터 세트일 수도 있습니다. 여기서는 워크시트 전체를 선택하겠습니다.

2단계: 조건부 서식에 액세스

> 조건부 서식 > 새로운 규칙, 스크린 샷 참조 :

3단계: 새 서식 규칙에서 작업 설정

  1. . 새로운 서식 규칙 대화 상자에서 수식을 사용하여 서식을 지정할 셀 결정 인사말 규칙 유형 선택 리스트 박스.
  2. . 이 공식이 참인 경우 값 형식 지정 상자에 다음 수식 중 하나를 입력합니다. 이 예에서는 세 번째 수식을 적용하여 활성 행과 열을 강조 표시합니다.
    활성 행을 강조 표시하려면 다음을 수행하십시오.
    =CELL("row")=ROW()
    활성 열을 강조 표시하려면 다음을 수행하십시오.
    =CELL("col")=COLUMN()
    활성 행과 열을 강조표시하려면 다음을 수행하십시오.
    =OR(CELL("row")=ROW(), CELL("col")= COLUMN())
  3. 그런 다음 형성 버튼을 클릭합니다.
  4. 다음에서 셀 서식 대화 상자에서 작성 탭에서 필요에 따라 하나의 색상을 선택하여 활성 행과 열을 강조 표시합니다. 스크린샷을 참조하세요.
  5. 그런 다음 OK > OK 대화 상자를 닫습니다.

결과 :

이제 A1 셀의 전체 열과 행이 한 번에 강조 표시된 것을 볼 수 있습니다. 이 강조 표시를 다른 셀에 적용하려면 원하는 셀을 클릭하고 F9 키를 눌러 시트를 새로 고치면 새로 선택한 셀의 전체 열과 행이 강조 표시됩니다.

팁 : 
  • 실제로 Excel에서 강조 표시를 위한 조건부 서식 접근 방식이 솔루션을 제공하지만 다음을 사용하는 것만큼 원활하지는 않습니다. VBA 또한 그리드 포커스 특징. 이 방법을 사용하려면 시트를 수동으로 다시 계산해야 합니다( F9 키).
    워크시트의 자동 재계산을 활성화하려면 간단한 VBA 코드를 대상 시트의 코드 모듈에 통합하면 됩니다. 이렇게 하면 새로 고침 프로세스가 자동화되어 버튼을 누르지 않고도 다른 셀을 선택할 때 강조 표시가 즉시 업데이트됩니다. F9 열쇠. 시트 이름을 마우스 오른쪽 버튼으로 클릭한 다음 선택하세요. 코드보기 상황에 맞는 메뉴에서. 그런 다음 다음 코드를 복사하여 시트 모듈에 붙여넣습니다.
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Target.Calculate
    End Sub
    
  • 조건부 서식은 워크시트에 수동으로 적용한 기존 서식을 유지합니다.
  • 조건부 서식은 특히 대규모 데이터세트에 적용될 때 변동성이 큰 것으로 알려져 있습니다. 광범위하게 사용하면 잠재적으로 통합 문서의 성능이 저하되어 데이터 처리 및 탐색 효율성에 영향을 미칠 수 있습니다.
  • CELL 함수는 Excel 버전 2007 이상에서만 사용할 수 있으며, 이 방법은 이전 버전의 Excel과 호환되지 않습니다.

위 방법의 비교

특색 VBA 코드 조건부 서식 Excel 용 Kutools
셀 배경색 유지 아니 가능 가능
실행 취소 지원 아니 가능 가능
대규모 데이터세트에서도 안정적 아니 아니 가능
보호된 시트에서 사용 가능 아니 가능 가능
열려 있는 모든 통합 문서에 적용됩니다. 현재 시트만 현재 시트만 열려있는 모든 통합 문서
수동 새로 고침 필요(F9) 아니 가능 아니

이것으로 Excel에서 선택한 셀의 열과 행을 강조 표시하는 방법에 대한 가이드가 끝났습니다. 더 많은 Excel 팁과 요령을 살펴보고 싶으시다면 저희 웹사이트에서 수천 개의 튜토리얼을 확인하세요. 액세스하려면 여기를 클릭하세요.. 읽어주셔서 감사합니다. 앞으로도 더 유용한 정보를 제공해 드릴 수 있도록 노력하겠습니다!


관련 기사:

  • 활성 셀의 행과 열 자동 강조 표시
  • 데이터가 많은 큰 워크 시트를 볼 때 선택한 셀의 행과 열을 강조 표시하여 데이터를 잘못 읽지 않도록 쉽고 직관적으로 읽을 수 있도록 할 수 있습니다. 여기에서는 현재 셀의 행과 열을 강조 표시하는 몇 가지 흥미로운 트릭을 소개 할 수 있습니다. 셀이 변경되면 새 셀의 열과 행이 자동으로 강조 표시됩니다.
  • Excel에서 다른 모든 행이나 열을 강조 표시합니다.
  • 큰 워크시트에서 매 n번째 행이나 열을 강조 표시하거나 채우면 데이터 가시성과 가독성이 향상됩니다. 워크시트를 더욱 깔끔하게 보이게 할 뿐만 아니라 데이터를 더 빠르게 이해하는 데 도움이 됩니다. 이 문서에서는 한걸음씩 또는 n번째 행이나 열을 음영 처리하는 다양한 방법을 안내하여 데이터를 더욱 매력적이고 간단한 방식으로 표시하는 데 도움을 줍니다.
  • 스크롤하는 동안 전체/전체 행 강조 표시
  • 여러 열이있는 큰 워크 시트가있는 경우 해당 행의 데이터를 구별하기가 어렵습니다. 이 경우 가로 스크롤 막대를 아래로 스크롤 할 때 해당 행의 데이터를 빠르고 쉽게 볼 수 있도록 활성 셀의 전체 행을 강조 표시 할 수 있습니다. .
  • 드롭다운 목록을 기반으로 행 강조 표시
  • 이 기사에서는 드롭 다운 목록을 기준으로 행을 강조 표시하는 방법에 대해 설명합니다. 예를 들어 E 열의 드롭 다운 목록에서 "진행 중"을 선택하면이 행을 빨간색으로 강조 표시해야합니다. 드롭 다운 목록에서 "완료 됨"을 선택하고이 행을 파란색으로 강조 표시해야하며 "시작되지 않음"을 선택하면 녹색이 행을 강조 표시하는 데 사용됩니다.
Comments (61)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
And please reply to an email
This comment was minimized by the moderator on the site
Great job . But in the first task at the top of the browser page, when I did it, it was working correctly, but when I made protection for the sheet, it stopped working correctly, you see, what's the solution. Thank you
This comment was minimized by the moderator on the site
Hello,
To solve your problem, please apply the followign code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Me.Unprotect
    Cells.Interior.ColorIndex = xlNone
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
    rowRange.Interior.Color = RGB(173, 233, 249)
    colRange.Interior.Color = RGB(173, 233, 249)
    Me.Protect
End Sub



Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    
    ' Clear previous highlighting
    Me.Cells.FormatConditions.Delete
    
    ' Check if Checkbox1 is checked
    ' If CheckBox1.Value = True Then
        ' Check if a single cell or a range of cells is selected
        If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
            Dim selectedRange As Range
            Dim selectedRows As Range
            Dim selectedColumns As Range
            
            Set selectedRange = Target
            Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
            Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)
            
            ' Add conditional formatting to highlight the selected rows
            With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
            
            ' Add conditional formatting to highlight the selected columns
            With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
        End If
    ' End If
    
    On Error GoTo 0
End Sub
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

' Clear previous highlighting
Me.Cells.FormatConditions.Delete

' Check if a single cell or a range of cells is selected
If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
Dim selectedRange As Range
Dim selectedRows As Range
Dim selectedColumns As Range

Set selectedRange = Target
Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)

' Add conditional formatting to highlight the selected rows
With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With

' Add conditional formatting to highlight the selected columns
With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With
End If

On Error GoTo 0
End Sub
This comment was minimized by the moderator on the site
can you please post code in VBA format? trying to figure out what your code looks like from what you posted in a jumble is frustrating.
This comment was minimized by the moderator on the site
Hi,

The above code is brilliant. But i have two questions and if you can help then will be much appreciated. Let me know if there is cost associated with it.

1. The above code is removing my previous formatting of the cells. Eg. if i have got the cells filld with blue then above code clears that fill.
2. Is there a code that i can use when i am extracting values from another sheet and that row in the that sheet gets highlighted as well. Eg. I want to extract vale from another cell, so when i press = sign in sheet 1 and then when i move to sheet 2 to bring the value the row in the sheet doesn't get highlighted.

Regards,
This comment was minimized by the moderator on the site
Hello, Patel
For the first question:
It may be difficult to modify the VBA code, so, I recommend you to apply the Conditional Formatting feature for solving this problem, the following article may help you:
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html

Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

For the second question:
Sorry, I can't solve this problem at present,😜
This comment was minimized by the moderator on the site
How do you modify the code so that:
1. It does not permanently strip existing colors of cells. Currently, after another cell is selected, it leaves colorless previous row. I'd like to keep the colors of the worksheet, as they were before row was highlighted by this code.
2. Limit the highlight width to only Columns A thru K, not the entire row.
This comment was minimized by the moderator on the site
Hello,
It may be difficult to modify the VBA code, so, here, I recommend you to apply the Conditional Formatting feature for solving this problem, please view the below article: (Note: if you need to highlight the column A to column K, you just need to select the range you need, and then apply the conditional formatting.)
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html


Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you so much for this tip!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Another easy way to highlight your rows: https://youtu.be/iOF06mZDGIk
This comment was minimized by the moderator on the site
FAIL. Wiped out all my other cell formatting irreversibly. And doesn't work if the sheet is protected. FAIL.
This comment was minimized by the moderator on the site
Hi Gues,The code does not work in a protected worksheet. If you want to keep the original cell formatting, please try the below code.The Reading Layout feature of Kutools is stable and handy, maybe you can download a free trial to have a try.
<div data-tag="code">Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 202001106
Static xRow
Static xColumn

Dim xWs As Worksheet
Dim xCRg, xCRg1, xRRg, xRRg1, xOHRg As Range
Dim xAHRORg, xAHRORg1 As Range
Dim xAWs As Worksheet
Dim xFNum As Integer
Dim xCll As Range

On Error Resume Next

Application.ScreenUpdating = False
pRow = Selection.Row
pColumn = Selection.Column

Set xWs = ActiveWorkbook.Worksheets.Item("AutoHighlightRAndC")
Set xAWs = Target.Worksheet
If xWs Is Nothing Then
Set xWs = ActiveWorkbook.Worksheets.Add
xWs.Name = "AutoHighlightRAndC"
xWs.Visible = xlSheetHidden
xAWs.Activate
End If

If xColumn <> "" Then
Set xCRg = Columns(xColumn)
xCRg.Interior.ColorIndex = xlNone
Set xCRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg.Count
Set xAHRORg1 = xAWs.Cells(xFNum, xColumn)
Set xAHRORg = xWs.Cells(xFNum, xColumn)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xCRg.Item(xFNum).Interior.ColorIndex = xWs.Columns(xColumn).Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(xRow)
xRRg.Interior.ColorIndex = xlNone
Set xRRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xRRg.Count
Set xAHRORg1 = xAWs.Cells(xRow, xFNum)
Set xAHRORg = xWs.Cells(xRow, xFNum)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xRRg.Item(xFNum).Interior.ColorIndex = xWs.Rows(xRow).Item(xFNum).Interior.ColorIndex
Next

End If

xRow = pRow
xColumn = pColumn

Set xCRg = Columns(pColumn)
Set xCRg1 = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg1.Count
Set xOHRg = xWs.Cells(xFNum, pColumn)
xOHRg.Interior.ColorIndex = xCRg1.Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(pRow)
Set xRRg1 = Intersect(xRRg.Worksheet.UsedRange, xRRg)

For xFNum = 1 To xRRg1.Count
Set xCll = xWs.Cells(pRow, xFNum)
xCll.Interior.ColorIndex = xRRg1.Item(xFNum).Interior.ColorIndex
Next
xCRg.Interior.ColorIndex = 34
xRRg.Interior.ColorIndex = 34
Application.ScreenUpdating = True
End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations