Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս միացնել բազմաթիվ բջիջների տեքստերը Excel- ում տեքստային տուփի մեջ:

Հեղինակ՝ Սիլյուվիա Վերջին փոփոխությունը՝ 2020-09-01

Ձեզ համար կարող է հեշտ լինել բազմաթիվ բջիջների տեքստերը բանաձևով նոր բջիջ դարձնելը: Բայց գիտե՞ք, թե ինչպես կարելի է բջիջների բազմաթիվ արժեքներ միավորել տեքստային տուփի մեջ (ActiveX Control): Իրականում, այս հոդվածում նշված մեթոդը կարող է օգնել հասնել դրան:

Բազմաթիվ բջիջների տեքստերը միացրեք VBA կոդով տեքստային տուփի մեջ


Բազմաթիվ բջիջների տեքստերը միացրեք VBA կոդով տեքստային տուփի մեջ

Ստորև բերված մեթոդը կարող է օգնել Excel- ում բազմաթիվ բջիջների տեքստերը միավորել տեքստի տուփի մեջ:

1. Աշխատանքային թերթում ցանկանում եք միացնել բազմաթիվ բջիջներ, տեղադրեք տեքստային տուփ ՝ կտտացնելով Երեվակիչ > Տեղադրել > Տեքստային տուփ (ActiveX կառավարման), Տեսեք,

2. Այնուհետեւ կտտացրեք Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման) հրամանի կոճակը աշխատանքային էջում տեղադրելու համար:

3. Աջ կտտացրեք տեղադրված հրամանի կոճակին, ապա ընտրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,

4. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք փոխարինել բնօրինակ կոդը ներքևում նշված VBA կոդով:

VBA կոդ. Բազմաթիվ բջիջների տեքստերը միացրեք տուփի մեջ

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

Նշում: CommandButton1- ը տեղադրված հրամանի կոճակի անունն է: Խնդրում ենք փոխել այն ՝ հիմնվելով ձեր կարիքի վրա:

5. Անջատեք Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ.

6. Ընտրեք այն բջիջները, որոնք անհրաժեշտ են տեքստերը տեքստային տուփի մեջ մտցնելու համար, ապա կտտացրեք Հրահանգի կոճակին: Եվ ապա ընտրված բոլոր բջիջների բովանդակությունը միաձուլվում է տեքստային տուփի մեջ անմիջապես, ինչպես ցույց է տրված նկարում:


Առնչվող հոդվածներ քանակը:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hola Como el boton puede tomarme las celdas visibles, ya que a veces oculto celdas y me las toma igual pero no quiero
This comment was minimized by the moderator on the site
Muy bueno, Y si le quiero poner ; para separar los textos ¿cómo lo hago?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations