메인 컨텐츠로 가기

Excel: 클릭 시 모든 내용을 표시하도록 셀을 확장하는 방법

경우에 따라 셀 내용이 셀 너비보다 길고 다음 열 셀에 값이 있는 경우 아래 스크린샷과 같이 내용의 일부만 표시됩니다. 셀의 너비와 높이를 변경하지 않으려면 셀을 클릭하고 수식 입력줄에서 전체 내용을 볼 수 있습니다. 하지만 수식 입력줄이 숨겨져 있거나 내용보다 짧다면 어떻게 해야 할까요? 다음은 클릭할 때 텍스트 상자의 셀 내용을 표시할 수 있는 두 가지 방법을 소개합니다.
다른 목록에서 자동 완성

텍스트 상자를 삽입하여 모든 내용을 표시하도록 셀 확장 Active X 컨트롤

Excel 용 Kutools의 더 큰 수식 모음을 사용하여 모든 내용을 표시하도록 셀 확장

참고: 이 자습서에서 제공하는 방법은 Excel 2021에서 테스트되었으며 Excel 버전에 따라 약간 다를 수 있습니다.


텍스트 상자를 삽입하여 모든 내용을 표시하도록 셀 확장 Active X 컨트롤

1. 셀을 확장하려는 워크시트를 활성화하고 개발자 > 끼워 넣다 > 텍스트 상자(ActiveX 컨트롤).
다른 목록에서 자동 완성

없는 경우 개발자 리본에서 탭을 표시하려면 먼저 이 자습서를 참조하십시오. Excel 리본에서 개발자 탭을 표시/표시하는 방법

2. 그런 다음 커서를 끌어 셀의 가장 긴 내용을 표시할 수 있는 너비와 높이의 텍스트 상자를 그립니다. 이 텍스트 상자의 이름을 기억하십시오. 여기에 TextBox1이 있습니다.
다른 목록에서 자동 완성

3. 텍스트 상자를 마우스 오른쪽 버튼으로 클릭하고 등록 컨텍스트 메뉴에서. 그런 다음 등록 창, 선택 참된 드롭다운 목록에서 여러 줄줄 바꿈 섹션. 그런 다음 닫습니다. 등록 창유리.
다른 목록에서 자동 완성  다른 목록에서 자동 완성

또는 다음의 드롭다운 목록에서 True를 선택할 수 있습니다. 자동 크기 조정 속성 창의 섹션에서 클릭한 셀 내용의 길이에 따라 텍스트 상자의 크기가 자동으로 조정됩니다.

4. 상태 표시줄의 시트 이름 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 컨텍스트 메뉴에서.

5. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 코드 아래에 복사하여 빈 스크립트에 붙여 넣습니다.

VBA: 내용을 표시하도록 셀 확장

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

다른 목록에서 자동 완성

TextBox1은 그린 텍스트 상자의 이름이고 A1:B4는 이 코드가 작동하는 범위이므로 필요에 따라 변경합니다.

6. 시트로 돌아가서 개발자 > 디자인 모드 존재하는 디자인 모드.
다른 목록에서 자동 완성

이제 셀을 클릭하면 텍스트 상자가 옆에 나타나고 셀의 전체 내용이 표시됩니다.
다른 목록에서 자동 완성


Excel 용 Kutools의 더 큰 수식 모음을 사용하여 모든 내용을 표시하도록 셀 확장

Excel 용 Kutools를 설치 한 경우 제공하는 더 큰 수식 입력 줄은 클릭하여 활성화하는 한 클릭하면 팝업 상자에 셀의 모든 내용을 표시합니다 쿠툴 > 더 큰 포뮬러 바.
다른 목록에서 자동 완성

팁 :

1. 더 큰 수식 모음을 사용하면 활성 셀의 내용을 보는 것을 제외하고 더 큰 수식 모음에서 셀 내용을 편집할 수도 있습니다.

2. 막대의 오른쪽 아래 모서리를 끌어 더 큰 공식 막대의 크기를 조정할 수 있습니다.

3. 둘 이상의 셀을 선택하면 선택 항목의 첫 번째 셀 내용만 더 큰 수식 입력줄에 표시됩니다.

더 큰 포뮬러 바에 대한 자세한 내용은 지도 시간.


기타 작업 (문서)

자동 완성을 끄는 방법
다음은 자동 완성을 중지할 수 있는 Excel의 옵션입니다.

Excel 파일 크기를 줄이는 방법?
때로는 Excel 파일이 너무 큰 경우 열거나 저장하는 데 몇 분이 걸립니다. 이 문제를 해결하기 위해 이 자습서에서는 불필요하거나 사용하지 않는 내용이나 형식을 제거하여 Excel 파일 크기를 줄이는 방법을 알려줍니다.

다른 테이블의 셀을 자동 완성하는 방법
이 튜토리얼에서는 하나의 열 값을 입력한 후 다른 시트의 테이블에서 다른 열 셀을 자동 완성하는 방법에 대해 설명합니다.

Excel에서 홀수 또는 짝수 (대체) 행 / 열에 음영을 적용하는 방법은 무엇입니까?
워크 시트를 디자인하는 동안 많은 사람들이 워크 시트를보다 시각적으로 만들기 위해 홀수 또는 짝수 (대체) 행이나 열에 음영을 적용하는 경향이 있습니다. 이 기사에서는 Excel에서 홀수 또는 짝수 행 / 열에 음영을 적용하는 두 가지 방법을 보여줍니다.


  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 및 데이터 보관; 셀 내용 분할; 중복 행과 합계 / 평균 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 즐겨 찾기 및 빠른 수식 삽입, 범위, 차트 및 그림; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 피벗 테이블 그룹화 기준 주 번호, 요일 등 ... 잠금 해제되고 잠긴 셀 표시 다른 색상으로; 수식 / 이름이있는 셀 강조 표시...
kte 탭 201905
  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations