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

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

Երբ մեկնաբանությունները տեղադրում եք բջիջներ, մեկնաբանության տուփի չափը լռելյայն է: Եթե ​​դրա մեջ շատ բովանդակություն եք մուտքագրում, բովանդակության մի մասը ուղղակիորեն չի երեւա: Հնարավո՞ր է մեկնաբանության տուփի չափը ավտոմատ կերպով համապատասխանել դրա բովանդակությանը:

Ավտոմատ մեկնաբանության տուփ ՝ դրա բովանդակությունը աշխատանքային թերթում տեղավորելու համար
Ավտոմատ մեկնաբանության տուփ ՝ դրա պարունակությունը մի շարք բջիջներում տեղավորելու համար
Հեշտությամբ ավտոմատ չափի մեկնաբանության տուփ ՝ դրա պարունակությունը զետեղելու զարմանալի գործիքով ակտիվ թերթում կամ ամբողջ թերթում


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

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

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

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

VBA կոդ. Աշխատաթերթում ավտոմատ չափի մեկնաբանության տուփեր

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

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

Doc autosize comment1

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


Մեկ կտտոցով ՝ Excel- ում ավտոմատ կերպով մեկնաբանության տուփի չափը դրա բովանդակության մեջ տեղավորելու համար.

The Autofit մեկնաբանություն օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել մեկնաբանության տուփի չափը արագորեն ավտոմատ կերպով տեղավորել դրա բովանդակության մեջ աշխատանքային թերթում, ինչպես ցույց է տրված ստորև ներկայացված ցուցադրումը: Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)


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

Եթե ​​պարզապես անհրաժեշտ է ինքնաբերաբար չափել բջջային մեկնաբանությունների տուփերի մի շարք, ապա կարող եք օգտագործել հետևյալ VBA կոդը:

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

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

VBA կոդ. Ավտոմատ չափի մեկնաբանության տուփեր մի շարք բջիջներում

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Դրանից հետո սեղմեք F5 այս կոդը կատարելու բանալին, և կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ ընտրելով մի շարք բջիջներ, որոնք ցանկանում եք չափափոխել մեկնաբանության տուփերը, տե՛ս նկարը.

doc- չափափոխել-մեկնաբանել-տուփ 3

4. Եվ հետո կտտացրեք OK, ձեր ընտրած բջիջի մեկնաբանության տուփերը ավտոմատ կերպով տեղադրվել են մեկնաբանության բովանդակության վրա:

ԱկնարկԱյս կոդը չի կարող ավտոմատ կերպով չափափոխել ձեր կողմից ավելացված մեկնաբանությունների նոր տուփերը:


Ավտոմատ մեկնաբանության տուփ ՝ դրա պարունակությունը ակտիվ թերթում կամ ամբողջ թերթում տեղադրելու համար 

Կարող եք փորձել AutoFit մեկնաբանություն օգտակարությունը Excel- ի համար նախատեսված գործիքներ ինքնաբերաբար չափափոխել աՄեկնաբանելու տուփերը ակտիվ թերթում կամ բոլոր թերթերում `Excel- ում: Խնդրում եմ արեք հետևյալ կերպ.

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Որպեսզի մեկնաբանության տուփերն ավտոմատ չափափոխվեն, որպեսզի դրանց բովանդակությունը ակտիվ թերթում տեղավորվի, սեղմեք Կուտոլս > ավելի շատ > AutoFit մեկնաբանություն > Ակտիվ թերթիկ.

Եվ եթե ցանկանում եք ամբողջ աշխատանքային գրքում ավտոմատ չափափոխել բոլոր մեկնաբանությունների տուփերը, կտտացրեք Կուտոլս > ավելի շատ > AutoFit մեկնաբանություն > Բոլոր թերթերը, Տեսեք,

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

Notes:

  • 1. Մեկնաբանությունների տուփերը ավտոմատ չափափոխելուց հետո, մեկնաբանությունը նորից խմբագրելիս մեկնաբանության տուփը ավտոմատ կերպով ընդլայնվում կամ նեղանում է բովանդակությամբ:
  • 2. Ձեր տեղադրած նոր մեկնաբանությունների համար անհրաժեշտ է կրկին ակտիվացնել այս AutoFit մեկնաբանության օգտակար ծրագիրը ՝ բոլոր նոր տեղադրված մեկնաբանությունների տուփերը չափափոխելու համար:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


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


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

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

🤖 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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations