Օգտակար տեղեկատվություն կարգավիճակի բարում

Ինչ-որ մեկը հավանում է, բայց ես անձամբ կարգավիճակի գծի կարիք ունեմ միայն 2-3 դեպքերում.

• զտումից հետո այն ցուցադրում է ընտրությունից հետո մնացած արժեքների քանակը
• երբ ընտրվում է տիրույթ, այն ցուցադրում է ընտրված բջիջների գումարը, միջինը և թիվը
• ծանր ֆայլերի դեպքում գրքում կարող եք տեսնել բանաձևերի վերահաշվարկի առաջընթացը:
  

Ոչ այնքան այն տողի համար, որը զբաղեցնում է էկրանի գրեթե ամբողջ լայնությունը և անընդհատ կախված է դրա վրա: Փորձենք ընդլայնել այս համեստ ցանկը և դրան ավելացնել ևս մի քանի օգտակար հնարավորություն 🙂

Կարգավիճակի բարի կառավարման ընդհանուր սկզբունքներ

Visual Basic-ի միջոցով կարգավիճակի բարը կառավարելը շատ հեշտ է: Ձեր տեքստը դրանում ցուցադրելու համար կարող եք օգտագործել պարզ մակրո.

Sub MyStatus() Application.StatusBar = "Привет!" Վերջ Ենթ  

Այն գործարկելուց հետո մենք ստանում ենք.

Ստատուսի տողի սկզբնական վիճակը վերականգնելու համար ձեզ անհրաժեշտ կլինի նույն կարճ «հակամակրո».

Sub MyStatus_Off() Application.StatusBar = False End Sub  

Հիմնական տարբերակում, ինչպես տեսնում եք, ամեն ինչ շատ պարզ է: Հիմա եկեք փորձենք զարգացնել գաղափարը…

Ընտրված միջակայքի հասցեն կարգավիճակի տողում

 Excel-ի պատուհանի վերին ձախ անկյունում բանաձևերի տողում միշտ կարող եք տեսնել ընթացիկ բջիջի հասցեն: Բայց եթե ընտրված է մի ամբողջ տիրույթ, ապա, ցավոք, մենք այնտեղ չենք տեսնի ընտրության հասցեն. ցուցադրվում է նույն մեկ ակտիվ բջիջը.

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

Բացեք Visual Basic խմբագրիչը՝ օգտագործելով ներդիրի համանուն կոճակը երեվակիչ (մշակող) կամ ստեղնաշարի դյուրանցումներ Ձախ Alt+F11. Գտեք ձեր գիրքը Ծրագրի վահանակի վերին ձախ անկյունում և բացեք մոդուլը դրա մեջ՝ կրկնակի սեղմելով Այս գիրքը (Այս աշխատանքային գիրքը):

Բացվող պատուհանում պատճենեք և տեղադրեք հետևյալ մակրո կոդը.

Մասնավոր ենթաօրենսդրական գրքույկ_SheetSelectionChange(ByVal Sh Որպես օբյեկտ, ByVal Թիրախ որպես միջակայք) Application.StatusBar = "Նշված. " & Selection.Address(0, 0) Վերջ ենթակետ  

Այժմ, երբ ընտրվում է որևէ տիրույթ (ներառյալ մեկից ավելի), դրա հասցեն կցուցադրվի կարգավիճակի տողում.

Ctrl-ով ընտրված մի քանի միջակայքերի հասցեների միաձուլումը կանխելու համար կարող եք ավելացնել մի փոքր բարելավում. օգտագործեք Replace ֆունկցիան՝ ստորակետը բացատով փոխարինելու համար.

Մասնավոր ենթաօրենսդրական գրքույկ_SheetSelectionChange(ByVal Sh Որպես օբյեկտ, ByVal Target As Range) Application.StatusBar = "Նշված է.  

Ընտրված բջիջների քանակը կարգավիճակի տողում

Երբ ընտրվում է որևէ միջակայք, լռելյայնորեն ցուցադրվում է ոչ դատարկ ընտրված բջիջների քանակը կարգավիճակի տողի աջ կողմում: Երբեմն անհրաժեշտ է իմանալ հատկացվածների քանակը: Այս խնդիրը կարող է իրականացվել նաև պարզ մակրոյով՝ SelectionChange գրքի իրադարձությունը կարգավորելու համար, ինչպես նախորդ օրինակում: Ձեզ անհրաժեշտ կլինի այնպիսի մակրո, ինչպիսին է.

Մասնավոր ենթաօրենսդրական աշխատանքային գրքույկ_ԹերթSelectionChange (ByVal Sh որպես օբյեկտ, ByVal թիրախ որպես տիրույթ) Dim CellCount As Variant, rng As Range For Every rng In Selection. Areas 'Iterate through all selections RowsCount = rng.Rows.Count 'տողերի թիվը rng.ColumnsCount = . Count 'սյունակների թիվը CellCount = CellCount + RowsCount * ColumnsCount' կուտակել բջիջների ընդհանուր թիվը Հաջորդը' ցուցադրել կարգավիճակի տողում Application.StatusBar = "Ընտրված է. " & CellCount & " բջիջները" Վերջ ենթակետ  

Այս մակրոները պտտվում են Ctrl-ով ընտրված բոլոր տարածքներով (եթե կան մեկից ավելի), պահպանում է տողերի և սյունակների քանակը յուրաքանչյուր տարածքում RowsCount և ColumnsCount փոփոխականներում և կուտակում է CellCount փոփոխականի բջիջների քանակը, որն այնուհետև ցուցադրվում է: կարգավիճակի բարում: Աշխատանքի ժամանակ այն կունենա հետևյալ տեսքը.

Իհարկե, դուք կարող եք համատեղել այս և նախորդ մակրոները՝ միաժամանակ ցուցադրելու և՛ ընտրված տիրույթի հասցեն, և՛ բջիջների քանակը: Ձեզ անհրաժեշտ է միայն մեկ նախավերջին տողը փոխել հետևյալով.

Application.StatusBar = "Ընտրված է.  

Այնուհետև նկարը բավականին հիանալի կլինի.

Դե, կարծում եմ, դուք հասկացաք գաղափարը: Առաջարկեք մեկնաբանություններում. էլ ի՞նչ օգտակար կլինի ցուցադրել կարգավիճակի տողում:

• Ինչ են մակրոները, ինչպես են դրանք աշխատում, ինչպես օգտագործել և ստեղծել դրանք
• Հարմար կոորդինատների ընտրություն Excel թերթիկի վրա
• Ինչպես բարդ բանաձեւերն ավելի տեսողական դարձնել