ማውጫ
አንዳንድ ጊዜ አንዳንድ ነገሮችን ለማምጣት በጣም ረጅም ጊዜ ይወስዳል። ነገር ግን ቀድሞውንም ከተፈለሰፉ በኋላ፣ ከእውነታው በኋላ ግልጽ እና አልፎ ተርፎም ባናል ይመስላሉ። ከተከታታዩ "ምን, ይቻል ነበር?".
ከመጀመሪያዎቹ ስሪቶች በማይክሮሶፍት ኤክሴል መስኮት ስር ያለው የሁኔታ አሞሌ በተለምዶ ለተመረጡት ህዋሶች ድምር ያሳያል፡
ከተፈለገ በነዚህ ውጤቶች ላይ ቀኝ-ጠቅ ማድረግ እና ከአውድ ምናሌው ውስጥ በትክክል የትኞቹን ተግባራት ማየት እንደምንፈልግ መምረጥ ተችሏል፡
እና በቅርቡ፣ በቅርብ ጊዜ የ Excel ዝመናዎች፣ የማይክሮሶፍት ገንቢዎች ቀላል ነገር ግን ብልሃተኛ ባህሪን አክለዋል - አሁን እነዚህን ውጤቶች ጠቅ ሲያደርጉ፣ ወደ ቅንጥብ ሰሌዳ ይገለበጣሉ!
ውበት.
ግን እስካሁን ድረስ (ወይም ቀድሞውኑ?) እንደዚህ አይነት የ Excel ስሪት ስለሌላቸውስ? ቀላል ማክሮዎች ሊረዱ የሚችሉት እዚህ ነው.
ማክሮ በመጠቀም የተመረጡትን ሴሎች ድምር ወደ ክሊፕቦርዱ መቅዳት
በትር ውስጥ ክፈት ገንቢ (ገንቢ) አርታዒ ቪዥዋል ቤዚክ ወይም ይህን የቁልፍ ሰሌዳ አቋራጭ ይጠቀሙ alt+F11. አዲስ ባዶ ሞጁል በምናሌ አስገባ አስገባ - ሞጁል እና የሚከተለውን ኮድ እዚያ ይቅዱ።
ንኡስ ድምር የተመረጠ() ዓይነት ስም (ምርጫ) ከሆነ <> "ክልል" ከዛ ከ GetObject ጋር ውጣ("አዲስ፡{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") የእሱ አመክንዮ ቀላል ነው፡-
- በመጀመሪያ "ከሞኝ ጥበቃ" ይመጣል - በትክክል የደመቀውን እንፈትሻለን. ሕዋሶች ካልተመረጡ (ግን ለምሳሌ ገበታ)፣ ከዚያ ከማክሮ ውጣ።
- ከዚያ ትዕዛዙን ይጠቀሙ ግዑዝ ነገር የእኛ የተመረጡ ሕዋሶች ድምር በኋላ የሚከማችበት አዲስ የውሂብ ዕቃ እንፈጥራለን። ረጅም እና ለመረዳት የማያስቸግር የቁጥር ኮድ በእውነቱ ቤተ-መጽሐፍቱ ወደሚገኝበት የዊንዶውስ መዝገብ ቤት ቅርንጫፍ አገናኝ ነው። የማይክሮሶፍት ቅጾች 2.0 የነገር ቤተ መጻሕፍት, እንዲህ ያሉ ነገሮችን ሊፈጥር የሚችል. አንዳንድ ጊዜ ይህ ብልሃት ተብሎም ይጠራል ስውር ዘግይቶ ማሰር. ካልተጠቀሙበት፣ በምናሌው በኩል በፋይሉ ውስጥ ወደዚህ ቤተ-መጽሐፍት አገናኝ መፍጠር አለብዎት መሳሪያዎች - ማጣቀሻዎች.
- የተመረጡት ሴሎች ድምር እንደ ትዕዛዝ ይቆጠራል የስራ ሉህ ተግባር። ድምር(ምርጫ), እና ከዚያ የተገኘው መጠን ከትእዛዙ ጋር በቅንጥብ ሰሌዳ ላይ ይደረጋል PutInClipboard
ለአጠቃቀም ቀላልነት፣ በእርግጥ ይህን ማክሮ ቁልፉን ተጠቅመው በቁልፍ ሰሌዳ አቋራጭ ላይ መመደብ ይችላሉ። ማክሮስ ትር ገንቢ (ገንቢ - ማክሮ).
እና ማክሮውን ካስኬዱ በኋላ በትክክል ምን እንደተገለበጠ ለማየት ከፈለጉ በተዛማጅ ቡድን ታችኛው ቀኝ ጥግ ላይ ያለውን ትንሽ ቀስት በመጠቀም የክሊፕቦርዱን ፓኔል ማብራት ይችላሉ ። ዋናው (ቤት) ትር:
መጠኑ ብቻ አይደለም
ከባናል መጠን በተጨማሪ ሌላ ነገር ከፈለጉ ነገሩ የሚሰጠንን ማንኛውንም ተግባር መጠቀም ይችላሉ። የስራ ሉህ ተግባር:
ለምሳሌ፡-
- ድምር - ድምር
- አማካይ - የሂሳብ አማካይ
- ቆጠራ - ቁጥሮች ያላቸው ሴሎች ብዛት
- CountA - የተሞሉ ሕዋሳት ብዛት
- CountBlank - ባዶ ሕዋሳት ብዛት
- ዝቅተኛ - ዝቅተኛ ዋጋ
- ከፍተኛ - ከፍተኛ ዋጋ
- ሚዲያን - መካከለኛ (መካከለኛ እሴት)
- … ወዘተ
በተመረጠው ክልል ውስጥ ረድፎች ወይም አምዶች (በእጅ ወይም በማጣሪያ) ቢደበቁስ? በጥቅሉ ውስጥ ግምት ውስጥ ላለመግባት, ወደ እቃው በመጨመር ኮዳችንን በትንሹ ማሻሻል ያስፈልገናል ምርጫ ንብረት ልዩ ሴሎች(xlCell ዓይነት የሚታይ):
ንዑስ ሱም የሚታይ() የአይነት ስም(ምርጫ) ከሆነ <> "ክልል" ከዛ ከ GetObject ጋር ውጣ("አዲስ፡{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") PutInClipboard ከመጨረሻ ንዑስ ጋር ያበቃል በዚህ ሁኔታ, የማንኛውም ጠቅላላ ተግባር ስሌት በሚታዩ ሕዋሳት ላይ ብቻ ተግባራዊ ይሆናል.
የኑሮ ቀመር ከፈለጉ
ሕልምን ካዩ ፣ ቁጥር (ቋሚ) ሳይሆን ሕያው ቀመር ወደ ቋት መገልበጥ የተሻለ በሚሆንበት ጊዜ ሁኔታዎችን ይዘው መምጣት ይችላሉ ፣ ይህም ለተመረጡት ሴሎች የሚያስፈልጉትን አጠቃላይ ድምር ያሰላል። በዚህ ሁኔታ የዶላር ምልክቶችን ማስወገድ እና ኮማውን (በVBA ውስጥ በበርካታ የተመረጡ ክልሎች አድራሻዎች መካከል እንደ መለያ ሆኖ የሚያገለግል) በመተካት ቀመሩን ከቁራጭ ማጣበቅ አለብዎት።
ንዑስ ፎርሙላ() የአይነት ስም(ምርጫ) ከሆነ <> "ክልል" ከዛ ከግትኦብጀክት ጋር ውጣ("አዲስ፡{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") አድራሻ፣ ",","";")፣ "$", "") እና ")" .PutInClipboard መጨረሻ ንዑስ ክፍል ማጠቃለያ ከተጨማሪ ሁኔታዎች ጋር
እና በመጨረሻም ፣ ሙሉ ለሙሉ ማኒክስ ፣ ሁሉንም የተመረጡ ህዋሶችን ሳይሆን የተሰጡትን ሁኔታዎች የሚያሟሉ ማክሮዎችን መፃፍ ይችላሉ ። ስለዚህ ፣ ለምሳሌ ፣ እሴቶቻቸው ከ 5 በላይ ከሆኑ እና በተመሳሳይ ጊዜ በማንኛውም ቀለም ከተሞሉ የተመረጡትን ህዋሶች ድምር ወደ ቋት ውስጥ የሚያስቀምጥ ማክሮ ይመስላል።
Sub CustomCalc() MyRange Dim As Range If TypeName(ምርጫ) <> "ክልል" ከዚያ ውጣ ንዑስ ለእያንዳንዱ ሕዋስ በምርጫ ውስጥ ከሆነ cell.Value > 5 እና cell.Interior.ColorIndex <> xlNone ከዚያ myRange ምንም ካልሆነ ከዚያ myRangeን ያቀናብሩ = cell Else Set myRange = Union(myRange, cell) ካለቀ ያበቃል ቀጣዩ ሕዋስ ከ GetObject ("አዲስ፡{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") በቀላሉ እንደሚገምቱት፣ ሁኔታዎች በማንኛውም - እስከ የሕዋስ ቅርጸቶች - እና በማንኛውም መጠን (ከሎጂካዊ ኦፕሬተሮች ጋር በማገናኘት ወይም እና እና) ሊዘጋጁ ይችላሉ። ለማሰብ ብዙ ቦታ አለ።
- ቀመሮችን ወደ እሴቶች ቀይር (6 መንገዶች)
- ማክሮዎች ምንድን ናቸው ፣ እንዴት እንደሚጠቀሙባቸው ፣ ቪዥዋል ቤዚክ ኮድ የት እንደሚያስገባ
- በማይክሮሶፍት ኤክሴል የሁኔታ አሞሌ ውስጥ ጠቃሚ መረጃ