സ്റ്റാറ്റസ് ബാറിലെ ഉപയോഗപ്രദമായ വിവരങ്ങൾ

ആരെങ്കിലും ഇഷ്ടപ്പെടുന്നു, പക്ഷേ എനിക്ക് വ്യക്തിപരമായി 2-3 കേസുകളിൽ മാത്രമേ സ്റ്റാറ്റസ് ബാർ ആവശ്യമുള്ളൂ:

• ഫിൽട്ടർ ചെയ്ത ശേഷം, തിരഞ്ഞെടുത്തതിന് ശേഷം ശേഷിക്കുന്ന മൂല്യങ്ങളുടെ എണ്ണം ഇത് പ്രദർശിപ്പിക്കുന്നു
• ഒരു ശ്രേണി തിരഞ്ഞെടുക്കുമ്പോൾ, അത് തിരഞ്ഞെടുത്ത സെല്ലുകളുടെ ആകെത്തുക, ശരാശരി, എണ്ണം എന്നിവ പ്രദർശിപ്പിക്കുന്നു
• കനത്ത ഫയലുകളുടെ കാര്യത്തിൽ, ഫോർമുലകൾ വീണ്ടും കണക്കാക്കുന്നതിലെ പുരോഗതി നിങ്ങൾക്ക് പുസ്തകത്തിൽ കാണാൻ കഴിയും.
  

സ്‌ക്രീനിന്റെ മുഴുവൻ വീതിയും എടുത്ത് എല്ലായ്‌പ്പോഴും അതിൽ തൂങ്ങിക്കിടക്കുന്ന ഒരു ലൈനിന് അത്ര കാര്യമില്ല. ഈ എളിമയുള്ള ലിസ്റ്റ് വിപുലീകരിക്കാനും അതിലേക്ക് കുറച്ച് കൂടുതൽ ഉപയോഗപ്രദമായ സവിശേഷതകൾ ചേർക്കാനും ശ്രമിക്കാം 🙂

സ്റ്റാറ്റസ് ബാർ കൈകാര്യം ചെയ്യുന്നതിനുള്ള പൊതു തത്വങ്ങൾ

വിഷ്വൽ ബേസിക് ഉപയോഗിച്ച് സ്റ്റാറ്റസ് ബാർ കൈകാര്യം ചെയ്യുന്നത് വളരെ എളുപ്പമാണ്. അതിൽ നിങ്ങളുടെ വാചകം പ്രദർശിപ്പിക്കുന്നതിന്, നിങ്ങൾക്ക് ഒരു ലളിതമായ മാക്രോ ഉപയോഗിക്കാം:

Sub MyStatus() Application.StatusBar = "പ്രത്യേകം!" അവസാനം ഉപ  

ഇത് പ്രവർത്തിപ്പിച്ചതിന് ശേഷം, നമുക്ക് ലഭിക്കുന്നത്:

സ്റ്റാറ്റസ് ബാറിന്റെ യഥാർത്ഥ അവസ്ഥ പുനഃസ്ഥാപിക്കുന്നതിന്, നിങ്ങൾക്ക് അതേ ഹ്രസ്വമായ "ആന്റി-മാക്രോ" ആവശ്യമാണ്:

Sub MyStatus_Off() Application.StatusBar = False End Sub  

അടിസ്ഥാന പതിപ്പിൽ, നിങ്ങൾക്ക് കാണാനാകുന്നതുപോലെ, എല്ലാം വളരെ ലളിതമാണ്. ഇനി ആശയം വികസിപ്പിക്കാൻ ശ്രമിക്കാം...

സ്റ്റാറ്റസ് ബാറിൽ തിരഞ്ഞെടുത്ത ശ്രേണിയുടെ വിലാസം

 ഫോർമുല ബാറിലെ എക്സൽ വിൻഡോയുടെ മുകളിൽ ഇടത് കോണിൽ, നിങ്ങൾക്ക് എല്ലായ്പ്പോഴും നിലവിലെ സെല്ലിന്റെ വിലാസം കാണാൻ കഴിയും. എന്നാൽ ഒരു മുഴുവൻ ശ്രേണി തിരഞ്ഞെടുത്തിട്ടുണ്ടെങ്കിൽ, നിർഭാഗ്യവശാൽ, ഞങ്ങൾ അവിടെ തിരഞ്ഞെടുക്കൽ വിലാസം കാണില്ല - അതേ ഒരൊറ്റ സജീവ സെൽ പ്രദർശിപ്പിക്കും:

ഈ പ്രശ്നം പരിഹരിക്കാൻ, നിങ്ങൾക്ക് ഒരു ലളിതമായ മാക്രോ ഉപയോഗിക്കാം, അത് സ്റ്റാറ്റസ് ബാറിൽ തിരഞ്ഞെടുത്ത ഏരിയയുടെ വിലാസം പ്രദർശിപ്പിക്കും. മാത്രമല്ല, ഈ മാക്രോ സ്വയമേവ ലോഞ്ച് ചെയ്യണം, ഏത് ഷീറ്റിലെയും തിരഞ്ഞെടുപ്പിൽ എന്തെങ്കിലും മാറ്റത്തോടെ - ഇതിനായി ഞങ്ങൾ ഇത് ഇവന്റ് ഹാൻഡ്‌ലറിൽ സ്ഥാപിക്കും തിരഞ്ഞെടുക്കൽ മാറ്റം ഞങ്ങളുടെ പുസ്തകം.

ടാബിലെ അതേ പേരിലുള്ള ബട്ടൺ ഉപയോഗിച്ച് വിഷ്വൽ ബേസിക് എഡിറ്റർ തുറക്കുക ഡെവലപ്പർ (ഡെവലപ്പർ) അല്ലെങ്കിൽ കീബോർഡ് കുറുക്കുവഴികൾ ഇടത് Alt+F11. പ്രോജക്റ്റ് പാനലിന്റെ മുകളിൽ ഇടത് കോണിൽ നിങ്ങളുടെ പുസ്തകം കണ്ടെത്തി അതിൽ ഇരട്ട-ക്ലിക്കുചെയ്‌ത് മൊഡ്യൂൾ തുറക്കുക ഈ പുസ്തകം (ഈ വർക്ക്ബുക്ക്):

തുറക്കുന്ന വിൻഡോയിൽ, ഇനിപ്പറയുന്ന മാക്രോ കോഡ് പകർത്തി ഒട്ടിക്കുക:

സ്വകാര്യ സബ് വർക്ക്ബുക്ക്_ഷീറ്റ് സെലക്ഷൻ മാറ്റം(ByVal Sh ആയി ഒബ്ജക്റ്റ്, ByVal Target as Range) Application.StatusBar = "വിവരങ്ങൾ: " & Selection.Address(0, 0) End Sub  

ഇപ്പോൾ, ഏതെങ്കിലും ശ്രേണി തിരഞ്ഞെടുക്കുമ്പോൾ (ഒന്നിൽ കൂടുതൽ ഉൾപ്പെടെ!), അതിന്റെ വിലാസം സ്റ്റാറ്റസ് ബാറിൽ പ്രദർശിപ്പിക്കും:

Ctrl ഉപയോഗിച്ച് തിരഞ്ഞെടുത്ത നിരവധി ശ്രേണികളുടെ വിലാസങ്ങൾ ലയിക്കുന്നതിൽ നിന്ന് തടയുന്നതിന്, നിങ്ങൾക്ക് ഒരു ചെറിയ മെച്ചപ്പെടുത്തൽ ചേർക്കാൻ കഴിയും - കോമയെ കോമ ഉപയോഗിച്ച് മാറ്റി പകരം വയ്ക്കാൻ ഫംഗ്ഷൻ ഉപയോഗിക്കുക:

സ്വകാര്യ സബ് വർക്ക്ബുക്ക്_ഷീറ്റ് സെലക്ഷൻചേഞ്ച്(ByVal Sh ആയി ഒബ്ജക്റ്റ്, ByVal ടാർഗെറ്റ് ശ്രേണിയായി) Application.StatusBar = "വിലാസം: " & മാറ്റിസ്ഥാപിക്കുക(Selection.Address(0, 0), ",", ", ") അവസാനം സബ്  

സ്റ്റാറ്റസ് ബാറിലെ തിരഞ്ഞെടുത്ത സെല്ലുകളുടെ എണ്ണം

ഏതെങ്കിലും ശ്രേണി തിരഞ്ഞെടുക്കുമ്പോൾ, ശൂന്യമല്ലാത്ത തിരഞ്ഞെടുത്ത സെല്ലുകളുടെ എണ്ണം സ്ഥിരസ്ഥിതിയായി സ്റ്റാറ്റസ് ബാറിന്റെ വലതുവശത്ത് പ്രദർശിപ്പിക്കും. ചില സമയങ്ങളിൽ നിങ്ങൾ അനുവദിച്ചതിന്റെ എണ്ണം അറിയേണ്ടതുണ്ട്. മുമ്പത്തെ ഉദാഹരണത്തിലെന്നപോലെ, SelectionChange ബുക്ക് ഇവന്റ് കൈകാര്യം ചെയ്യുന്നതിനുള്ള ഒരു ലളിതമായ മാക്രോ ഉപയോഗിച്ച് ഈ ടാസ്‌ക് നിർവ്വഹിക്കാനും കഴിയും. നിങ്ങൾക്ക് ഇതുപോലുള്ള ഒരു മാക്രോ ആവശ്യമാണ്:

സ്വകാര്യ സബ് വർക്ക്‌ബുക്ക്_ഷീറ്റ് സെലക്ഷൻ മാറ്റം (ByVal Sh ആയി ഒബ്‌ജക്റ്റ്, ByVal ടാർഗെറ്റ് റേഞ്ച് ആയി) സെൽകൗണ്ട് വേരിയന്റായി കുറയ്ക്കുക, തിരഞ്ഞെടുക്കലിലെ ഓരോ rng ന്റെയും ശ്രേണിയായി rng. ഏരിയകൾ 'എല്ലാ തിരഞ്ഞെടുപ്പുകളിലൂടെയും ആവർത്തിക്കുക RowsCount = rng.Rows. Count' സംഖ്യകളുടെ എണ്ണം = വരികളുടെ എണ്ണം . കോളങ്ങളുടെ എണ്ണം CellCount = CellCount + RowsCount * ColumnsCount 'മൊത്തം സെല്ലുകളുടെ എണ്ണം ശേഖരിക്കുക അടുത്തത് 'സ്റ്റാറ്റസ് ബാറിൽ പ്രദർശിപ്പിക്കുക Application.StatusBar = "തിരഞ്ഞെടുത്തത്: " & സെൽകൗണ്ട് & " സെല്ലുകൾ" അവസാനം സബ്  

ഈ മാക്രോ എല്ലാ Ctrl-തിരഞ്ഞെടുത്ത ഏരിയകളിലൂടെയും (ഒന്നിൽ കൂടുതൽ ഉണ്ടെങ്കിൽ), RowsCount, ColumnsCount വേരിയബിളുകളിൽ ഓരോ ഏരിയയിലെയും വരികളുടെയും നിരകളുടെയും എണ്ണം സംഭരിക്കുകയും CellCount വേരിയബിളിലെ സെല്ലുകളുടെ എണ്ണം ശേഖരിക്കുകയും ചെയ്യുന്നു, അത് പിന്നീട് പ്രദർശിപ്പിക്കും. സ്റ്റാറ്റസ് ബാറിൽ. ജോലിസ്ഥലത്ത് ഇത് ഇതുപോലെ കാണപ്പെടും:

തീർച്ചയായും, തിരഞ്ഞെടുത്ത ശ്രേണിയുടെ വിലാസവും സെല്ലുകളുടെ എണ്ണവും ഒരേ സമയം പ്രദർശിപ്പിക്കുന്നതിന് നിങ്ങൾക്ക് ഇതും മുമ്പത്തെ മാക്രോകളും സംയോജിപ്പിക്കാൻ കഴിയും. നിങ്ങൾ ഒരു അവസാന വരി മാത്രമേ ഇതിലേക്ക് മാറ്റേണ്ടതുള്ളൂ:

Application.StatusBar = "തിരഞ്ഞെടുത്തത്: " & മാറ്റിസ്ഥാപിക്കുക(Selection.Address(0, 0), ",", ", ") & " - ആകെ " & CellCount & " cell"  

അപ്പോൾ ചിത്രം വളരെ മനോഹരമായിരിക്കും:

ശരി, നിങ്ങൾക്ക് ആശയം ലഭിച്ചുവെന്ന് ഞാൻ കരുതുന്നു. അഭിപ്രായങ്ങളിൽ നിർദ്ദേശിക്കുക - സ്റ്റാറ്റസ് ബാറിൽ പ്രദർശിപ്പിക്കാൻ മറ്റെന്താണ് ഉപയോഗപ്രദമാകുന്നത്?

• എന്താണ് മാക്രോകൾ, അവ എങ്ങനെ പ്രവർത്തിക്കുന്നു, അവ എങ്ങനെ ഉപയോഗിക്കണം, സൃഷ്ടിക്കണം
• ഒരു Excel ഷീറ്റിൽ സൗകര്യപ്രദമായ കോർഡിനേറ്റ് തിരഞ്ഞെടുക്കൽ
• സങ്കീർണ്ണമായ സൂത്രവാക്യങ്ങൾ എങ്ങനെ കൂടുതൽ ദൃശ്യമാക്കാം