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

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

Եթե ​​թերթում կան որոշ տեքստային տուփեր, և դուք ցանկանում եք տեքստի տուփերում պարունակվող բովանդակությունը վերածել առանձին բջիջների, ինչպես ցույց է տրված ստորև նշված էկրանի նկարում, կա՞ն այս գործը լուծելու արագ եղանակներ, բացառությամբ Excel- ում մեկ առ մեկ մուտքագրելու: Այս հոդվածում ես ներմուծում եմ մակրո, որը կօգնի ձեզ լավություն ունենալ այս խնդրի վերաբերյալ:
փաստաթուղթը տեքստային տուփը վերափոխի 1-ի խուց

Վերափոխեք տեքստային տուփի պարունակությունը VBA- ով բջիջ


նետ կապույտ աջ պղպջակ Վերափոխեք տեքստային տուփի պարունակությունը VBA- ով բջիջ

Բացի մակրո կոդից, չկա հնարք, որը կարող է արագ վերափոխել տեքստային տուփերը բջիջների պարունակության:

1. Մամուլ Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, և ապա ներքևում տեղադրեք կոդը ՝ Մոդուլներ սցենար:

VBA. Տեքստի տուփերը վերափոխեք բջիջի

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

փաստաթուղթը տեքստային տուփը վերափոխի 2-ի խուց

3. Մամուլ F5 Կոդը գործարկելու համար ստեղնաշար է դուրս գալիս երկխոսություն ՝ հիշեցնելու համար, որ դուք ընտրեք բջիջ ՝ տեքստային տուփի պարունակությունն արտահանելու համար: Տեսեք,
փաստաթուղթը տեքստային տուփը վերափոխի 3-ի խուց

4: սեղմեք OK, Այժմ բոլոր տեքստային տուփերը վերափոխվել են բջիջների պարունակության:
փաստաթուղթը տեքստային տուփը վերափոխի 4-ի խուց

Հուշում. VBA-ի վերևում գործարկվելուց հետո տեքստային տուփերը կհեռացվեն, եթե ցանկանում եք պահպանել տեքստային տուփերը, փոխեք կոդը: xTxtBox.Delete դեպի 'xTxtBox.Delete.

Extension:Եթե ​​ցանկանում եք արագ փոխել համարի և տեքստի միջև, փորձեք օգտագործել Excel- ի համար նախատեսված Կոշուլսները Փոխարկել տեքստի և համարի միջև ինչպես ցույց է տրված հետևյալ նկարում Դա լիարժեք գործառույթ է ՝ առանց սահմանափակումների

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 
օրեր, խնդրում ենք ներբեռնել և անվճար փորձաշրջան անցնել հիմա:
փաստաթուղթը տեքստային տուփը վերափոխի 5-ի խուց


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում

 

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA-ն չի աշխատում?!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն հիանալի աշխատում է այստեղ: Ի՞նչ է պատահում, երբ գործարկում եք կոդը: Դա ոչինչ չի փոխում? Եթե ​​կարող եք, խնդրում ենք ավելին նկարագրել ձեր տվյալների և խնդրի մասին: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այստեղ նույնպես չի աշխատում։ Ընտրեք նպատակակետ բջիջը, սեղմեք OK, և ոչինչ չի պատահում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձել եմ այն ​​Win10 Excel2016 և Win8 Excel2010-ում, այն աշխատում է երկուսն էլ: Ինչ աշխատանքային միջավայր եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ բազմաթիվ արկղեր տարբեր թերթերում, կան 4 թերթ, որոնք ունեն որոշակի իրադարձություններ որոշակի օրվա ընթացքում, և ես կցանկանայի այդ օրվա տեքստային տուփերը տեղափոխել այդ օրվա համար համակցված նոր թերթ, ինչպես է այն աշխատում, ես պատկերացում չունեմ, թե ինչպես ստանալ այդ տվյալները 4 տարբեր թերթիկից մինչև մեկ թերթ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ, ես Textbox-ի ներսում ունեմ, որը պետք է հանվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն! Բուեն պորտե. Ես այուդո շատ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչ իմ գործառույթը: Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Խուան, վերը նշված մեթոդում նշված Enter ստեղն չկա, պատճենեք և տեղադրեք vba-ն, այնուհետև սեղմեք F5 ստեղնը կամ սեղմեք Run կոճակը՝ կոդը միացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես փորձեցի Excel365-ով և չի ստացվում, ես ստանում եմ թռուցիկ և լրացնում եմ, բայց ոչինչ չի պատահում, շնորհակալություն օգնության համար, Միշել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Միշել, ես փորձարկել եմ կոդը Excel 365-ում, այն ճիշտ է աշխատում: Կարո՞ղ եք ինձ տալ ձեր Excel տարբերակի նման պատկերը (Ֆայլ > Հաշիվ)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.pngև ձեր տեքստային տուփերի բովանդակության նկարը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, արևոտ: Ես լուծում եմ ուզում excel-ում: Ես պատճենել և տեղադրել եմ տվյալներ պարունակող վեբ էջ: դրանում յուրաքանչյուր տեքստային տուփ պարունակում է որոշ թվեր: Ես ի վիճակի չեմ այն ​​փոխակերպել որպես կանոնավոր թիվ Excel բջիջում, որը պարունակում է որոշակի սյունակ: Ես օգտագործում եմ excel 2007 թ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, արևոտ: Ես լուծում եմ ուզում excel-ում: Ես պատճենել և տեղադրել եմ տվյալներ պարունակող վեբ էջ: դրանում յուրաքանչյուր տեքստային տուփ պարունակում է որոշ թվեր: Ես ի վիճակի չեմ այն ​​փոխակերպել որպես կանոնավոր թիվ Excel բջիջում, որը պարունակում է որոշակի սյունակ: Ես օգտագործում եմ excel 2007 թ.Ձեր տեքստը կապելու համար
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից