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

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

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

Ավտոմատ չափափոխեք տեքստի տուփը ՝ բովանդակությանը համապատասխանելու համար, չափը չափափոխելով ՝ տեքստի առանձնահատկությանը համապատասխանելու համար
Ավտոմատ չափափոխեք բոլոր տեքստային տուփերը ՝ VBA կոդով պարունակությունը տեղավորելու համար


Ավտոմատ չափափոխեք տեքստի տուփը ՝ բովանդակությանը համապատասխանելու համար, չափը չափափոխելով ՝ տեքստի առանձնահատկությանը համապատասխանելու համար

Դուք կարող եք փոխել տեքստի տուփի հատկությունը հետևյալ կերպ ՝ այն ավտոմատ կերպով փոփոխելու համար ձեր մուտքագրած կամ ջնջված տեքստի հետ:

1. Տեքստային տուփը զետեղելուց հետո աջ կտտացրեք տեքստի տուփի եզրագծին և այնուհետև կտտացրեք Չափը և հատկությունները աջ կտտացնելու ցանկից: Տեսեք,

2. Կարող եք տեսնել ա Ձևաչափի ձև պատուհանը ցուցադրվում է աշխատանքային թերթի աջ կողմում, ներքևում Չափը և հատկությունները էջանիշը, ստուգեք Փոփոխել ձեւը `պիտանի տեքստը տուփի մեջ Տեքստային տուփ բաժինը, ապա փակիր Ձևաչափի ձև պատուհան Տեսեք,

Այսուհետ տեքստի տուփը կփոփոխվի ՝ բովանդակությանը ավտոմատ տեղավորելու համար:

ՆշումԱյս մեթոդով, եթե կան բազմաթիվ տեքստային տուփեր, որոնք պետք է փոխվեն, հարկավոր է մեկ առ մեկ փոխել տեքստային տուփերի հատկությունները:


Ավտոմատ չափափոխեք բոլոր տեքստային տուփերը ՝ VBA կոդով պարունակությունը տեղավորելու համար

Աշխատանքային թերթիկի համար, որն արդեն ունի բազմաթիվ տեքստային տուփեր, հետևյալ VBA կոդը կարող է օգնել ձեզ ինքնաբերաբար չափափոխել դրանք ՝ միանգամից բովանդակությանը համապատասխանելու համար:

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Ավտոմատ չափափոխել բոլոր տեքստային տուփերը ՝ բովանդակությունը աշխատանքային թերթում տեղադրելու համար

Sub TextBoxResizeTB()
    Dim xShape As Shape
    Dim xSht As Worksheet
    On Error Resume Next
    For Each xSht In ActiveWorkbook.Worksheets
        For Each xShape In xSht.Shapes
            If xShape.Type = 17 Then
                xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
                xShape.TextFrame2.WordWrap = True
            End If
        Next
    Next
End Sub

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

Եվ այս տեքստային տուփերն ավտոմատ կերպով չափափոխվելու են ձեր մուտքագրած կամ ապագա ջնջման դեպքում պարունակվող բովանդակության հետ:


Առնչվող հոդված:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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