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

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

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

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

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


նետ կապույտ աջ պղպջակ Ավտոմատ տեղավորվող սյունակների լայնությունը 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- ում տեքստը տեղավորելու համար:

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

🤖 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations