სასარგებლო ინფორმაცია სტატუსის ზოლში

ვინმეს მოსწონს, მაგრამ მე პირადად მჭირდება სტატუსის ზოლი მხოლოდ 2-3 შემთხვევაში:

• ფილტრაციის შემდეგ, ის აჩვენებს შერჩევის შემდეგ დარჩენილი მნიშვნელობების რაოდენობას
• დიაპაზონის არჩევისას, ის აჩვენებს შერჩეული უჯრედების ჯამს, საშუალოს და რაოდენობას
• მძიმე ფაილების შემთხვევაში, წიგნში შეგიძლიათ ნახოთ პროგრესი ფორმულების ხელახალი გამოთვლაში.
  

არც ისე ბევრი ხაზისთვის, რომელიც იკავებს ეკრანის თითქმის მთელ სიგანეს და მასზე მუდმივად ეკიდა. შევეცადოთ გავაფართოვოთ ეს მოკრძალებული სია და დავამატოთ მას კიდევ რამდენიმე სასარგებლო ფუნქცია 🙂

სტატუსის ზოლის მართვის ზოგადი პრინციპები

სტატუსის ზოლის მართვა Visual Basic-ით ძალიან მარტივია. მასში თქვენი ტექსტის საჩვენებლად, შეგიძლიათ გამოიყენოთ მარტივი მაკრო:

Sub MyStatus() Application.StatusBar = "Привет!" ბოლო ქვე  

მისი გაშვების შემდეგ მივიღებთ:

სტატუსის ზოლის თავდაპირველი მდგომარეობის აღსადგენად, დაგჭირდებათ იგივე მოკლე „ანტი-მაკრო“:

Sub MyStatus_Off() Application.StatusBar = False End Sub  

ძირითად ვერსიაში, როგორც ხედავთ, ყველაფერი ძალიან მარტივია. ახლა შევეცადოთ განვავითაროთ იდეა…

არჩეული დიაპაზონის მისამართი სტატუსის ზოლში

 Excel ფანჯრის ზედა მარცხენა კუთხეში ფორმულების ზოლში ყოველთვის შეგიძლიათ ნახოთ მიმდინარე უჯრედის მისამართი. მაგრამ თუ არჩეულია მთელი დიაპაზონი, მაშინ, სამწუხაროდ, ჩვენ ვერ ვნახავთ შერჩევის მისამართს იქ - ნაჩვენებია იგივე ერთი აქტიური უჯრედი:

ამ პრობლემის გადასაჭრელად შეგიძლიათ გამოიყენოთ მარტივი მაკრო, რომელიც აჩვენებს არჩეული უბნის მისამართს სტატუსის ზოლში. უფრო მეტიც, ეს მაკრო ავტომატურად უნდა გაშვებულიყო, ნებისმიერ ფურცელზე შერჩევის ნებისმიერი ცვლილებით – ამისთვის მას განვათავსებთ მოვლენის დამმუშავებელში. შერჩევის შეცვლა ჩვენი წიგნი.

გახსენით Visual Basic Editor ჩანართზე ამავე სახელწოდების ღილაკის გამოყენებით დეველოპერი (დეველოპერი) ან კლავიატურის მალსახმობები მარცხენა Alt+F11. იპოვეთ თქვენი წიგნი პროექტის პანელის ზედა მარცხენა კუთხეში და გახსენით მოდული მასში ორჯერ დაწკაპუნებით ეს წიგნი (ეს სამუშაო წიგნი):

ფანჯარაში, რომელიც იხსნება, დააკოპირეთ და ჩასვით შემდეგი მაკრო კოდი:

პირადი ქვე Workbook_SheetSelectionChange(ByVal Sh როგორც ობიექტი, ByVal Target As Range) Application.StatusBar = "მხოლოდ: " & Selection.Address(0, 0) ბოლო ქვე  

ახლა, როდესაც შეირჩევა ნებისმიერი დიაპაზონი (მათ შორის ერთზე მეტი!), მისი მისამართი გამოჩნდება სტატუსის ზოლში:

Ctrl-ით შერჩეული რამდენიმე დიაპაზონის მისამართების შერწყმის თავიდან ასაცილებლად, შეგიძლიათ დაამატოთ მცირე გაუმჯობესება – გამოიყენეთ Replace ფუნქცია, რათა შეცვალოთ მძიმით მძიმით ინტერვალით:

Private Sub Workbook_SheetSelectionChange(ByVal Sh როგორც ობიექტი, ByVal Target As Range) Application.StatusBar = "გამორჩეული: " & Replace(Selection.Address(0, 0), ",", ", ") ბოლო ქვე  

არჩეული უჯრედების რაოდენობა სტატუსის ზოლში

ნებისმიერი დიაპაზონის არჩევისას, არჩეული არჩეული უჯრედების რაოდენობა ნაგულისხმევად გამოჩნდება სტატუსის ზოლის მარჯვენა მხარეს. ზოგჯერ თქვენ უნდა იცოდეთ გამოყოფილი რაოდენობის რაოდენობა. ეს ამოცანა ასევე შეიძლება შესრულდეს მარტივი მაკროთი SelectionChange წიგნის მოვლენის დასამუშავებლად, როგორც წინა მაგალითში. დაგჭირდებათ ისეთი მაკრო, როგორიცაა:

პირადი ქვესამუშაო წიგნი_ფურცელიSelectionChange(ByVal Sh როგორც ობიექტი, ByVal სამიზნე როგორც დიაპაზონი) Dim CellCount როგორც Variant, rng As Range თითოეული rng In Selection.Areas 'გამეორება ყველა არჩევაში RowsCount = rng.Rows.Count 'სტრიქონების რაოდენობა rng.ColumnsCountns = . დაითვალეთ 'სვეტების რაოდენობა CellCount = CellCount + RowsCount * ColumnsCount' დააგროვეთ უჯრედების მთლიანი რაოდენობა შემდეგი 'აჩვენეთ სტატუსის ზოლში Application.StatusBar = "არჩეულია: " & CellCount & " უჯრედები" ბოლო ქვე  

ეს მაკრო გადადის Ctrl-ით შერჩეულ ყველა ზონაში (თუ არის ერთზე მეტი), ინახავს მწკრივების და სვეტების რაოდენობას თითოეულ ზონაში RowsCount და ColumnsCount ცვლადებში და აგროვებს უჯრედების რაოდენობას CellCount ცვლადში, რომელიც შემდეგ გამოჩნდება. სტატუსის ზოლში. სამსახურში ასე გამოიყურება:

რა თქმა უნდა, შეგიძლიათ დააკავშიროთ ეს და წინა მაკროები, რათა ერთდროულად აჩვენოთ არჩეული დიაპაზონის მისამართი და უჯრედების რაოდენობა. თქვენ მხოლოდ უნდა შეცვალოთ ერთი ბოლო ხაზი შემდეგით:

Application.StatusBar = "არჩეულია: " & Replace(Selection.Address(0, 0), ",", ", ") & " - სულ " & CellCount & " უჯრედები"  

მაშინ სურათი საკმაოდ მშვენიერი იქნება:

კარგად, ვფიქრობ, რომ თქვენ გესმით იდეა. შესთავაზეთ კომენტარებში – კიდევ რისი ჩვენება იქნება გამოსადეგი სტატუსის ზოლში?

• რა არის მაკროები, როგორ მუშაობენ ისინი, როგორ გამოვიყენოთ და შევქმნათ ისინი
• მოსახერხებელი კოორდინატების შერჩევა Excel ფურცელზე
• როგორ გავხადოთ რთული ფორმულები უფრო ვიზუალური