Note: The other languages of the website are Google-translated. Back to English

Jak przekonwertować tekst w polu tekstowym na zawartość komórki w programie Excel?

Jeśli w arkuszu znajdują się pola tekstowe i chcesz przekonwertować zawartość pól tekstowych na komórki osobno, jak pokazano na poniższym zrzucie ekranu, czy są jakieś szybkie sposoby rozwiązania tego zadania, z wyjątkiem wprowadzania jednego po drugim w programie Excel? W tym artykule przedstawiam makro, aby wyświadczyć ci przysługę w rozwiązaniu tego problemu.
doc konwertuj pole tekstowe na komórkę 1

Konwertuj zawartość pola tekstowego na komórkę za pomocą VBA


strzałka niebieski prawy bąbelek Konwertuj zawartość pola tekstowego na komórkę za pomocą VBA

Oprócz kodu makr nie ma sztuczki, która może szybko przekonwertować pola tekstowe na zawartość komórki.

1. naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł, a następnie wklej poniższy kod do pliku Moduł skrypt.

VBA: Konwertuj pola tekstowe na komórkę

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

doc konwertuj pole tekstowe na komórkę 2

3. naciśnij F5 aby uruchomić kod, pojawi się okno dialogowe przypominające o wybraniu komórki do wyeksportowania zawartości pola tekstowego. Zobacz zrzut ekranu:
doc konwertuj pole tekstowe na komórkę 3

4. kliknij OK. Teraz wszystkie pola tekstowe zostały przekonwertowane na zawartość komórki.
doc konwertuj pole tekstowe na komórkę 4

Wskazówka: Powyżej VBA usunie pola tekstowe po uruchomieniu, jeśli chcesz zachować pola tekstowe, zmień kod xTxtBox.Usuń do 'xTxtBox.Usuń.

rozszerzenie:Jeśli chcesz szybko przekonwertować między liczbą a tekstem, spróbuj użyć Kutools dla programu Excel Konwertuj między tekstem a liczbą jak pokazano na poniższym zrzucie ekranu. To pełna funkcja bez ograniczeń

dni, pobierz i wypróbuj teraz bezpłatną wersję próbną.
doc konwertuj pole tekstowe na komórkę 5


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 kte 201905

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!
officetab dół

 

Sortuj komentarze według
Komentarze (15)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
VBA nie działa?!
Ten komentarz został zminimalizowany przez moderatora na stronie
Tutaj sprawdza się idealnie. Co się dzieje podczas uruchamiania kodu? To nic nie zmienia? Jeśli możesz, opisz więcej o swoich danych i problemie. Dziękuję Ci.
Ten komentarz został zminimalizowany przez moderatora na stronie
Tutaj też nie pracuje. Wybierz komórkę docelową, kliknij OK i nic się nie dzieje.
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbowałem go w Win10 Excel2016 i Win8 Excel2010, działa oba. Jakie środowisko pracy używasz?
Ten komentarz został zminimalizowany przez moderatora na stronie
Mam wiele pudełek w różnych arkuszach, są 4 arkusze, które mają określone wydarzenia w danym dniu i chciałbym przenieść te pola tekstowe z danego dnia do nowego arkusza połączonego na ten dzień, Jak to działa, nie mam pojęcia, jak je zdobyć że dane z 4 różnych arkuszy do jednego arkusza.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dobra, mam Textbox wewnątrz Textbox, który należy wyodrębnić.
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo dziękuję! Buen aporte. Mnie dużo.
Ten komentarz został zminimalizowany przez moderatora na stronie
Nie ma mnie funcionó. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Juan, nie ma klawisza Enter wymienionego w powyższej metodzie, skopiuj i wklej vba, a następnie naciśnij klawisz F5 lub kliknij przycisk Uruchom, aby włączyć kod.
Ten komentarz został zminimalizowany przez moderatora na stronie
cześć, próbowałem w Excel365 i nie działa, wyskakuje wyskakujące okienko, a potem uzupełniam, ale potem nic się nie dzieje, dzięki za pomoc Michel
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Michel, przetestowałem kod w Excel 365, działa poprawnie. Czy możesz dać mi zdjęcie dotyczące Twojej wersji programu Excel w ten sposób (Plik > Konto)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.pngi obraz przedstawiający zawartość pól tekstowych?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć słoneczna. Szukam rozwiązania w excelu. Skopiowałem i wkleiłem stronę internetową zawierającą dane. w ten sposób każde pole tekstowe zawiera pewne liczby. Nie mogę przekonwertować go jako zwykłej liczby w komórce programu Excel zawierającej określoną kolumnę. Używam excela 2007.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć słoneczna. Szukam rozwiązania w excelu. Skopiowałem i wkleiłem stronę internetową zawierającą dane. w ten sposób każde pole tekstowe zawiera pewne liczby. Nie mogę przekonwertować go jako zwykłej liczby w komórce programu Excel zawierającej określoną kolumnę. Używam excela 2007.Twój tekst do linku
Ten komentarz został zminimalizowany przez moderatora na stronie
Używam tego skryptu (dzięki przy okazji), ale próbuję go zdobyć, aby wypełniał określoną komórkę i nie prosił o wprowadzenie komórki za każdym razem. co bym zmienił, aby automatycznie wypełniał na przykład komórkę B2.

Namaste
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, po prostu zmień skrypt
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

do
Set xRg = Application.Range("B2")

wstawisz zawartość pola tekstowego z komórki B2
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL