በሁኔታ አሞሌ ውስጥ ጠቃሚ መረጃ

የሆነ ሰው ወደውታል፣ ግን በግሌ የሁኔታ አሞሌን በ2-3 ጉዳዮች ብቻ እፈልጋለሁ፡-

• ከተጣራ በኋላ, ከተመረጠው በኋላ የቀሩትን የእሴቶች ብዛት ያሳያል
• አንድ ክልል ሲመረጥ የተመረጡትን ሴሎች ድምር፣ አማካኝ እና ቁጥር ያሳያል
• በከባድ ፋይሎች ውስጥ ፣ በመጽሐፉ ውስጥ ቀመሮችን እንደገና በማስላት ሂደት ውስጥ ማየት ይችላሉ።
  

የስክሪኑን አጠቃላይ ስፋት ከሞላ ጎደል የሚወስድ እና ሁልጊዜ በላዩ ላይ ለሚሰቀል መስመር ብዙም አይደለም። ይህንን መጠነኛ ዝርዝር ለማስፋት እና ጥቂት ተጨማሪ ጠቃሚ ባህሪያትን በእሱ ላይ ለመጨመር እንሞክር 🙂

የሁኔታ አሞሌን ለማስተዳደር አጠቃላይ መርሆዎች

የሁኔታ አሞሌን በ Visual Basic ማስተዳደር በጣም ቀላል ነው። ጽሑፍህን በእሱ ውስጥ ለማሳየት፣ ቀላል ማክሮ መጠቀም ትችላለህ፡-

ንዑስ MyStatus() Application.StatusBar = "Привет!" መጨረሻ ንዑስ  

ከሂደቱ በኋላ የሚከተሉትን እናገኛለን

የሁኔታ አሞሌን የመጀመሪያ ሁኔታ ለመመለስ፣ ተመሳሳይ አጭር “ጸረ-ማክሮ” ያስፈልግዎታል፡-

ንዑስ MyStatus_Off() Application.StatusBar = የውሸት መጨረሻ ንዑስ  

በመሠረታዊው ስሪት, እንደምታየው, ሁሉም ነገር በጣም ቀላል ነው. አሁን ሀሳቡን ለማዳበር እንሞክር…

በሁኔታ አሞሌ ውስጥ የተመረጠው ክልል አድራሻ

 በቀመር አሞሌው ውስጥ ባለው የ Excel መስኮት በላይኛው ግራ ጥግ ላይ ሁል ጊዜ የአሁኑን ሕዋስ አድራሻ ማየት ይችላሉ። ግን አንድ ሙሉ ክልል ከተመረጠ ፣ እንደ አለመታደል ሆኖ ፣ እዚያ የመምረጫ አድራሻውን አናየውም - አንድ አይነት ንቁ ሕዋስ ይታያል።

ይህንን ችግር ለመፍታት በሁኔታ አሞሌ ውስጥ የተመረጠውን ቦታ አድራሻ የሚያሳይ ቀላል ማክሮ መጠቀም ይችላሉ. በተጨማሪም ፣ ይህ ማክሮ በራስ-ሰር መጀመር አለበት ፣ በማንኛውም ሉህ ላይ ባለው ምርጫ ላይ በማንኛውም ለውጥ - ለዚህም በዝግጅት ተቆጣጣሪ ውስጥ እናስቀምጠዋለን። የምርጫ ለውጥ መጽሐፋችን ።

በትሩ ላይ ተመሳሳይ ስም ያለው ቁልፍ በመጠቀም Visual Basic Editor ን ይክፈቱ ገንቢ (ገንቢ) ወይም የቁልፍ ሰሌዳ አቋራጮች ግራ Alt+F11. በፕሮጀክት ፓነል የላይኛው ግራ ጥግ ላይ መጽሐፍዎን ይፈልጉ እና ሞጁሉን ሁለቴ ጠቅ በማድረግ ይክፈቱት። ይህ መጽሐፍ (ይህ የሥራ መጽሐፍ):

በሚከፈተው መስኮት ውስጥ የሚከተለውን ማክሮ ኮድ ይቅዱ እና ይለጥፉ።

የግል ንዑስ ደብተር_SheetSelectionChange(ByVal Sh እንደ ዕቃ፣ባይቫል ኢላማ እንደ ክልል) Application.StatusBar = "Vыделено:" & Selection.Address(0, 0) End Subs  

አሁን፣ ማንኛውም ክልል ሲመረጥ (ከአንድ በላይ ጨምሮ!)፣ አድራሻው በሁኔታ አሞሌ ላይ ይታያል፡

በCtrl የተመረጡ የበርካታ ክልሎች አድራሻዎች እንዳይዋሃዱ ለመከላከል ትንሽ ማሻሻያ ማከል ይችላሉ - ኮማ በነጠላ ሰረዝ በጠፈር ለመተካት የ Replace ተግባርን ይጠቀሙ፡

የግል ንዑስ ደብተር_SheetSelectionChange(ByVal Sh እንደ ነገር፣ ByVal Target እንደ ክልል) መተግበሪያ።ሁኔታባር = "ቪዲዮ፡" እና ተካ(መምረጡ።አድራሻ(0፣ 0)፣ ",","""፣ ") መጨረሻ ንዑስ ክፍል  

በሁኔታ አሞሌ ውስጥ የተመረጡ ሕዋሶች ብዛት

ማንኛውም ክልል ሲመረጥ ባዶ ያልሆኑ የተመረጡ ሕዋሶች ቁጥር በነባሪነት በሁኔታ አሞሌው በቀኝ በኩል ይታያል። አንዳንድ ጊዜ የተመደበውን ቁጥር ማወቅ ያስፈልግዎታል. ይህ ተግባር በቀዳሚው ምሳሌ እንደሚታየው የ SelectionChange መጽሐፍ ክስተትን ለማስተናገድ በቀላል ማክሮ ሊከናወን ይችላል። እንደዚህ ያለ ማክሮ ያስፈልግዎታል

የግል ንዑስ ደብተር_ሉህ ምርጫ ለውጥ(ByVal Sh እንደ ነገር፣ ByVal Target እንደ ክልል) Dim CellCount እንደ ተለዋጭ፣ rng እንደ ክልል ለእያንዳንዱ rng በምርጫ። አካባቢዎች 'በሁሉም ምርጫዎች ይለዋወጡ RowsCount = rng.Rows.Count 'የረድፎች ብዛት አምዶችCount = sng. . የዓምዶች ብዛት ይቁጠሩ CellCount = CellCount + RowsCount * ColumnsCount የሕዋሶችን ጠቅላላ ብዛት ያከማቻሉ ቀጣይ 'በሁኔታ አሞሌው ውስጥ ይታያል Application.StatusBar = "የተመረጠው:" እና የሕዋስ ቆጠራ እና "ሕዋሶች" መጨረሻ ንዑስ  

ይህ ማክሮ ዑደቶች በCtrl በተመረጡት ቦታዎች ሁሉ (ከአንድ በላይ ካሉ) በየአካባቢው ያሉትን የረድፎች እና የአምዶች ብዛት በRowsCount እና ColumnsCount ተለዋዋጮች ውስጥ ያከማቻል እና በሴል ካውንት ተለዋዋጭ ውስጥ የሕዋሶችን ብዛት ይሰበስባል፣ ይህ ደግሞ ይታያል። በሁኔታ አሞሌ ውስጥ። በሥራ ላይ, የሚከተለውን ይመስላል:

እርግጥ ነው, የተመረጠውን ክልል አድራሻ እና የሴሎችን ብዛት በአንድ ጊዜ ለማሳየት ይህንን እና የቀደመውን ማክሮዎችን ማዋሃድ ይችላሉ. አንድ መስመር ብቻ ወደሚከተለው መቀየር አለብህ፡-

Application.StatusBar = "የተመረጠ፡" እና ተካ(መምረጫ።አድራሻ(0፣ 0)፣ """፣ "  

ከዚያ ምስሉ በጣም አስደናቂ ይሆናል-

እንግዲህ ሃሳቡን የገባህ ይመስለኛል። በአስተያየቶቹ ውስጥ ይጠቁሙ - በሁኔታ አሞሌ ውስጥ ለማሳየት ሌላ ምን ጠቃሚ ነው?

• ማክሮዎች ምንድን ናቸው, እንዴት እንደሚሠሩ, እንዴት እንደሚጠቀሙባቸው እና እንደሚፈጠሩ
• በኤክሴል ሉህ ላይ ምቹ የማስተባበር ምርጫ
• ውስብስብ ቀመሮችን እንዴት የበለጠ ምስላዊ ማድረግ እንደሚቻል