tirotiro
He kaitirotiro nui koe, engari he nui ake nga teepu e mahi tahi ana koe. A, ka titiro ki runga i te mata ki te rapu i nga korero e tika ana, he waahi tonu ki te "paheke" o kanohi ki te rarangi e whai ake nei ka titiro ki te huarahi he. Kei te mohio ahau ki nga tangata, mo enei wa, ka mau tonu he rangatira rakau kia tata ki a ratou hei whakapiri atu ki te raina i runga i te mata. Hangarau o te heke mai!
A, ki te miramirahia te rarangi o naianei me te tīwae ina nuku te pūtau hohe puta noa i te rau? He momo whiriwhiringa ruruku penei:
He pai ake i te rangatira, tika?
He maha nga huarahi rereke rereke hei whakatinana i tenei. Kei ia tikanga nga pai me nga huakore. Kia ata titiro tatou ki a raatau.
Tikanga 1. Marama. Tonotono e miramira ana i te haupae me te tīwae o nāianei
Ko te huarahi tino marama ki te whakaoti rapanga "i runga i te rae" - me tonotono hei whai i te huringa o te kowhiringa ki te rau ka kowhiri i te rarangi katoa me te pou mo te pūtau o naianei. He mea pai ano kia taea te whakahoe me te whakakore i tenei mahi mena e tika ana, kia kore ai taua kowhiringa-whakawhitinga e aukati i a tatou ki te uru atu, hei tauira, nga tauira, engari ka mahi noa ina titiro tatou ki te rarangi rapu i nga mea e tika ana. nga korero. Ka kawea mai e tatou ki nga tonotono e toru (tīpakohia, ka taea, ka monohia) ka tika kia taapirihia ki te kōwae rau.
Whakatuwheratia he rau me tetahi ripanga e hiahia ana koe ki te tiki i taua momo whiriwhiringa. Pāwhiri-matau ki te ripa rau ka kowhiri i te tono mai i te tahua horopaki Kuputuhi puna (Waehere Puna).Me tuwhera te matapihi Kaiwhakatika Visual Basic. Tāruatia tēnei kupu o ēnei tonotono e toru ki roto:
Dim Coord_Selection As Boolean 'Taurangi ao mo te kowhiri i runga/whakaweto Sub Selection_On() 'Totono kei runga i te kowhiringa Coord_Selection = Whakamutunga Pono Sub Selection_Off() 'Totoo atu i te whiriwhiri Coord_Selection = Whakamutunga Hare' Tikanga matua e mahi ana i te kowhiringa Pukamahi Raro_SelectionChange Hei(ByVal Target Awhe) Ataahua Te Awhe Mahi Hei Awhe Mena Target.Cells.Count > 1 Ka Putaatu i te Sub 'ki te nui ake i te 1 nga pūtau ka kowhiria, puta Ki te Coord_Selection = Heke Katahi ka Puta i te Waahanga 'mehemea kua weto te kowhiringa, puta atu i te Application.ScreenUpdating = Tautuhi Heke Awhe Mahi = Awhe (" A6:N300") 'te wahitau o te awhe mahi e kitea ai te whiringa
Hurihia te wahitau o te awhe mahi ki a koe ake - kei roto i tenei awhe ka mahi to maatau whiriwhiri. Kātahi ka kati te Kaiwhakatika Visual Basic ka hoki ki Excel.
Patohia te pokatata papapātuhi ALT + F8ki te whakatuwhera i te matapihi me te rarangi o nga tonotono e waatea ana. Tonotono Kōwhiri_Ka, ka whakaaro pea koe, kei roto ko te whiriwhiringa ruruku i te rau onāianei, me te tonotono Kōwhiri_Weto – whakawetohia. I te matapihi ano, ma te paatene i te paatene tawhā (Kōwhiringa) Ka taea e koe te tautapa i nga pokatata papapātuhi ki enei tonotono kia ngawari te whakarewatanga.
Nga painga o tenei tikanga:
- te ngawari o te whakatinanatanga
- kowhiringa - he kino te mahi, kaore e whakarereke i te ihirangi me te whakahōputu o nga pūtau rau ahakoa he aha, ka noho tonu nga mea katoa.
Nga kino o tenei tikanga:
- karekau e mahi tika te kowhiringa mena he hanumi nga pūtau kei runga i te rau – ko nga rarangi me nga pou katoa kei roto i te uniana ka tohua i te wa kotahi
- ki te pehi pohehe koe i te paatene Muku, katahi ka whakawāteahia ehara i te pūtau hohe anake, engari ko te wāhi kua tohua katoa, arā, te muku raraunga mai i te rarangi katoa me te tīwae.
Tikanga 2. Taketake. Pūtau + Taumahi Whakahōputu Tikanga
Ko tenei tikanga, ahakoa he ruarua nga ngoikoretanga, he ahua tino ataahua ki ahau. Hei whakatinana i tetahi mea ma te whakamahi noa i nga taputapu Excel i hangaia, he iti noa te whakauru ki te kaupapa i roto i te VBA he aerobatics 😉
Ko te tikanga i ahu mai i te whakamahi i te mahi CELL, he maha nga korero rereke i runga i tetahi pūtau - te teitei, te whanui, te rarangi rarangi-tiwae, te whakatakotoranga nama, aha atu. E rua nga tohenga o tenei mahi:
- he kupu waehere mo te tawhā, penei i te "tīwae" me te "rarangi"
- te wāhitau o te pūtau e hiahia ana matou ki te whakatau i te uara o tenei tawhā
Ko te mahi tinihanga ko te tohenga tuarua he mea whiriwhiri. Ki te kore e tauwhāitihia, ka tangohia te pūtau hohe o nāianei.
Ko te waahanga tuarua o tenei tikanga ko te whakahōputu herenga. Ma tenei ahuatanga Excel tino whaihua ka taea e koe te whakahōputu aunoa i nga pūtau mena ka tutuki nga tikanga kua tohua. Ki te whakakotahi tatou i enei whakaaro e rua ki te kotahi, ka whiwhi tatou i te algorithm e whai ake nei mo te whakatinana i ta maatau whiriwhiringa ma te whakahōputu herenga:
- Ka tohua ta maatau ripanga, ara, ko nga pūtau hei whakaatu i te kowhiringa ruruku a muri ake nei.
- I roto i te Excel 2003 me te pakeke ake, whakatuwheratia te tahua Hōputu – Whakahōputu Herenga – Tātai (Hōputu — Whakahōputu Herenga — Tātai). I roto i te Excel 2007 me te mea hou ake - pawhiria te ripa Kāinga (Kaainga)pātene Whakahōputu Herenga – Waihanga Ture (Whakahōputu Herenga — Waihanga Ture) ka whiriwhiri i te momo ture Whakamahia he tātai hei whakatau ko ēhea ngā pūtau hei whakahōputu (Whakamahia te tātai)
- Tāuruhia te tātai mō tā mātou whiriwhiringa ruruku:
=OR(CELL(“rarangi”)=ROW(A2),CELL(“tīwae”)=TAHI(A2))
=OR(CELL(«rarangi»)=ROW(A1),CELL(«tīwae»)=TAHI(A1))
Ka taki tēnei tātai ki te kite mēnā he ōrite te tau tīwae o ia pūtau i te ripanga ki te tau tīwae o te pūtau onāianei. Waihoki me nga pou. No reira, ko nga pūtau anake he tau tīwae, he tau haupae rānei e ōrite ana ki te pūtau onāianei ka whakakīia. A koinei te tīpakonga ruruku-whakawhiti e hiahia ana matou ki te whakatutuki.
- pēhi anga (Hōputu) ka tautuhi i te tae whakakī.
Kua rite nga mea katoa, engari kotahi ano te ahua. Ko te meka kaore a Excel e whakaaro ki te whakarereketanga o te kowhiringa hei whakarereke i nga raraunga i runga i te rau. Na, ko te mutunga, karekau e timata te tatau ano o nga tauira me te tae ano o te whakahōputu herenga ina huri noa te waahi o te pūtau hohe. Nō reira, me tāpiri he tonotono māmā ki te kōwae rau hei mahi i tēnei. Pāwhiri-matau ki te ripa rau ka kowhiri i te tono mai i te tahua horopaki Kuputuhi puna (Waehere Puna).Me tuwhera te matapihi Kaiwhakatika Visual Basic. Tāruahia tēnei kupu o tēnei tonotono māmā ki roto:
Pepamahi Raro Tumataiti_Tīpako Huri(Tauinga Nau hei Awhe) ActiveCell.Tatau Whakamutunga Sub
Inaianei, ka huri te kowhiringa, ka whakarewahia te tikanga o te tatau ano i te tauira me te mahi HUAHI i roto i te whakahōputu herenga me te waipuke te haupae me te tīwae o nāianei.
Nga painga o tenei tikanga:
- Ko te whakahōputu herenga e kore e pakaru te whakahōputu ripanga ritenga
- He tika te mahi o tenei kowhiringa me nga pūtau hanumi.
- Karekau he morearea ki te muku i te rarangi katoa me te pou o nga raraunga i runga i te pawhiri ohorere Mukua.
- He iti noa te whakamahi tonotono
Nga kino o tenei tikanga:
- Ko te tauira mo te whakahōputu herenga me whakauru ā-ringa.
- Karekau he huarahi tere ki te whakaahei/whakakore i taua whakahōputu - ka taea tonutia kia mukua ra ano te ture.
Tikanga 3. Tino pai. Whakahōputu Herenga + Tonotono
Te tikanga koura. Ka whakamahia e matou te tikanga mo te whai i te kowhiringa i runga i te rau ma te whakamahi i nga tonotono mai i te tikanga-1 me te taapiri i te miramira haumaru ma te whakamahi i te whakahōputu herenga mai i te tikanga-2.
Whakatuwheratia he rau me tetahi ripanga e hiahia ana koe ki te tiki i taua momo whiriwhiringa. Pāwhiri-matau ki te ripa rau ka kowhiri i te tono mai i te tahua horopaki Kuputuhi puna (Waehere Puna).Me tuwhera te matapihi Kaiwhakatika Visual Basic. Tāruatia tēnei kupu o ēnei tonotono e toru ki roto:
Maamaa Coord_Selection Hei Tipakoiti-a-roto Boolean_On() Coord_Selection = Whakamutunga Pono Wae-Wai Whiriwhiringa_Kato() Coord_Selection = Whakamutunga Here Tumataiti Waemahi_SelectionChange(A-Val Target Hei Awhe) Awhe Mahi Ataahua Hei Awhe, Awhe Whakawhiti Hei Awhe Awhe Mahi:N7 'Aдрес рабочего диапазона с таблицей If Target.Count > 300 Na ka Puta I te Sub If Coord_Selection = False Na WorkRange.FormatConditions.Delete Putaatu Whakamutunga Whakamutunga Ki te Application.ScreenUpdating = Heke Ki te kore e Whakawhiti (Target Tautuhi) Kore he Whakawhitinga(Target) Awhe Mahi, Uniana(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Mukua CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 1 Target.FormatConditions .Muku Whakamutunga Ki te Whakamutunga Sub
Kaua e wareware ki te huri i te wahitau awhe mahi ki to wahitau tepu. Katia te Kaiwhakatika Visual Basic ka hoki ki Excel. Hei whakamahi i nga tonotono taapiri, pehia te pokatata papapātuhi ALT + F8 ka haere i runga i te huarahi ano ki te tikanga 1.
Tikanga 4. Ataahua. WhaiCellPointer tāpiri-ake
Ko te MVP Excel a Jan Karel Pieterse mai i te Netherlands ka hoatu he taapiri kore utu ki tana paetukutuku WhaiCellPointer(36Kb), e whakaoti ana i taua rapanga ma te tuhi i nga rarangi pere whakairoiro ma te whakamahi i nga tonotono hei tohu i te rarangi o naianei me te pou:
He otinga pai. Ehara i te kore he raru i nga waahi, engari he pai te whakamatau. Tikiake i te pūranga, wetewetehia ki te kōpae me te whakauru i te taapiri:
- i roto i te Excel 2003 me te pakeke ake – ma te tahua Ratonga – Tāpiri-ake – Tirohanga (Utauta — Tāpiri-Mai — Tirotiro)
- i roto i te Excel 2007 me muri mai, puta noa Kōnae - Kōwhiringa - Tāpiri-ake - Haere - Tirotiro (Kōnae — Kōwhiringa Excel — Tāpiri-Mai — Haere ki — Tirotiro)
- He aha nga tonotono, kei hea te whakauru i te waehere tonotono ki Visual Basic