Прескочи на основното съдържание

Excel: Как да разширите клетката, за да покажете цялото съдържание при щракване

Автор: Слънце Последна промяна: 2022-10-08

В някои случаи, ако съдържанието на клетката е по-дълго от ширината на клетката и има стойности в клетките на следващата колона, само части от съдържанието се показват, както е показано на екранната снимка по-долу. За да избегнете промяна на ширината и височината на клетките, можете да щракнете върху клетката и да видите цялото съдържание в лентата с формули. Но ако лентата с формули е скрита или по-къса от съдържанието, как да го направя? Тук се представят два метода, които могат да покажат съдържанието на клетката в текстово поле, когато щракнете върху него.
автоматично попълване от друг списък

Разширете клетката, за да покажете цялото съдържание, като вмъкнете текстово поле Active X Controls

Разширете клетката, за да покажете цялото съдържание, като използвате по-голяма лента с формули на Kutools за Excel

Забележка: методите, предоставени в този урок, са тествани в Excel 2021, може да има някои различия в различните версии на Excel.


Разширете клетката, за да покажете цялото съдържание, като вмъкнете текстово поле Active X Controls

1. Активирайте работния лист, който искате да разширите клетката, щракнете Софтуерен Инженер > Поставете > Текстово поле (ActiveX контроли).
автоматично попълване от друг списък

Ако няма Софтуерен Инженер раздел в лентата, моля, покажете го първо, моля, вижте този урок Как да покажете/покажете раздела за програмисти в лентата на Excel

2. След това плъзнете курсора, за да нарисувате текстово поле с ширина и височина, които могат да показват най-дългото съдържание на клетките. Запомнете името на това текстово поле, тук е TextBox1.
автоматично попълване от друг списък

3. Щракнете с десния бутон върху текстовото поле и щракнете Имоти от контекстното меню. След това в Имоти панел, изберете Вярно от падащи списъци в MultiLine намлява WordWrap секции. След това затворете Имоти панел.
автоматично попълване от друг списък  автоматично попълване от друг списък

Или можете да изберете True от падащия списък в AutoSize раздел в панела Свойства, текстовото поле ще бъде автоматично оразмерено въз основа на дължината на съдържанието на клетката, върху която щракнете.

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. Върнете се на листа, щракнете Софтуерен Инженер > Режим на проектиране да съществува режим на проектиране.
автоматично попълване от друг списък

Сега, когато щракнете върху клетката, текстовото поле ще се появи до нея и ще покаже цялото съдържание на клетката.
автоматично попълване от друг списък


Разширете клетката, за да покажете цялото съдържание, като използвате по-голяма лента с формули на Kutools за Excel

Ако сте инсталирали Kutools за Excel, предоставената от него по-голяма лента с формули ще покаже цялото съдържание на клетката в изскачащо поле, когато щракнете, стига да го активирате, като щракнете върху Kutools > По-голяма формула лента.
автоматично попълване от друг списък

Съвет:

1. С лентата с по-големи формули, освен за преглед на съдържанието на активната клетка, можете също да редактирате съдържанието на клетката в лентата с по-големи формули.

2. Можете да промените размера на по-голямата лента с формули, като плъзнете десния надолу ъгъл на лентата.

3. Ако изберете повече от една клетка, само съдържанието на първата клетка от селекцията се показва в лентата с по-големи формули.

Повече подробности за Bigger Formula Bar, моля, посетете настойнически.


Други операции (статии)

Как да изключите автоматичното завършване
Ето опция в Excel, която може да спре автоматичното завършване.

Как да намалим размера на файла на Excel?
Понякога отварянето или запазването ще отнеме минути, ако файлът на Excel е твърде голям. За решаването на този проблем, тук в този урок, той ви казва как да намалите размера на файла на Excel, като премахнете съдържанието или форматите, които са ненужни или никога не са използвани.

Как да попълвате автоматично клетки от друга таблица
В този урок се говори за това как автоматично да се попълват други клетки на колона от таблица в друг лист след въвеждане на стойност на една колона.

Как да приложа засенчване към нечетни или четни (алтернативни) редове/колони в Excel?
Докато проектират работен лист, много хора са склонни да прилагат засенчване към нечетни или четни (алтернативни) редове или колони, за да направят работния лист по-визуален. Тази статия ще ви покаже два метода за прилагане на засенчване към нечетни или четни редове/колони в Excel.


  • Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
  • Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
  • Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
  • Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
  • Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
  • Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
  • Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
  • Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
  • Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...
kte tab 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