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.
Konwertuj zawartość pola tekstowego na komórkę za pomocą VBA
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
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:
4. kliknij OK. Teraz wszystkie pola tekstowe zostały przekonwertowane na zawartość komórki.
Wskazówka: Powyżej VBA usunie pola tekstowe po uruchomieniu, jeśli chcesz zachować pola tekstowe, zmień kod xTxtBox.Usuń do 'xTxtBox.Usuń.
| Kutools for Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami 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!
