팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Excel에서 활성 셀의 행과 열을 자동 강조 표시하는 방법은 무엇입니까?

doc 강조 row1

수많은 데이터가있는 큰 워크 시트를 볼 때 선택한 셀의 행과 열을 강조 표시하여 데이터를 쉽게 읽고 직관적으로 읽을 수 있습니다. 여기에서는 현재 셀의 행과 열을 강조 표시하는 흥미로운 트릭을 소개 할 수 있습니다. 셀이 변경되면 새 셀의 열과 행이 다음 스크린 샷과 같이 자동으로 강조 표시됩니다.


VBA 코드로 선택한 셀의 행 및 열 자동 강조 표시

클릭 한 번으로 선택한 셀의 행과 열이 강조 표시됩니다.


한 번의 클릭으로 Excel에서 선택한 셀의 행과 열을 강조 표시합니다.

Excel 용 Kutools's 레이아웃 읽기 유틸리티를 사용하면 Excel에서 선택한 셀의 행과 열을 빠르게 강조 표시 할 수 있습니다. 스크린 샷보기 :

Excel 용 Kutools: 200 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다. 무료 평가판을 다운로드하십시오!

Office 탭 Office에서 탭 편집 및 찾아보기를 사용하고 훨씬 쉽게 작업 할 수 있습니다 ...
Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.
  • 무엇이든 재사용하십시오 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용하십시오.
  • 20 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트 일부 추출 또는 제거; 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서 및 시트를 하나로 통합합니다. 데이터 손실없이 여러 셀 / 행 / 열 병합 중복 행 병합 및 합계
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할; 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 하나의 열에서 여러 열로.
  • 건너 뛰기 붙여 넣기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 여러 전자 메일 수신자에게 개인화 된 전자 메일 보내기
  • 수퍼 필터 : 고급 필터 구성표를 작성하고 모든 시트에 적용하십시오. 종류 주별, 일별, 빈도 등으로; FILTER 굵게, 수식, 주석으로 ...
  • 300 이상의 강력한 기능; Office 2007-2019 및 365와 호환됩니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다.

VBA 코드로 선택한 셀의 행 및 열 자동 강조 표시

다음 VBA 코드는 워크 시트에서 현재 셀의 전체 열과 행을 자동으로 강조 표시하는 데 도움이됩니다. 다음 단계를 따르십시오.

1. 활성 셀의 행과 열을 자동 강조 표시 할 워크 시트를 열고 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 코드보기 컨텍스트 메뉴에서.

2. 그런 다음 VBA 코드를 복사하여 빈 코드 창에 붙여 넣습니다.

VBA 코드 : 선택한 셀의 행 및 열 자동 강조 표시

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
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 = 6
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

doc-reading-layout3

3. 그런 다음 다른 + Q 키를 함께 사용하여 워크 시트로 돌아가려면 이제 셀을 선택하면이 셀의 전체 행과 열이 강조 표시됩니다. 선택한 셀이 변경되면 동적으로 이동합니다.

doc-reading-layout4

노트:

1. 위의 코드에서 .ColorIndex = 6 당신이 좋아하는 다른 색깔에 색깔.

2. 이 VBA 코드는 위의 2 단계에서 선택한 워크 시트에만 적용됩니다.

3. 선택한 셀의 열과 행을 다시 강조 표시하지 않으려면 위의 VBA를 삭제하고 다음을 클릭하여 선택한 행 및 열에 채우기를 설정해야합니다. > 채우기 색 > 채우기 없음.

4. 워크 시트에 색이있는 셀이 있으면 셀을 클릭 한 다음 다른 셀로 이동하면 색이 손실됩니다.


Excel 용 Kutools로 선택한 셀의 행 및 열 자동 강조 표시

셀 범위의 전체 행과 열을 강조 표시하려면 코드를 사용할 수 없지만 Excel 용 Kutools레이아웃 읽기 보기,이 문제를 신속하게 해결할 수 있습니다.

Excel 용 Kutools : 300 이상의 편리한 Excel 추가 기능, 60 일 동안 아무런 제한없이 자유롭게 시도 할 수 있습니다..

1. 워크 시트에서 셀이나 셀 범위를 선택하십시오. Click 하십시요. Kutools > 레이아웃 읽기 이 기능을 활성화하십시오. 선택한 셀의 전체 열과 행이 즉시 강조 표시됩니다. 선택한 셀이 변경되면 동적으로 이동합니다. 스크린 샷보기 :

:이 속성에 대해 몇 가지 속성을 설정할 수 있습니다. 레이아웃 읽기 의 기능 레이아웃 설정 읽기 대화 상자를 클릭하십시오. Kutools > 독해 > 레이아웃 설정 읽기 를 열려면 레이아웃 설정 읽기 대화 상자.

doc 강조 row1

선택한 셀의 행을 강조 표시하려면 일직선 옵션 :

doc 강조 row1

선택한 셀의 열을 강조 표시하려면 수직선 옵션 :

doc 강조 row1

노트:

1. 이 유틸리티는 취소 할 수 있습니다. 레이아웃 읽기 아래에 독해 드롭 다운 목록.

2. 이 레이아웃보기 읽기 기능은 통합 문서 내의 모든 워크 시트에 적용됩니다.

3. 이 레이아웃보기 읽기 다음 번에 통합 문서를 시작할 때 기능이 비활성화됩니다.


사무실 탭 - 탭 브라우징, 편집 및 Excel에서 통합 문서 관리 :

오피스 탭은 구글 크롬, 인터넷 익스플로러 새 버전, 파이어 폭스와 같은 웹 브라우저에서 볼 수있는 탭 인터페이스를 Microsoft Excel로 가져온다. 그것은 시간 절약 도구 일 것이고 당신의 일에서 바꿀 수 없을 것입니다. 아래 데모보기 :

Office 탭 무료 평가판을 보려면 클릭하십시오!

Excel 용 Office 탭


클릭 한 번으로 선택한 셀의 행과 열이 강조 표시됩니다.

Excel 용 Kutools 300 이상의 편리한 Excel 도구가 포함되어 있습니다. 60 일 동안 아무런 제한없이 시도해보십시오. 무료 평가판을 지금 다운로드하십시오!



Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 30 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Shaikh Wasim · 8 months ago
    When i try the above code to highlight row & column, its nt working, also i tried another code which worked as i found it in below comments which is

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 22
    Target.EntireColumn.Interior.ColorIndex = 22

    it worked but cleared all my cell colors to white & highlight the active cell, Please help me on this @crystal
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi Shaikh Wasim,
      The VBA code in the post works well in my case. Which Excel version do you use? As the "color cleared" problem you memtioned, I can't help to solve it yet. Way not try the Reading Layout utility of Kutools for Excel? It won't make any changes to your worksheet. Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    Alok Ghosh · 10 months ago
    After pasting the VBA code I saved as Add-In but not working. I want to change the color of the intersection cell also...
    • To post as a guest, your comment is unpublished.
      crystal · 9 months ago
      Good Day,
      You can change the highlight color by changing the .ColorIndex value. But the color of the intersection cell can't be changed alone.
  • To post as a guest, your comment is unpublished.
    Urska · 1 years ago
    Above VBA code did not work. I've tried the below code for highlighting both the selected column and row. It's shorter and easier



    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 22
    Target.EntireColumn.Interior.ColorIndex = 22


    End Sub
  • To post as a guest, your comment is unpublished.
    D · 1 years ago
    How can I change the VBA so the text color changes when the row is highlighted?



    Also, if you want to just highlight a row without the column.. Here is the code changes.



    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    'Update 20140318 'Updated By dlsodders for
    'Select Just Row
    Static xRow

    If xRow <> "" Then
    With Rows(xRow).Interior
    .ColorIndex = xlNone
    End With
    End If
    pRow = Selection.Row

    xRow = pRow

    With Rows(pRow).Interior
    .ColorIndex = 10
    .Pattern = xlSolid
    End With
    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      The following code can help you change the text color when the row is highlighted.

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      Static xRow
      Static xCol
      Dim pRow As Long
      Dim pCol As Long
      If Target.Count = 1 Then
      If xRow <> "" Then
      With Rows(xRow)
      .Interior.ColorIndex = xlNone
      .Font.ColorIndex = xlAutomatic
      End With
      End If
      pRow = Selection.Row
      pCol = Selection.Font.ColorIndex
      xRow = pRow
      xCol = pCol
      With Rows(pRow)
      .Interior.ColorIndex = 10
      .Interior.Pattern = xlSolid
      .Font.Color = -16776961
      End With
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    David · 1 years ago
    Thank you for posting this! It's very useful in check reconciliation via spreadsheet.
  • To post as a guest, your comment is unpublished.
    Jay · 1 years ago
    The VBA to highlight a single cell works but this one does not.
  • To post as a guest, your comment is unpublished.
    nolan · 2 years ago
    how do you prevent the undo & redo buttons from being deleted with this macro not using the Kutools
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Sorry about that. The undo & redo problem in the macro can't be solved.
  • To post as a guest, your comment is unpublished.
    David · 2 years ago
    I changed your code from highlighting the interior to making red borders.
    .BorderAround Weight:=xlThick, Color:=vbRed
    I select a cell, the borders turns red. Great. I copy, select another cell, those borders turn red, but the clipboard clears. I cannot figure out how to use borders, and keep the copy/paste functionality.
    Any suggestions?
    • To post as a guest, your comment is unpublished.
      Arthur Stolzenbach · 23 days ago
      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

      'Update 20192021
      Static xRow
      If xRow <> "" Then
      Rows(xRow).BorderAround Weight:=xlThin, Color:=vbBlack
      End If
      pRow = Selection.Row
      xRow = pRow
      Rows(pRow).BorderAround Weight:=xlThick, Color:=vbRed
      End Sub
    • To post as a guest, your comment is unpublished.
      Char · 1 years ago
      can you share the whole code?
  • To post as a guest, your comment is unpublished.
    Chienph · 2 years ago
    Hi. How can i high light entire row if one of cell is merge. I see kutool can make a line across a merge cell. Pl help me this solution
  • To post as a guest, your comment is unpublished.
    Vicente · 3 years ago
    Great article!. Life saver for me.
    And if you want the actual cell to be highlighted in yellow and row/cells in grey, this is the code:

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    'Update 20151216
    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 = 15
    .Pattern = xlSolid
    End With
    With Rows(pRow).Interior
    .ColorIndex = 15
    .Pattern = xlSolid
    End With
    Selection.Interior.ColorIndex = 6
    End Sub
    • To post as a guest, your comment is unpublished.
      Kamran · 3 years ago
      Correct code as follows:

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      'Update 20151216
      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 = 15
      .Pattern = xlSolid
      End With
      With Rows(pRow).Interior
      .ColorIndex = 15
      .Pattern = xlSolid
      End With
      Selection.Interior.ColorIndex = 6
      End Sub


      [quote name="Vicente"]Great article!. Life saver for me.
      And if you want the actual cell to be highlighted in yellow and row/cells in grey, this is the code:

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      'Update 20151216
      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 = 15
      .Pattern = xlSolid
      End With
      With Rows(pRow).Interior
      .ColorIndex = 15
      .Pattern = xlSolid
      End With
      Selection.Interior.ColorIndex = 6
      End Sub[/quote]
  • To post as a guest, your comment is unpublished.
    KSV · 4 years ago
    HOW CAN I MAKE IT POSSIBLE IF HAVE SHEET THAT IS ALREADY COLORED.
  • To post as a guest, your comment is unpublished.
    mike_thomas · 4 years ago
    This works if you don't have colors not in conditional formatting. Just add two more with loops.

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    'Update 20140318
    Static xRow
    Static xColumn
    If xColumn "" Then
    With Rows(xRow).Interior
    .ColorIndex = xlNone
    End With
    End If
    pRow = Selection.Row
    xRow = pRow
    With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    With Rows(pRow - 1).Interior
    .ColorIndex = 0
    .Pattern = x1Solid
    End With
    With Rows(pRow + 1).Interior
    .ColorIndex = 0
    .Pattern = x1Solid
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    SaltWater · 4 years ago
    When I reopen my workbook highlighted column from the prior session remains - and does change as I move around the worksheet in a new session. Is there a way to "clear" the prior session each time the workbook is opened?
  • To post as a guest, your comment is unpublished.
    Aditya · 4 years ago
    Bravo..exactly what I was looking for.....thanks a lot!!
  • To post as a guest, your comment is unpublished.
    listermoss · 5 years ago
    This is the code I used for just the row (grey highlight):

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    'Update 20140318
    Static xRow
    If xRow "" Then
    With Rows(xRow).Interior
    .ColorIndex = xlNone
    End With
    End If
    pRow = Selection.Row
    xRow = pRow
    With Rows(pRow).Interior
    .ColorIndex = 15
    .Pattern = xlSolid
    End With


    End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 2 years ago
      Copying and pasting your code did not work properly, but after fixing the syntax errors it worked amazingly! Thank you.
      Here is the working code for highlighting (yellow) the row only:

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

      'Update 20140318
      Static xRow
      If xRow "" Then
      With Rows(xRow).Interior
      .ColorIndex = xlNone
      End With
      End If
      pRow = Selection.Row
      xRow = pRow
      With Rows(pRow).Interior
      .ColorIndex = 6
      .Pattern = xlSolid
      End With
      End Sub
  • To post as a guest, your comment is unpublished.
    betakos · 5 years ago
    how can i stop it if i want it to stop??
  • To post as a guest, your comment is unpublished.
    Ton Hermes · 5 years ago
    How can I change the colors of the bars?
    Thnaks for this great solution.

    Regards, Ton
  • To post as a guest, your comment is unpublished.
    Mac · 5 years ago
    Any plans to add Mac functionality for Kutools?
  • To post as a guest, your comment is unpublished.
    Charles · 5 years ago
    To keep your cell color you will have to create a Conditional Formatting for the cells.
  • To post as a guest, your comment is unpublished.
    Will · 5 years ago
    Just what I was looking for. Thank you!
  • To post as a guest, your comment is unpublished.
    vipe · 5 years ago
    This works brilliantly. Is there a way of making it not show up on printing?
  • To post as a guest, your comment is unpublished.
    Matthewwwww · 5 years ago
    Hi! I really like this code but like Suresh said, it removes original cell colors! How can I keep my original cell colors?? Please respond, thanks!
  • To post as a guest, your comment is unpublished.
    felix · 5 years ago
    Hi, after putting in the code, the "undo" function no longer works. Can someone help?
  • To post as a guest, your comment is unpublished.
    Suresh Singh · 5 years ago
    Hi,

    the given code works fine for highlighting the row and coloumn of active cell. but the original cell colour along with coloumn and rows colour settings are lost. How to overcome this?
    • To post as a guest, your comment is unpublished.
      Janet D · 3 years ago
      This option is now available to non-coders in 2010 as long as you have the Developer tab.

      Under Developer, click Properties.

      Set EnableOutlining to True.

      Limitation:
      This appears to only apply to one worksheet at a time, although easy to set for other worksheets by clicking on tabs at bottom (while leaving the Properties dialog box open).

      Why Excel does not make this available under Options, well, it is Microsoft.
    • To post as a guest, your comment is unpublished.
      betakos · 5 years ago
      i use insert table to my data and it does not change original colouring
    • To post as a guest, your comment is unpublished.
      RaveFromDave · 5 years ago
      Here's my version for highlighting the current row (from A to AK). To avoid wiping out cell colouring I use a red border instead...plus it restores my preferred border to the row just left.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      Dim lRow As Long, lCol As Long
      Static lPrevRow As Long

      'Restore previous active row to...light blue dotted line
      If lPrevRow > 0 Then
      Range("A" & lPrevRow, "AK" & lPrevRow).BorderAround Weight:=xlHairline, Color:=RGB(162, 200, 255)
      End If

      'Highlight current row with a red border
      lRow = Target.Row
      Range("A" & lRow, "AK" & lRow).BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0)
      lPrevRow = lRow

      End Sub
      • To post as a guest, your comment is unpublished.
        Randy · 2 years ago
        Could not get this to work - please help, thanks :-)
        • To post as a guest, your comment is unpublished.
          Bozo · 2 years ago
          "Please help" - do you expect an answer with such a vague request, and no effort to explain the problem?
      • To post as a guest, your comment is unpublished.
        MARIO · 3 years ago
        HI I HAVE THE SAME PROBLEM WITH SURESH
        CAN YOU PLEASE PROVIDE ME WITH THE WHOLE AMENDED CODE FOR NOT WIPING THE ORIGINAL CELL COLOUR

        I'M USING THIS:

        Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        'Update 20140318
        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 = 6
        .Pattern = xlSolid
        End With
        With Rows(pRow).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        End With
        End Sub
      • To post as a guest, your comment is unpublished.
        calixco · 3 years ago
        you are a geniuos

        now, how abot rows and columsn?
      • To post as a guest, your comment is unpublished.
        farfan · 4 years ago
        Oh! man, works like a charm!!! great