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

Hogyan lehet konvertálni a szövegmező szövegét cellatartalomra az Excelben?

Ha van egy szövegmező egy lapon, és a szövegdobozok tartalmát külön-külön akarja cellákká alakítani, az alábbi képernyőképen látható módon, van-e valami gyors módszer a feladat megoldására, kivéve, ha egyesével beírja az Excelbe? Ebben a cikkben bemutatok egy makrót, hogy szívességet tegyek Önnek ezzel a problémával.
doc konvertálja a szövegdobozt 1. cellává

Konvertálja a szövegdoboz tartalmát cellává VBA segítségével


nyíl kék jobb buborék Konvertálja a szövegdoboz tartalmát cellává VBA segítségével

A makrókód kivételével nincs olyan trükk, amely gyorsan átalakíthatja a szövegdobozokat cellatartalommá.

1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd illessze be a kód alatt a Modulok szkripteket.

VBA: A szövegdobozok konvertálása cellává

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 konvertálja a szövegdobozt 2. cellává

3. nyomja meg F5 gombot a kód futtatásához, megjelenik egy párbeszédpanel, amely emlékezteti Önt arra, hogy válassza ki a cellát a szövegdoboz tartalmának exportálásához. Lásd a képernyőképet:
doc konvertálja a szövegdobozt 3. cellává

4. kettyenés OK. Most minden szövegdobozt átalakítottunk cellatartalommá.
doc konvertálja a szövegdobozt 4. cellává

Tipp: A VBA felett a futás után eltávolítja a szövegdobozokat, ha meg szeretné tartani a szövegdobozokat, módosítsa a kódot xTxtBox.Delete nak nek 'xTxtBox.Delete.

Extension:Ha gyorsan szeretne konvertálni a szám és a szöveg között, próbálja meg használni a Kutools for Excel programot Konvertálás szöveg és szám között a következő képernyőképen látható módon. Teljes funkciója korlátozás nélkül

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 
nap, kérjük, töltse le és ingyenes próbaverzióval rendelkezzen most.
doc konvertálja a szövegdobozt 5. cellává


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja

 

A megjegyzések rendezése szerint
Hozzászólások (13)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA nem működik?
A weboldal moderátora ezt a megjegyzést minimalizálta
Itt tökéletesen működik. Mi történik a kód futtatása közben? Nem változtat semmit? Ha teheti, kérjük, írja le bővebben adatait és a problémát. Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Itt sem működik. Válassza ki a célcellát, kattintson az OK gombra, és semmi sem történik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbáltam Win10 Excel2016 és Win8 Excel2010 alatt, mindkettő működik. Milyen munkakörnyezetet használsz?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sok dobozom van különböző lapokon, 4 lapon van egy adott napon adott esemény, és szeretném átvinni az adott nap szövegdobozait egy új lapra kombinálva az adott napra. Hogyan működik, fogalmam sincs, hogyan lehet elérni hogy az adatok 4 különböző lapról egy lapra.
A weboldal moderátora ezt a megjegyzést minimalizálta
Oké, a Textboxban van Textbox, amelyet ki kell bontani.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen! Buen aporte. Me ayudó mucho.
A weboldal moderátora ezt a megjegyzést minimalizálta
No me funcionó. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Juan, a fenti módszerben nem szerepel az Enter billentyű, másolja ki és illessze be a vba-t, majd nyomja meg az F5 billentyűt, vagy kattintson a Futtatás gombra a kód engedélyezéséhez.
A weboldal moderátora ezt a megjegyzést minimalizálta
szia, próbáltam Excel365-ben és nem megy, megjelenik a felugró ablak, majd kitöltöm, de akkor nem történik semmi, köszönöm a segítséget, Michel
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Michel, teszteltem a kódot Excel 365-ben, megfelelően működik. Tudnál nekem ilyen képet adni az Excel verziódról (Fájl > Fiók)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, és a kép a szövegdobozok tartalmáról?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia napos. Megoldást szeretnék excelben. Kimásoltam és beillesztettem egy adatokat tartalmazó weboldalt. abban minden szövegdoboz tartalmaz néhány számot. Nem tudom normál számként konvertálni egy adott oszlopot tartalmazó Excel cellában. Excel 2007-et használok.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia napos. Megoldást szeretnék excelben. Kimásoltam és beillesztettem egy adatokat tartalmazó weboldalt. abban minden szövegdoboz tartalmaz néhány számot. Nem tudom normál számként konvertálni egy adott oszlopot tartalmazó Excel cellában. Excel 2007-et használok.A linkelni kívánt szöveg
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi