Adikao amin'ny Clipboard ny fitambaran'ny sela voafantina

Indraindray dia mila fotoana be vao tonga amin'ny zavatra sasany. Saingy rehefa EFA noforonina izy ireo, dia toa miharihary sy banal mihitsy aza. Avy amin'ny andian-dahatsoratra "inona, azo atao?".

Avy amin'ny dikan-teny voalohany indrindra, ny bara sata eo amin'ny farany ambany amin'ny fikandrana Microsoft Excel dia mampiseho ny totalin'ny sela voafantina:

Raha tianao, dia azo atao mihitsy aza ny manindry havanana amin'ireo valiny ireo ary misafidy avy amin'ny menio contexte izay tena tiantsika ho hita:

Ary vao haingana, tamin'ny fanavaozana farany Excel, nanampy endri-javatra tsotra nefa marani-tsaina ny mpamorona Microsoft - ankehitriny rehefa manindry ireo valiny ireo ianao dia adika amin'ny takelaka!

Beauty. 

Ahoana anefa ny amin'ireo izay tsy mbola (na efa?) manana dikan-teny Excel toy izany? Eto dia afaka manampy ny macro tsotra.

Mandika ny fitambaran'ny sela voafantina ao amin'ny Clipboard mampiasa macro

Sokafy amin'ny tabilao Developer (mpamorona) mpamoaka lahatsoratra Visual Basic na ampiasao ity hitsin-dàlana fitendry ity Alt+F11. Ampidiro ny maody poakaty vaovao amin'ny alàlan'ny menu Ampidiro - Module ary kopia ity code manaraka ity any:

Sub SumSelected() Raha TypeName(Selection) <> "Range" dia miala amin'ny Sub With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection) .PutInClipboard  

Tsotra ny lojikany:

• Voalohany dia tonga ny "fiarovana amin'ny adala" - jereo izay tena asongadina. Raha tsy sela no voafantina (fa, ohatra, tabilao), dia miala amin'ny macro.
• Avy eo mampiasa ny baiko Getobject mamorona zavatra angona vaovao izay hitehirizana ny fitambaran'ny sela voafantina any aoriana. Ny kaody alfanumerika lava sy tsy takatry ny saina dia, raha ny marina, dia rohy mankany amin'ny sampana rejisitra Windows izay misy ny tranomboky. Microsoft Forms 2.0 Object Library, izay afaka mamorona zavatra toy izany. Indraindray io fika io dia antsoina koa hoe fatorana tara implicit. Raha tsy mampiasa azy ianao dia tsy maintsy manao rohy mankany amin'ity tranomboky ity amin'ny rakitra amin'ny alàlan'ny menio Fitaovana - References.
• Heverina ho baiko ny fitambaran'ny sela voafantina WorksheetFunction.Sum(Selection), ary apetraka eo amin'ny solaitrabe miaraka amin'ny baiko ny vola azo PutInClipboard

Ho fanamorana ny fampiasana, mazava ho azy, azonao atao ny manendry ity macro ity amin'ny hitsin-dàlana fitendry mampiasa ny bokotra macros vakizoro Developer (Developer - Macros).

Ary raha te-hahita ny tena nadika ianao taorian'ny fampandehanana ny macro dia azonao atao ny manokatra ny tontonana Clipboard amin'ny alàlan'ny zana-tsipìka kely eo amin'ny zoro ambany havanana amin'ny vondrona mifanaraka amin'izany. ny tena (Trano) kiheba:

Tsy ny vola ihany

Raha, ankoatry ny vola banal, dia mila zavatra hafa ianao, dia azonao atao ny mampiasa ny asa rehetra omen'ilay zavatra antsika. WorksheetFunction:

Ohatra, misy:

• Sum – sum
• Salan'isa - arithmetika midika
• Manisa – isan'ny sela misy isa
• CountA - isan'ny sela feno
• CountBlank – isan'ny sela foana
• Min – sanda kely indrindra
• Max - sanda ambony indrindra
• Mediana - median (vintana afovoany)
• … Sns.

Ahitana sivana sy tsanganana andalana miafina

Ahoana raha misy tsipika na tsanganana nafenina (amin'ny tanana na amin'ny sivana) ao amin'ny faritra voafantina? Mba tsy hijerena azy ireo amin'ny fitambarany dia mila manova kely ny kaodinay isika amin'ny fampidirana ilay zavatra Selection fananana SpecialCells(xlCellTypeVisible):

Sub SumVisible() Raha TypeName(Selection) <> "Range" dia miala amin'ny Sub miaraka amin'ny GetObject("Vaovao:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection.SpecialCell)(ySpecialCell) PutInClipboard dia mifarana amin'ny End Sub  

Amin'ity tranga ity, ny kajy ny asa manontolo dia ampiharina amin'ny sela hita maso ihany.

Raha mila raikipohy velona ianao

Raha manonofy ianao, dia afaka mamorona scenario rehefa tsara kokoa ny mandika tsy isa (tsy miovaova), fa raikipohy velona ao amin'ny buffer, izay manisa ny totalin'ny ilaina ho an'ny sela voafantina. Amin'ity tranga ity dia tsy maintsy mametaka ny formulaire avy amin'ny sombiny ianao, manampy amin'ny fanesorana ireo famantarana dolara ary manolo ny faingo (izay ampiasaina ho fanasarahana eo amin'ny adiresin'ny faritra maromaro voafantina ao amin'ny VBA) miaraka amin'ny semicolon:

Sub SumFormula() Raha TypeName(Selection) <> "Range" dia miala amin'ny Sub With GetObject("Vaovao:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "=СУММ(" & Soloy(Selection. Adiresy, ",", ";"), "$", "") & ")".  

Famintinana miaraka amin'ny fepetra fanampiny

Ary, farany, ho an'ny maniacs tanteraka, dia afaka manoratra macro izay hamintina tsy ny sela voafantina rehetra, fa ireo izay mahafa-po ny fepetra nomena ihany. Noho izany, ohatra, ny macro dia ho toy ny mametraka ny fitambaran'ny sela voafantina ao amin'ny Buffer, raha mihoatra ny 5 ny sandany ary feno loko rehetra izy ireo:

 Sub CustomCalc() Dim myRange Toy ny Range Raha TypeName(Selection) <> "Range" Dia miala amin'ny Sub ho an'ny sela tsirairay ao amin'ny Selection Raha cell.Value > 5 Ary cell.Interior.ColorIndex <> xlTsy misy ary raha tsy misy na inona na inona ny myRange dia apetraho ny myRange = cell Else Set myRange = Union(myRange, cell) Tapitra raha mifarana raha manaraka ny sela miaraka amin'ny GetObject("Vaovao:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) .PutInClipboard End with End  

Araka ny azonao an-tsaina mora foana, ny fepetra dia azo apetraka tanteraka - hatramin'ny endrika sela - ary amin'ny habetsahana rehetra (anisan'izany ny fampifandraisana azy ireo miaraka amin'ireo mpandraharaha lojika na na ary). Misy toerana be dia be ho an'ny saina.

• Avadika ho soatoavina (fomba 6)
• Inona ny macros, ny fomba fampiasana azy, ny toerana hampidirana ny code Visual Basic
• Fampahalalana mahasoa ao amin'ny toeran'ny Microsoft Excel