Daakọ apao ti awọn sẹẹli ti a ti yan si Agekuru

Nigba miiran o gba akoko pupọ pupọ lati wa pẹlu awọn nkan kan. Ṣugbọn nigbati wọn ba ti ṣẹda tẹlẹ, lẹhin otitọ wọn dabi gbangba ati paapaa banal. Lati jara "kini, o ṣee ṣe?".

Lati awọn ẹya akọkọ gan-an, ọpa ipo ni isalẹ ti window Microsoft Excel ti aṣa ṣe afihan lapapọ fun awọn sẹẹli ti a yan:

Daakọ apao ti awọn sẹẹli ti a ti yan si Agekuru

Ti o ba fẹ, o ṣee ṣe paapaa lati tẹ-ọtun lori awọn abajade wọnyi ki o yan lati inu atokọ ọrọ gangan iru awọn iṣẹ ti a fẹ lati rii:

Daakọ apao ti awọn sẹẹli ti a ti yan si Agekuru

Ati pe laipẹ, ninu awọn imudojuiwọn Excel tuntun, awọn olupilẹṣẹ Microsoft ṣafikun ẹya ti o rọrun ṣugbọn ọgbọn - ni bayi nigbati o ba tẹ awọn abajade wọnyi, wọn daakọ si agekuru!

Daakọ apao ti awọn sẹẹli ti a ti yan si Agekuru

Ẹwa. 

Ṣugbọn kini nipa awọn ti ko sibẹsibẹ (tabi tẹlẹ?) Ni iru ẹya Excel? Eyi ni ibiti awọn macros ti o rọrun le ṣe iranlọwọ.

Didaakọ apao awọn sẹẹli ti a yan si Agekuru nipa lilo Makiro

Ṣii ni taabu developer (Olùgbéejáde) olootu visual Ipilẹ tabi lo ọna abuja keyboard yii alt+F11. Fi titun sofo module nipasẹ akojọ Fi sii - Module ati daakọ koodu atẹle nibẹ:

Sub SumSelected() If TypeName(Ayan) <> "Range" Lẹhinna Jade Sub Pẹlu GetObject("Tuntun:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Aṣayan) .PutIn

Imọye rẹ rọrun:

  • Ni akọkọ wa ni "idaabobo lati ọdọ aṣiwère" - a ṣayẹwo ohun ti o ṣe afihan gangan. Ti kii ba ṣe awọn sẹẹli ti yan (ṣugbọn, fun apẹẹrẹ, chart), lẹhinna jade kuro ni Makiro.
  • Lẹhinna lo aṣẹ naa Ohun-ini a ṣẹda data tuntun kan nibiti ao ti fipamọ apao awọn sẹẹli ti a yan nigbamii. Koodu alphanumeric gigun ati ti ko ni oye jẹ, ni otitọ, ọna asopọ si ẹka iforukọsilẹ Windows nibiti ile-ikawe naa wa. Microsoft Fọọmù 2.0 Ohun Library, eyi ti o le ṣẹda iru awọn nkan. Nigba miiran ẹtan yii tun npe ni aisọ pẹ abuda. Ti o ko ba lo, lẹhinna o yoo ni lati ṣe ọna asopọ si ile-ikawe yii ninu faili nipasẹ akojọ aṣayan Awọn irinṣẹ - Awọn itọkasi.
  • Apapọ awọn sẹẹli ti a yan ni a gba si aṣẹ kan Iṣẹ iṣẹ-ṣiṣe.Sum(Aṣayan), ati lẹhinna iye abajade ni a gbe sori agekuru agekuru pẹlu aṣẹ naa PutInClipboard

Fun irọrun ti lilo, o le, nitorinaa, fi Makiro yii si ọna abuja keyboard nipa lilo bọtini naa Makiro taabu developer (Olùgbéejáde - Macros).

Ati pe ti o ba fẹ wo kini gangan ti daakọ lẹhin ṣiṣe Makiro, o le tan-an nronu Clipboard nipa lilo itọka kekere ni igun apa ọtun isalẹ ti ẹgbẹ ti o baamu lori awọn ifilelẹ ti awọn (Ile) taabu:

Daakọ apao ti awọn sẹẹli ti a ti yan si Agekuru

Kii ṣe iye nikan

Ti, ni afikun si iye banal, o fẹ nkan miiran, lẹhinna o le lo eyikeyi awọn iṣẹ ti nkan naa pese fun wa. Iṣẹ-ṣiṣe iṣẹ:

Daakọ apao ti awọn sẹẹli ti a ti yan si Agekuru

Fun apẹẹrẹ, nibẹ ni:

  • Apapọ - apao
  • Apapọ – itumo isiro
  • Ka - nọmba awọn sẹẹli pẹlu awọn nọmba
  • CountA - nọmba awọn sẹẹli ti o kun
  • CountBlank – nọmba ti sofo awọn sẹẹli
  • Min - iye to kere julọ
  • Max - o pọju iye
  • Agbedemeji – agbedemeji (iye aarin)
  • … Ati be be lo

Pẹlu awọn asẹ ati awọn ọwọn-ila ti o farapamọ

Kini ti awọn ori ila tabi awọn ọwọn ba wa ni pamọ (pẹlu ọwọ tabi nipasẹ àlẹmọ) ni ibiti o yan? Ni ibere ki o má ba ṣe akiyesi wọn ni apapọ, a yoo nilo lati yi koodu wa diẹ sii nipa fifi kun si nkan naa aṣayan ohun ini Awọn sẹẹli pataki (xlCellType ti a rii):

Sub SumVisible() If TypeName(Ayan) <> "Range" Lẹhinna Jade Sub Pẹlu GetObject("Titun:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Aṣayan.SpecialCell)T PutInClipboard Ipari Pẹlu Ipari Ipari

Ni idi eyi, iṣiro ti eyikeyi iṣẹ lapapọ yoo lo si awọn sẹẹli ti o han nikan.

Ti o ba nilo agbekalẹ igbesi aye

Ti o ba ni ala, o le wa pẹlu awọn oju iṣẹlẹ nigbati o dara lati daakọ kii ṣe nọmba kan (ibakan), ṣugbọn agbekalẹ igbesi aye sinu ifipamọ, eyiti o ṣe iṣiro awọn apapọ ti a nilo fun awọn sẹẹli ti a yan. Ni ọran yii, iwọ yoo ni lati lẹ pọ mọ agbekalẹ lati awọn ajẹkù, fifi si i yiyọkuro awọn ami dola ati rirọpo komama (eyiti o lo bi oluyapa laarin awọn adirẹsi ti awọn sakani ti a yan pupọ ni VBA) pẹlu semicolon kan:

Sub SumFormula() If TypeName(Ayan) <> "Range" Lẹhinna Jade Sub Pẹlu GetObject("Titun:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "=СУММ("" & Rọpo(.Sele) Adirẹsi, ",", ";"), "$", "") & ")" .PutInClipboard Ipari Pẹlu Ipari Ipari

Akopọ pẹlu afikun awọn ipo

Ati, nikẹhin, fun awọn maniacs patapata, o le kọ macro kan ti yoo ṣe akopọ kii ṣe gbogbo awọn sẹẹli ti a yan, ṣugbọn awọn ti o ni itẹlọrun awọn ipo ti a fun. Nitorinaa, fun apẹẹrẹ, macro kan yoo dabi iyẹn fi apao awọn sẹẹli ti a yan sinu Buffer, ti awọn iye wọn ba tobi ju 5 ati ni akoko kanna wọn kun pẹlu eyikeyi awọ:

 Sub CustomCalc() Dim myRange As Range If TypeName(Aṣayan) <> "Range" Nigbana ni Jade Sub For Kọọkan cell Ni Selection If cell.Value> 5 Ati cell.Interior.ColorIndex <> xlNone Lẹhinna Ti myRange Ṣe Ko si Ohunkan lẹhinna Ṣeto myRange = cell Else Ṣeto myRange = Union(myRange, cell) Ipari Ti O ba Pari Ti sẹẹli Next Pẹlu GetObject("Titun:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) .PutIn SubClipboard

Bi o ṣe le ni irọrun fojuinu, awọn ipo le ṣee ṣeto eyikeyi patapata – to awọn ọna kika sẹẹli – ati ni eyikeyi iwọn (pẹlu nipa sisopọ wọn papọ pẹlu awọn oniṣẹ oye tabi tabi ati). Nibẹ ni a pupo ti yara fun oju inu.

  • Yipada awọn agbekalẹ si awọn iye (awọn ọna 6)
  • Kini macros, bii o ṣe le lo wọn, nibo ni lati fi koodu Ipilẹ Visual sii
  • Alaye to wulo ninu ọpa ipo ti Microsoft Excel

Fi a Reply