Hvordan sammenkædes tekster fra flere celler i en tekstboks i Excel?
Det kan være let for dig at sammenkæde tekster fra flere celler til en ny celle med formlen. Men ved du, hvordan du sammenkæder flere celleværdier i en tekstboks (ActiveX Control)? Faktisk kan metoden i denne artikel hjælpe dig med at opnå det.
Sammenkæd tekster fra flere celler i en tekstboks med VBA-kode
Sammenkæd tekster fra flere celler i en tekstboks med VBA-kode
Nedenstående metode kan hjælpe dig med at sammenkæde tekster fra flere celler i en tekstboks i Excel.
1. I regnearket vil du sammenkæde flere celler, indsæt en tekstboks ved at klikke Udvikler > indsatte > Tekstboks (ActiveX-kontrol). Se skærmbillede:
2. Klik derefter på Udvikler > indsatte > Kommando-knap (ActiveX-kontrol) for at indsætte en kommandoknap i regnearket.
3. Højreklik på den indsatte kommandoknap, og vælg derefter Vis kode fra genvejsmenuen. Se skærmbillede:
4. i Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode med nedenstående VBA-kode.
VBA-kode: Sammenkæd tekster fra flere celler i en tekstboks
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End SubBemærk: CommandButton1 er navnet på den indsatte kommandoknap. Skift det ud fra dit behov.
5. Sluk for designtilstand ved at klikke på Udvikler > Design Mode.
6. Vælg de celler, du har brug for for at sammenkæde teksterne i en tekstboks, og klik derefter på Kommando-knappen. Og derefter sammenkædes alle valgte cellers indhold i tekstboksen straks som vist nedenstående skærmbillede.
Relaterede artikler:
- Hvordan vælges tekst automatisk i en tekstboks, når den er valgt i Excel?
- Hvordan udfyldes en tekstboks automatisk, når du skriver i Excel?
- Hvordan ryddes indholdet af tekstboksen, når der klikkes på i Excel?
- Hvordan deaktiveres redigering i tekstboks for at forhindre brugerinput i Excel?
- Hskal du formatere en tekstboks i procent i Excel?
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.
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!
