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

Hvordan konverteres tekst i tekstfelt til celleindhold i Excel?

Hvis der er nogle tekstfelter i et ark, og du vil konvertere indholdet i tekstfelterne til celler separat som vist nedenfor, er der nogen hurtige måder at løse dette job på, undtagen at indtaste en efter en i Excel? I denne artikel introducerer jeg en makro til at gøre dig en tjeneste for dette problem.
doc konvertere tekstboks til celle 1

Konverter tekstboksindhold til celle med VBA


pil blå højre boble Konverter tekstboksindhold til celle med VBA

Bortset fra makrokode er der intet trick, der hurtigt kan konvertere tekstfelter til celleindhold.

1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og indsæt derefter nedenstående kode i Moduler scripts.

VBA: Konverter tekstfelter til celle

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 konvertere tekstboks til celle 2

3. Trykke F5 nøgle til at køre koden, en dialog vises, der minder dig om at vælge en celle til at eksportere tekstboksens indhold. Se skærmbillede:
doc konvertere tekstboks til celle 3

4. klik OK. Nu er alle tekstfelter blevet konverteret til celleindhold.
doc konvertere tekstboks til celle 4

Tip: Ovenfor vil VBA fjerne tekstfelterne efter kørsel, hvis du vil beholde tekstfelterne, skal du ændre koden xTxtBox.Delete til 'xTxtBox.Delete.

Forlængelse:Hvis du hurtigt vil konvertere mellem nummer og tekst, skal du prøve at bruge Kutools til Excel Konverter mellem tekst og tal som vist i det følgende skærmbillede. Det er fuld funktion uden begrænsning i

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 
dage, download venligst og få en gratis prøveperiode nu.
doc konvertere tekstboks til celle 5


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund

 

Sorter kommentarer efter
Kommentarer (15)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
VBA virker ikke?!
Denne kommentar blev minimeret af moderatoren på webstedet
Det fungerer perfekt her. Hvad sker der, mens du kører koden? Ændrer det ikke noget? Hvis du kunne, beskriv venligst mere om dine data og problem. Tak skal du have.
Denne kommentar blev minimeret af moderatoren på webstedet
Arbejder heller ikke her. Vælg destinationscelle, klik på OK, og der sker ikke noget.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har prøvet det i Win10 Excel2016 og Win8 Excel2010, det virker begge dele. Hvilket arbejdsmiljø bruger du?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har mange bokse i forskellige ark, der er 4 ark, der har særlige begivenheder på en bestemt dag, og jeg vil gerne tage tekstboksene fra en bestemt dag til et nyt ark kombineret for den dag, hvordan det virker, jeg har ingen idé om, hvordan jeg får at data fra 4 forskellige ark til et ark.
Denne kommentar blev minimeret af moderatoren på webstedet
Okay, jeg har Textbox inde i Textbox, der skal udpakkes.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak! Buen aporte. Jeg ayudó meget.
Denne kommentar blev minimeret af moderatoren på webstedet
Nej, jeg fungerer. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Juan, der er ingen Enter-nøgle nævnt i metoden ovenfor, kopier og indsæt vba'en, tryk derefter på F5-tasten eller klik på Kør-knappen for at aktivere koden.
Denne kommentar blev minimeret af moderatoren på webstedet
hej, jeg prøvede i Excel365 og det virker ikke, jeg får popup'et og så udfylder jeg men så sker der ikke noget, tak for hjælpen, Michel
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Michel, jeg har testet koden i Excel 365, den virker korrekt. Kan du give mig et billede af din Excel-version som denne (Fil > Konto)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, og billedet om indholdet i din tekstboks?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, solrig. Jeg vil have en løsning i excel. Jeg har kopieret og indsat en webside med data. idet hver tekstboks indeholder nogle tal. Jeg er ikke i stand til at konvertere det til et almindeligt tal i en excel-celle, der indeholder en bestemt kolonne. Jeg bruger excel 2007.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, solrig. Jeg vil have en løsning i excel. Jeg har kopieret og indsat en webside med data. idet hver tekstboks indeholder nogle tal. Jeg er ikke i stand til at konvertere det til et almindeligt tal i en excel-celle, der indeholder en bestemt kolonne. Jeg bruger excel 2007.Din tekst til link
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bruger dette script (tak forresten), men jeg forsøger at få det, så det udfylder en bestemt celle og ikke beder om et celleinput hver gang. hvad ville jeg ændre, så den automatisk udfylder for eksempel celle B2.

Skål
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, bare skift scriptet
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

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

du vil indsætte tekstboksindhold fra celle B2
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL