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

Kako pretvoriti besedilo v besedilnem polju v celico v Excelu?

Če je na listu nekaj besedilnih polj in želite vsebino v besedilnih poljih pretvoriti ločeno v celice, kot je prikazano na sliki spodaj, ali obstajajo kakšni hitri načini za reševanje tega opravila, razen vnosa enega za drugim v Excelu? V tem članku predstavljam makro, ki vam bo naredil uslugo pri tej težavi.
doc pretvori besedilno polje v celico 1

Vsebino besedilnega polja pretvorite v celico z VBA


puščica modri desni mehurček Vsebino besedilnega polja pretvorite v celico z VBA

Razen makro kode ni nobenega trika, s katerim lahko hitro pretvorite besedilna polja v celico.

1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin nato prilepite spodnjo kodo v Moduli skripta.

VBA: Pretvori besedilna polja v celico

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 pretvori besedilno polje v celico 2

3. Pritisnite F5 za zagon kode se odpre pogovorno okno, ki vas opomni, da izberete celico za izvoz vsebine besedilnega polja. Oglejte si posnetek zaslona:
doc pretvori besedilno polje v celico 3

4. klik OK. Zdaj so vsa besedilna polja pretvorjena v vsebino celic.
doc pretvori besedilno polje v celico 4

Namig: zgoraj VBA bo po zagonu odstranil besedilna polja, če želite obdržati besedilna polja, spremenite kodo xTxtBox.Delete do 'xTxtBox.Delete.

razširitev:Če želite hitro pretvoriti med številom in besedilom, poskusite uporabiti Kutools za Excel Pretvori med besedilo in številko kot je prikazano na naslednjem posnetku zaslona. Popolnoma deluje brez omejitev

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 
dni, prosim prenesite in si zagotovite brezplačno preskusno različico zdaj
doc pretvori besedilno polje v celico 5


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize

 

Komentarji (14)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
VBA ne deluje?!
Ta komentar je moderator na spletnem mestu minimiziral
Tukaj deluje odlično. Kaj se zgodi med izvajanjem kode? Ali nič ne spremeni? Če lahko, opišite več o svojih podatkih in težavi. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Tudi tukaj ne dela. Izberite ciljno celico, kliknite V redu in nič se ne zgodi.
Ta komentar je moderator na spletnem mestu minimiziral
Preizkusil sem ga v Win10 Excel2016 in Win8 Excel2010, deluje oboje. Kakšno delovno okolje uporabljate?
Ta komentar je moderator na spletnem mestu minimiziral
Imam veliko polj na različnih listih. Obstajajo 4 listi, ki imajo določene dogodke na določen dan, in rad bi ta polja z besedilom določenega dne prenesel na nov list skupaj za ta dan. Kako deluje, nimam pojma, kako priti ti podatki iz 4 različnih listov na en list.
Ta komentar je moderator na spletnem mestu minimiziral
V redu, v polju za besedilo imam besedilno polje, ki ga je treba ekstrahirati.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala lepa! Buen aporte. Me ayudó mucho.
Ta komentar je moderator na spletnem mestu minimiziral
No me funcionó. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programción y tampoco
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Juan, v zgornji metodi ni omenjene tipke Enter, kopirajte in prilepite vba, nato pritisnite tipko F5 ali kliknite gumb Zaženi, da omogočite kodo.
Ta komentar je moderator na spletnem mestu minimiziral
živjo, poskusil sem v Excel365 in ne deluje, dobim pojavno okno in nato izpolnim, vendar se nato nič ne zgodi, hvala za pomoč, Michel
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Michel, preizkusil sem kodo v Excelu 365, deluje pravilno. Ali mi lahko daš sliko o svoji različici Excela, kot je ta (Datoteka > Račun)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, in slika o vsebini vaših besedilnih polj?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, sonček. Želim rešitev v excelu. Kopiral sem in prilepil spletno stran s podatki. pri tem vsako besedilno polje vsebuje nekaj številk. Ne morem ga pretvoriti kot običajno število v celici excel, ki vsebuje določen stolpec. Uporabljam excel 2007.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, sonček. Želim rešitev v excelu. Kopiral sem in prilepil spletno stran s podatki. pri tem vsako besedilno polje vsebuje nekaj številk. Ne morem ga pretvoriti kot običajno število v celici excel, ki vsebuje določen stolpec. Uporabljam excel 2007.Vaše besedilo za povezavo
Ta komentar je moderator na spletnem mestu minimiziral
I am using this script (thanks by the way), but i am trying to get it so that it populates a specific cell and not ask for a cell input each time. what would I change so that it auto populates for example cell B2.

Cheers
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL