Kako združiti besedila več celic v besedilno polje v Excelu?

Morda vam bo enostavno povezati besedila več celic v novo celico s formulo. Toda ali veste, kako združiti več vrednosti celic v besedilno polje (ActiveX Control)? Dejansko vam lahko metoda v tem članku pomaga, da jo dosežete.

Povežite besedila več celic v besedilno polje s kodo VBA

Povežite besedila več celic v besedilno polje s kodo VBA

Neverjetno! Uporaba učinkovitih zavihkov v Excelu Tako kot Chrome, Firefox in Safari!

Prihranite 50% svojega časa in vsak dan zmanjšajte na tisoče klikov z miško!

---

Spodnja metoda vam lahko pomaga združiti besedila več celic v besedilno polje v Excelu.

1. V delovni list, ki želite združiti več celic, vstavite besedilno polje s klikom Razvojni > Vstavi > Besedilno polje (nadzor ActiveX). Oglejte si posnetek zaslona:

2. Nato kliknite Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX) da v delovni list vstavite ukazni gumb.

3. Z desno miškino tipko kliknite vstavljeni ukazni gumb in izberite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:

4. V Ljubljani Microsoft Visual Basic za aplikacije okno, zamenjajte izvirno kodo s spodnjo kodo VBA.

Koda VBA: Povežite besedila več celic v besedilno polje

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 Sub

Opombe: CommandButton1 je ime vstavljenega ukaznega gumba. Prosimo, spremenite ga glede na vaše potrebe.

5. Izklopite način oblikovanja s klikom Razvojni > Način oblikovanja.

6. Izberite celice, ki jih potrebujete za povezovanje besedil v besedilno polje, nato kliknite ukazni gumb. Nato se vsa vsebina izbranih celic takoj poveže v besedilno polje, kot je prikazano spodaj.

Sorodni članki:

• Kako samodejno izbrati besedilo v besedilnem polju, ko je izbrano v Excelu?
• Kako samodejno dokončati besedilno polje pri tipkanju v Excelu?
• Kako počistiti vsebino besedilnega polja ob kliku v Excelu?
• Kako onemogočiti urejanje v besedilnem polju, da preprečite vnos uporabnika v Excelu?
• Hza oblikovanje besedilnega polja v odstotkih v Excelu?

---

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.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...