Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս Excel- ում ավտոմատ տեղավորել սյունակի լայնությունը:

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

Ավտոմատ տեղավորվող սյունակների լայնությունը VBA կոդով

Սյունակների լայնությունը ավտոմատ կերպով դյուրանցման ստեղներով

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Paste Skipping Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • 300-ից ավելի հզոր հատկություններ; Աշխատում է գրասենյակի հետ 2007-2019 և 365; Աջակցում է բոլոր լեզուներին. Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Ավտոմատ տեղավորվող սյունակների լայնությունը VBA կոդով

Թվում է, թե սյունակի լայնությունը ավտոմատ կերպով թարմացվում է բջիջների բովանդակության երկարությամբ, հետաքրքիր հնարք է, այն ավարտելու համար կարող եք օգտագործել հետևյալ VBA կոդը:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2. Դրանից հետո կրկնակի կտտացրեք Այս գործառույթը է VBA նախագիծ ձախ պատուհանի օբյեկտները դատարկ մոդուլ բացելու համար, ապա VBA կոդի հետևյալը պատճենեք և կպցրեք Մոդուլի մեջ.

VBA կոդ. Աշխատանքային գրքում ավտոմատ տեղավորվող սյունակ

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

doc-autofit-column-width-1

3, Դրանից հետո պահեք և փակեք այս կոդը, և այժմ, երբ երկար տեքստ մուտքագրեք բջիջ, սյունի լայնությունը կկարգավորվի ՝ ինքնաբերաբար տեղավորվելու բովանդակությանը:


նետ կապույտ աջ պղպջակ Սյունակների լայնությունը ավտոմատ կերպով դյուրանցման ստեղներով

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

doc-autofit-column-width-1

1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք փոխել սյունակի լայնությունը:

2, Պահեք ալտ բանալին եւ սեղմեք H + O + I, և այժմ ձեր սյունների լայնություններն անմիջապես ավտոմատ կերպով տեղադրվել են դրանց բովանդակության վրա: Տեսեք,

doc-autofit-column-width-1

Նշում: Եթե ​​օգտագործում եք Excel 2003 և ավելի վաղ տարբերակը, ապա ձեզ հարկավոր է օգտագործել այս դյուրանցման ստեղները. ALT + O + C + A.


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

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

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


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

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

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

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

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

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bakrudin · 2 years ago
    saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
    jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..