Jak połączyć teksty wielu komórek w pole tekstowe w programie Excel?
Łączenie tekstów wielu komórek w nową komórkę z formułą może być łatwe. Ale czy wiesz, jak połączyć wartości wielu komórek w pole tekstowe (formant ActiveX)? Właściwie metoda opisana w tym artykule może ci w tym pomóc.
Połącz teksty wielu komórek w pole tekstowe z kodem VBA
Połącz teksty wielu komórek w pole tekstowe z kodem VBA
Poniższa metoda może pomóc w połączeniu tekstów wielu komórek w polu tekstowym w programie Excel.
1. W arkuszu, w którym chcesz połączyć wiele komórek, wstaw pole tekstowe, klikając Deweloper > wstawka > Pole tekstowe (formant ActiveX). Zobacz zrzut ekranu:
2. Następnie kliknij Deweloper > wstawka > Przycisk polecenia (formant ActiveX) aby wstawić przycisk polecenia do arkusza.
3. Kliknij prawym przyciskiem myszy wstawiony przycisk polecenia, a następnie wybierz Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:
4. w Microsoft Visual Basic for Applications oknie, zamień oryginalny kod na poniższy kod VBA.
Kod VBA: połącz teksty wielu komórek w pole tekstowe
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End SubUwagi: CommandButton1 to nazwa wstawionego przycisku polecenia. Zmień to w zależności od potrzeb.
5. Wyłącz tryb projektowania, klikając Deweloper > Tryb projektowania.
6. Wybierz komórki, których potrzebujesz, aby połączyć teksty w pole tekstowe, a następnie kliknij Przycisk Polecenia. Następnie zawartość wszystkich wybranych komórek jest natychmiast łączona z polem tekstowym, jak pokazano poniżej.
Podobne artykuły:
- Jak automatycznie zaznaczyć tekst pola tekstowego, gdy jest on wybrany w programie Excel?
- Jak automatycznie uzupełniać pole tekstowe podczas pisania w programie Excel?
- Jak wyczyścić zawartość pola tekstowego po kliknięciu w programie Excel?
- Jak wyłączyć edycję w polu tekstowym, aby uniemożliwić wprowadzanie danych przez użytkownika w programie Excel?
- How, aby sformatować pole tekstowe jako procent w programie Excel?
Najlepsze narzędzia biurowe
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- 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 bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... 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 ...
- 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...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
Karta Office wprowadza 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!
