Tāruahia te tapeke o ngā pūtau kua tīpakohia ki te Papatopenga

I etahi wa ka roa rawa te wa ka puta mai etahi mea. Engari i te mea kua oti te hanga, i muri i te meka ka kitea he maamaa, he maamaa hoki. Mai i te raupapa "he aha, ka taea?".

Mai i nga putanga tuatahi, ko te pae tūnga kei raro o te matapihi Microsoft Excel e whakaatu ana i nga tapeke mo nga pūtau kua tohua:

Ki te hiahia, ka taea te paato-matau ki enei hua ka kowhiri mai i te tahua horopaki ko nga mahi e hiahia ana matou ki te kite:

A, no na tata nei, i roto i nga whakahoutanga Excel hou, kua taapirihia e nga kaiwhakawhanake Microsoft tetahi ahuatanga ngawari engari maamaa - inaianei ka paatohia e koe enei hua, ka kapehia ki te papatopenga!

Ataahua. 

Engari me pehea te hunga kaore ano (kua oti ranei?) he momo putanga Excel? I konei ka taea e nga tonotono ngawari te awhina.

Te tārua i te tapeke o ngā pūtau kua tīpakohia ki te Papatopenga mā te tonotono

Tuwhera ki te ripa kaiwhakawhanake (Kaiwhakawhanake) ētita Visual Basic whakamahia ranei tenei pokatata papapātuhi alt+F11. Kōkuhu kōwae putua hōu mā te tahua Kōkuhu – Kōwae ka kape i te waehere e whai ake nei ki reira:

Kua tohua () Ki te Momo Ingoa(Tīpakonga) <> "Awhe" Katahi ka Puta I raro me GetObject("Hou:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection) .PutInClipboard  

He ngawari tana arorau:

• Tuatahi ka tae mai te "tiaki mai i te wairangi" - ka tirohia e matou he aha nga mea e tohuhia ana. Ki te kore nga pūtau ka tohua (engari, hei tauira, he tūtohi), ka puta te tonotono.
• Na ka whakamahi i te whakahau Takeobject ka waihangahia e matou he ahanoa raraunga hou ka penapenahia a matou tapeke o nga pūtau kua tohua i muri mai. Ko tetahi waehere alphanumeric roa me te kore e marama, he hono ki te peka rehita Windows kei reira te whare pukapuka. Microsoft Forms 2.0 Object Library, ka taea te hanga taonga pera. I etahi wa ka kiia ano tenei tinihanga herenga mutunga kore. Ki te kore koe e whakamahi, katahi koe ka hono ki tenei whare pukapuka i roto i te konae ma te tahua Utauta — Tohutoro.
• Ko te tapeke o nga pūtau kua tohua he tono Mahi Pepamahi.Tama(Tīpakonga), katahi ka tukuna te moni hua ki te papatopenga me te whakahau PutInClipboard

Mo te ngawari o te whakamahi, ka taea e koe te tautapa i tenei tonotono ki tetahi pokatata papapātuhi ma te paatene tonotono ripa kaiwhakawhanake (Kaiwhakawhanake — Tonotono).

A, ki te hiahia koe ki te kite he aha te mea i kapea i muri i te whakahaeretanga o te tonotono, ka taea e koe te whakakao i te papatopenga ma te whakamahi i te pere iti kei te kokonga matau o raro o te roopu e rite ana. Ko te matua (Kaainga) ripa:

Ehara i te nui anake

Mena, i tua atu i te nui o te moni, ka hiahia koe ki tetahi atu mea, ka taea e koe te whakamahi i tetahi o nga mahi e whakaratohia ana e te mea. Mahi Pepamahi:

Hei tauira, he:

• Sum – sum
• Toharite – tikanga tatau
• Tatau – te maha o nga pūtau whai tau
• TatauA – te maha o nga pūtau kua whakakiia
• CountBlank – te maha o nga pūtau kau
• Min – uara iti
• Mōrahi – uara mōrahi
• Tauwaenga – tauwaenga (uara pokapū)
• … Etc.

Tae atu ki nga whiriwhiringa me nga rarangi haupae huna

Ka pewhea mehemea kei te huna nga rarangi, poupou ranei (ma te ringa, ma te tātari ranei) i te awhe kua tohua? Kia kore ai e whai whakaaro ki roto i nga tapeke, me whakarereke paku ta maatau waehere ma te taapiri atu ki te ahanoa Tīpakonga taonga Pūtau Motuhake(xlCellTypeVisible):

Sub SumVisible() Ki te MomoName(Tīpakonga) <> "Awhe" Katahi ka Puta I te Sub With GetObject("Hou:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection.SpecialCellCell)(y) PutInClipboard Whakamutunga Ki te Whakamutunga Sub  

I tenei keehi, ko te tataunga o nga mahi katoa ka pa ki nga pūtau kitea anake.

Mena kei te hiahia koe ki tetahi tauira ora

Mena ka moemoea koe, ka taea e koe te whakaaro he pai ake te kape i te tau (tonu), engari he tauira ora ki roto i te papaa, e tatau ana i nga tapeke e hiahiatia ana mo nga ruma kua tohua. I tenei keehi, me whakapiri koe i te tauira mai i nga kongakonga, me te taapiri atu ki te tango i nga tohu taara me te whakakapi i te piko (e whakamahia ana hei whakawehe i waenga i nga wahitau o nga awhe kua tohua i roto i te VBA) me te tohu tohutoro:

Sub SumFormula() Mēnā TypeName(Tīpakonga) <> "Awhe" Katahi ka Puta i te Sub With GetObject("Hou:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "=СУММ(" & Whakakapi(Whakakapi(Tīpakonga). Wāhitau, ",", ";"), "$", "") & ")" .PutInClipboard Mutunga Ki te Whakamutunga Sub  

Huihuinga me nga tikanga taapiri

Na, ka mutu, mo nga tino maniac, ka taea e koe te tuhi i tetahi tonotono e kore e whakahiato i nga pūtau kua tohua, engari ko nga mea e pai ana ki nga tikanga kua tohua. Na, hei tauira, ka penei te ahua o te tonotono ki te whakauru i te tapeke o nga pūtau kua tohua ki roto i te Buffer, mena he nui ake o raatau uara i te 5 me te wa ano ka whakakiia ki tetahi tae:

 Sub CustomCalc() Whakakorehia takuRange Hei Awhe Ki te MomoName(Kōwhiringa) <> "Awhe" Katahi ka Putaatu ki raro mo ia pūtau i roto i te Kōwhiringa Mena cell.Value > 5 Me te pūtau.Interior.ColorIndex <> xlKore Karekau Mena karekau takuRange Na Tautuhi takuRange = pūtau Atu Whakatakotoria myRange = Kotahitanga(myRange, pūtau) Mutu Ki te Mutu Ki te Putau Panuku Me GetObject("Hou:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) .PutInClipboard End with End  

Ka taea e koe te whakaaro ngawari, ka taea te whakarite tikanga - tae noa ki nga whakatakotoranga pūtau - ahakoa te rahinga (tae atu ki te hono tahi me nga kaiwhakahaere arorau, me te ranei). He nui te waahi mo te whakaaro.

• Hurihia nga tauira ki nga uara (6 ara)
• He aha nga tonotono, me pehea te whakamahi, kei hea te whakauru i te waehere Visual Basic
• Ko nga korero whai hua kei te pae mana o Microsoft Excel