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

Jak převést text v textovém poli na obsah buňky v aplikaci Excel?

Pokud jsou v listu některá textová pole a chcete převést obsah v textových polích na buňky samostatně, jak je ukázáno níže, existují nějaké rychlé způsoby, jak tuto úlohu vyřešit, kromě zadávání jednoho po druhém v aplikaci Excel? V tomto článku představuji makro, které vám udělá laskavost v tomto problému.
doc převést textové pole na buňku 1

Převeďte obsah textového pole na buňku pomocí VBA


šipka modrá pravá bublina Převeďte obsah textového pole na buňku pomocí VBA

Kromě kódu makra neexistuje žádný trik, který by dokázal rychle převést textová pole na obsah buňky.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula poté vložte níže uvedený kód do Modul skripty.

VBA: Převést textová pole na buňku

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 převést textové pole na buňku 2

3. lis F5 po spuštění kódu se zobrazí dialogové okno, které vám připomene výběr buňky k exportu obsahu textového pole. Viz snímek obrazovky:
doc převést textové pole na buňku 3

4. cvaknutí OK. Nyní byla všechna textová pole převedena na obsah buňky.
doc převést textové pole na buňku 4

Tip: Nad VBA po spuštění odstraní textová pole, pokud chcete textová pole ponechat, změňte kód xTxtBox.Delete na 'xTxtBox.Delete.

rozšíření:Pokud chcete rychle převést mezi číslem a textem, zkuste použít Kutools pro Excel Převádějte mezi textem a číslem jak je znázorněno na následujícím snímku obrazovky. Je plně funkční bez omezení

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 
dnů, prosím stáhněte si a získejte bezplatnou zkušební verzi hned teď.
doc převést textové pole na buňku 5

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno

 

Komentáře (11)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
VBA nefunguje?!
Tento komentář byl moderátorem webu minimalizován
Tady to funguje perfektně. Co se stane, když spouštíte kód? Nic to nemění? Pokud můžete, popište prosím více o vašich datech a problému. Děkuji.
Tento komentář byl moderátorem webu minimalizován
Tady se taky nepracuje. Vyberte cílovou buňku, klikněte na OK a nic se nestane.
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem to ve Win10 Excel2016 a Win8 Excel2010, funguje to obojí. Jaké pracovní prostředí používáte?
Tento komentář byl moderátorem webu minimalizován
Mám mnoho políček v různých listech, existují 4 listy, které mají konkrétní události v konkrétní den a rád bych vzal tato textová pole konkrétního dne do nového listu kombinovaného pro daný den, jak to funguje nemám ponětí, jak je získat že data ze 4 různých listů na jeden list.
Tento komentář byl moderátorem webu minimalizován
Dobře, mám textové pole uvnitř textového pole, které je třeba extrahovat.
Tento komentář byl moderátorem webu minimalizován
Muchas gracias! Buen aporte. Já ayudó mucho.
Tento komentář byl moderátorem webu minimalizován
Nefunguji. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
Tento komentář byl moderátorem webu minimalizován
Ahoj, Juane, ve výše uvedené metodě není zmíněna žádná klávesa Enter, zkopírujte a vložte soubor vba, poté stiskněte klávesu F5 nebo klikněte na tlačítko Spustit, abyste kód aktivovali.
Tento komentář byl moderátorem webu minimalizován
ahoj, zkoušel jsem v Excel365 a nejde to, vyskočí mi vyskakovací okno a pak vyplním, ale pak se nic neděje, díky za pomoc, Michel
Tento komentář byl moderátorem webu minimalizován
Ahoj, Micheli, testoval jsem kód v Excelu 365, funguje správně. Mohl byste mi dát obrázek o vaší verzi Excelu takto (Soubor > Účet)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.pnga obrázek o obsahu vašich textových polí?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění