Excel: Jak rozwinąć komórkę, aby wyświetlić całą zawartość po kliknięciu?

W niektórych przypadkach, jeśli zawartość komórki jest dłuższa niż szerokość komórki i są wartości w następnych komórkach kolumn, tylko części zawartości są wyświetlane, jak pokazano na poniższym zrzucie ekranu. Aby uniknąć zmiany szerokości i wysokości komórek, możesz kliknąć komórkę i wyświetlić całą zawartość na pasku formuły. Ale jeśli pasek formuły jest ukryty lub krótszy niż zawartość, jak to zrobić? Tutaj przedstawia dwie metody, które mogą wyświetlać zawartość komórki w polu tekstowym po kliknięciu.

Rozwiń komórkę, aby wyświetlić całą zawartość, wstawiając pole tekstowe Active X Controls

Rozwiń komórkę, aby wyświetlić całą zawartość za pomocą większego paska formuły Kutools for Excel

Uwaga: metody przedstawione w tym samouczku są testowane w programie Excel 2021, mogą być różne w różnych wersjach programu Excel.

1. Aktywuj arkusz, który chcesz rozwinąć, kliknij Deweloper > wstawka > Pole tekstowe (kontrolki ActiveX).

Jeżeli nie ma Deweloper na wstążce, wyświetl ją na początku, zapoznaj się z tym samouczkiem Jak wyświetlić/wyświetlić kartę dewelopera na wstążce programu Excel

2. Następnie przeciągnij kursor, aby narysować pole tekstowe o szerokości i wysokości, które mogą pokazywać najdłuższą zawartość komórek. Zapamiętaj nazwę tego pola tekstowego, tutaj jest TextBox1.

3. Kliknij prawym przyciskiem myszy pole tekstowe i kliknij Właściwości z menu kontekstowego. Następnie w Właściwości okienko, wybierz Prawdziwy z list rozwijanych w Multilinia i Zawijanie tekstu Sekcje. Następnie zamknij Właściwości szkło.
  

Lub możesz wybrać True z rozwijanej listy w Rozmiar auta w panelu Właściwości, pole tekstowe zostanie automatycznie dopasowane do długości klikniętej zawartości komórki.

4. Kliknij prawym przyciskiem myszy kartę z nazwą arkusza na pasku stanu i kliknij Wyświetl kod z menu kontekstowego.

5. w Microsoft Visual Basic for Applications okno, skopiuj i wklej poniższy kod do pustego skryptu.

VBA: Rozwiń komórkę, aby wyświetlić zawartość

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

Zauważ, że TextBox1 to nazwa narysowanego pola tekstowego, a A1: B4 to zakres działania tego kodu, zmień je zgodnie z potrzebami.

6. Wróć do arkusza, kliknij Deweloper > Tryb projektowania istnieć tryb projektowania.

Teraz po kliknięciu komórki pojawi się obok niej pole tekstowe i pokaże całą zawartość komórki.

Jeśli zainstalowałeś Kutools dla programu Excel, dostarczony większy pasek formuły pokaże całą zawartość komórki w wyskakującym polu po kliknięciu, o ile aktywujesz go, klikając Kutools > Większy pasek formuły.

Porady:

1. Z Większym Paskiem Formuły, oprócz przeglądania zawartości aktywnej komórki, możesz również edytować zawartość komórki w Większym Pasku Formuły.

2. Możesz zmienić rozmiar większego paska formuły, przeciągając prawy dolny róg paska.

3. Jeśli zaznaczysz więcej niż jedną komórkę, tylko zawartość pierwszej komórki zaznaczenia zostanie pokazana na Większym pasku formuły.

Więcej szczegółów na temat Bigger Formula Bar, odwiedź jego Tutorial.

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...

Czytaj więcej... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup... 

---

Karta Office - przenosi interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup...