Uteuzi wa Kuratibu

Una kifuatiliaji kikubwa, lakini meza unazofanya kazi nazo ni kubwa zaidi. Na, ukiangalia juu ya skrini katika kutafuta habari muhimu, daima kuna nafasi ya "kuingiza" macho yako kwenye mstari unaofuata na kuangalia kwa mwelekeo usiofaa. Ninajua hata watu ambao, kwa hafla kama hizo, kila wakati huweka mtawala wa mbao karibu nao ili kuiunganisha kwenye mstari kwenye mfuatiliaji. Teknolojia za siku zijazo! 

Na ikiwa safu mlalo na safu wima ya sasa vitaangaziwa kisanduku amilifu kinaposogea kwenye laha? Aina ya uteuzi wa kuratibu kama hii:

Bora kuliko mtawala, sivyo?

Kuna njia kadhaa za ugumu tofauti wa kutekeleza hii. Kila njia ina faida na hasara zake. Hebu tuziangalie kwa undani.

Njia ya 1. Dhahiri. Macro inayoangazia safu mlalo na safu wima ya sasa

Njia ya wazi zaidi ya kutatua tatizo letu "kwenye paji la uso" - tunahitaji macro ambayo itafuatilia mabadiliko katika uteuzi kwenye karatasi na kuchagua safu nzima na safu kwa kiini cha sasa. Inapendekezwa pia kuwa na uwezo wa kuwezesha na kuzima kazi hii ikiwa ni lazima, ili uteuzi wa umbo la msalaba usituzuie kuingia, kwa mfano, fomula, lakini inafanya kazi tu tunapoangalia orodha katika kutafuta muhimu. habari. Hii inatuleta kwenye makro tatu (chagua, wezesha, na uzime) ambazo zitahitaji kuongezwa kwenye moduli ya laha.

Fungua karatasi iliyo na jedwali ambalo unataka kupata uteuzi kama huo wa kuratibu. Bonyeza kulia kwenye kichupo cha karatasi na uchague amri kutoka kwa menyu ya muktadha Maandishi ya chanzo (Msimbo wa Chanzo).Dirisha la Kihariri cha Visual Basic linapaswa kufunguliwa. Nakili maandishi haya ya macros hizi tatu ndani yake:

Dim Coord_Selection Kama Boolean 'Tofauti ya kimataifa kwa ajili ya uteuzi on/off Sub Selection_On() 'Macro on selection Coord_Selection = True End Sub Selection_Off() 'Macro off selection Coord_Selection = False End Sub 'Mchakato mkuu unaofanya uteuzi Private Sub Worksheet_SelectionChange(ByVal Target) Safu) Punguza Masafa ya Kazi Kama Masafa Ikiwa Target.Cells.Hesabu > 1 Kisha Toka Ndogo 'ikiwa zaidi ya kisanduku 1 kimechaguliwa, toka Kama Coord_Selection = Si Kweli Kisha Toka Ndogo 'ikiwa uteuzi umezimwa, toka Application.ScreenUpdating = False Set WorkRange = Masafa (" A6:N300") 'anwani ya safu ya kufanya kazi ambayo uteuzi unaonekana

Badilisha anwani ya safu ya kufanya kazi iwe yako mwenyewe - ni ndani ya safu hii ambapo uteuzi wetu utafanya kazi. Kisha funga Kihariri cha Visual Basic na urudi kwa Excel.

Bonyeza njia ya mkato ya kibodi ALT + F8kufungua dirisha na orodha ya macros inapatikana. Jumla Uteuzi_Umewashwa, kama unavyoweza kukisia, inajumuisha uteuzi wa kuratibu kwenye laha ya sasa, na jumla Uteuzi_Umezimwa - huizima. Katika dirisha sawa, kwa kubofya kifungo vigezo (Chaguzi) Unaweza kukabidhi njia za mkato za kibodi kwa makro hizi kwa uzinduzi rahisi.

Faida za njia hii:

  • urahisi wa utekelezaji
  • uteuzi - operesheni haina madhara na haibadilishi yaliyomo au umbizo la seli za karatasi kwa njia yoyote, kila kitu kinabaki kama kilivyo.

Hasara za njia hii:

  • uteuzi kama huo haufanyi kazi ipasavyo ikiwa kuna seli zilizounganishwa kwenye laha - safu na safu wima zote zilizojumuishwa kwenye umoja huchaguliwa mara moja.
  • ikiwa unabonyeza kitufe cha Futa kwa bahati mbaya, basi sio tu seli inayotumika itafutwa, lakini eneo lote lililochaguliwa, yaani, futa data kutoka kwa safu na safu nzima.

Njia ya 2. Asili. KIINI + Kazi ya Uumbizaji wa Masharti

Njia hii, ingawa ina shida kadhaa, inaonekana kwangu ya kifahari sana. Ili kutekeleza kitu kwa kutumia zana za Excel zilizojengewa ndani tu, kuingia kidogo katika upangaji programu katika VBA ni aerobatics 😉

Mbinu hii inategemea kutumia chaguo za kukokotoa za CELL, ambayo inaweza kutoa taarifa nyingi tofauti kwenye kisanduku fulani - urefu, upana, nambari ya safu mlalo, umbizo la nambari, n.k. Chaguo hili la kukokotoa lina hoja mbili:

  • neno la msimbo kwa kigezo, kama vile "safu wima" au "safu"
  • anwani ya seli ambayo tunataka kuamua thamani ya parameta hii

Ujanja ni kwamba hoja ya pili ni ya hiari. Ikiwa haijainishwa, basi kiini cha sasa cha kazi kinachukuliwa.

Sehemu ya pili ya njia hii ni umbizo la masharti. Kipengele hiki muhimu sana cha Excel hukuruhusu kuunda seli kiotomatiki ikiwa zinatimiza masharti maalum. Tukichanganya mawazo haya mawili kuwa moja, tunapata algoriti ifuatayo ya kutekeleza uteuzi wetu wa kuratibu kupitia umbizo la masharti:

  1. Tunachagua meza yetu, yaani seli hizo ambazo uteuzi wa kuratibu unapaswa kuonyeshwa katika siku zijazo.
  2. Katika Excel 2003 na zaidi, fungua menyu Umbizo – Uumbizaji wa Masharti – Mfumo (Muundo - Uumbizaji wa Masharti - Mfumo). Katika Excel 2007 na mpya zaidi - bonyeza kwenye kichupo Nyumbani (Nyumbani)kifungo Uumbizaji wa Masharti - Unda Sheria (Uumbizaji wa Masharti - Unda Kanuni) na uchague aina ya sheria Tumia fomula ili kubainisha ni visanduku vipi vya umbizo (Tumia fomula)
  3. Ingiza fomula ya uteuzi wetu wa kuratibu:

    =AU(KIINI(“safu”)=ROW(A2), KIINI(“safu”)=SAFU(A2))

    =AU(KIINI(«safu»)=ROW(A1), KIINI(«safu»)=SAFU(A1))

    Fomula hii hukagua ili kuona ikiwa nambari ya safu wima ya kila seli kwenye jedwali ni sawa na nambari ya safu wima ya kisanduku cha sasa. Vivyo hivyo na safu. Kwa hivyo, ni seli zile tu ambazo zina nambari ya safu wima au nambari ya safu mlalo inayolingana na kisanduku cha sasa ndizo zitakazojazwa. Na huu ndio uteuzi wa kuratibu wenye umbo la mtambuka ambao tunataka kufikia.

  4. vyombo vya habari Mfumo (Muundo) na kuweka rangi ya kujaza.

Kila kitu ni karibu tayari, lakini kuna nuance moja. Ukweli ni kwamba Excel haizingatii mabadiliko katika uteuzi kama mabadiliko katika data kwenye laha. Na, kwa sababu hiyo, haisababishi ukokotoaji upya wa fomula na kuweka rangi upya kwa umbizo la masharti tu wakati nafasi ya seli hai inabadilika. Kwa hivyo, wacha tuongeze jumla rahisi kwenye moduli ya karatasi ambayo itafanya hivi. Bonyeza kulia kwenye kichupo cha karatasi na uchague amri kutoka kwa menyu ya muktadha Maandishi ya chanzo (Msimbo wa Chanzo).Dirisha la Kihariri cha Visual Basic linapaswa kufunguliwa. Nakili maandishi haya ya macro hii rahisi ndani yake:

Uteuzi wa Laha Ndogo ya Kibinafsi(ByVal Target Kama Masafa) ActiveCell.Hesabu Mwisho Ndogo

Sasa, uteuzi unapobadilika, mchakato wa kuhesabu upya fomula na kazi utazinduliwa CLE katika umbizo la masharti na kufurika safu mlalo na safu wima ya sasa.

Faida za njia hii:

  • Uumbizaji wa masharti hauvunji muundo maalum wa jedwali
  • Chaguo hili la uteuzi hufanya kazi kwa usahihi na seli zilizounganishwa.
  • Hakuna hatari ya kufuta safu mlalo na safu wima nzima ya data kwenye kubofya kwa bahati mbaya kufuta.
  • Macros hutumiwa kidogo

Hasara za njia hii:

  • Fomula ya umbizo la masharti lazima iingizwe wewe mwenyewe.
  • Hakuna njia ya haraka ya kuwezesha / kulemaza umbizo kama hilo - huwashwa kila wakati hadi sheria ifutwe.

Njia ya 3. Mojawapo. Uumbizaji wa Masharti + Macros

Maana ya dhahabu. Tunatumia utaratibu wa kufuatilia uteuzi kwenye karatasi kwa kutumia macros kutoka kwa njia-1 na kuongeza mwangaza salama kwake kwa kutumia umbizo la masharti kutoka kwa mbinu-2.

Fungua karatasi iliyo na jedwali ambalo unataka kupata uteuzi kama huo wa kuratibu. Bonyeza kulia kwenye kichupo cha karatasi na uchague amri kutoka kwa menyu ya muktadha Maandishi ya chanzo (Msimbo wa Chanzo).Dirisha la Kihariri cha Visual Basic linapaswa kufunguliwa. Nakili maandishi haya ya macros hizi tatu ndani yake:

Dim Coord_Selection Kama Boolean Sub Selection_On() Coord_Selection = True End Sub Selection_Off() Coord_Selection = False End Sub Laha-kazi Ndogo ya Kibinafsi_SelectionChange(ByVal Target Kama Masafa) Punguza Masafa ya Kazi Kama Masafa, Msururu Mfululizo Kama Masafa Yaliyowekwa7Msururu wa Kazi"300 = N. 'адрес рабочего диапазона с таблицей Kama Target.Count > 1 Kisha Toka Ndogo Ikiwa Coord_Selection = Si Kweli Kisha WorkRange.FormatConditions.Futa Toka Mwisho Ikiwa Application.ScreenUpdating = False If not Intersect(Target, Nothing Is Intersect) Safu ya Kazi, Muungano(Safu-Mlango.Mstari mzima, Safu Lengwa.Nzima)) Safu ya Kazi.FormatConditions.Futa MsururuMsalaba.FormatConditions.Ongeza Aina:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 33 Target. .Futa Mwisho Ukimaliza Sub

Usisahau kubadilisha anwani ya masafa ya kufanya kazi kuwa anwani yako ya jedwali. Funga Kihariri cha Msingi cha Visual na urudi kwa Excel. Ili kutumia makro zilizoongezwa, bonyeza njia ya mkato ya kibodi ALT + F8  na endelea kwa njia sawa na njia 1. 

Njia 4. Nzuri. Fuata programu jalizi yaCellPointer

MVP wa Excel Jan Karel Pieterse kutoka Uholanzi anatoa programu jalizi bila malipo kwenye tovuti yake FuataCellPointer(Kb 36), ambayo hutatua tatizo sawa kwa kuchora mistari ya vishale vya picha kwa kutumia makro ili kuangazia safu mlalo na safu wima ya sasa:

 

Suluhisho nzuri. Si bila glitches katika maeneo, lakini dhahiri thamani ya kujaribu. Pakua kumbukumbu, ifungue kwenye diski na usakinishe programu-jalizi:

  • katika Excel 2003 na zaidi - kupitia menyu Huduma - Viongezi - Muhtasari (Zana - Viongezeo - Vinjari)
  • katika Excel 2007 na baadaye, kupitia Faili - Chaguzi - Viongezi - Nenda - Vinjari (Faili - Chaguzi za Excel - Viongezeo - Nenda kwa - Vinjari)

  • Macro ni nini, wapi kuingiza nambari ya jumla katika Visual Basic

 

Acha Reply