Ipoidojuko Aṣayan

O ni atẹle nla, ṣugbọn awọn tabili ti o ṣiṣẹ pẹlu paapaa tobi. Ati pe, wiwo iboju ni wiwa alaye pataki, aye nigbagbogbo wa lati “yọ” oju rẹ si ila ti o tẹle ati wo ni itọsọna ti ko tọ. Mo paapaa mọ awọn eniyan ti, fun iru awọn iṣẹlẹ, nigbagbogbo tọju alaṣẹ igi kan sunmọ wọn lati so pọ si laini lori atẹle naa. Awọn imọ-ẹrọ ti ojo iwaju! 

Ati ti o ba ti isiyi kana ati iwe ti wa ni afihan nigbati awọn ti nṣiṣe lọwọ cell gbe kọja awọn dì? Iru yiyan ipoidojuko bii eyi:

O dara ju alakoso lọ, otun?

Awọn ọna pupọ lo wa ti idiju iyatọ lati ṣe eyi. Ọna kọọkan ni awọn anfani ati alailanfani rẹ. Jẹ ki a wo wọn ni kikun.

Ọna 1. O han ni. Makiro ti o ṣe afihan ila lọwọlọwọ ati ọwọn

Ọna ti o han julọ lati yanju iṣoro wa “lori iwaju” - a nilo macro kan ti yoo tọpa iyipada ninu yiyan lori dì ati yan gbogbo ila ati iwe fun sẹẹli lọwọlọwọ. O tun jẹ iwunilori lati ni anfani lati mu ṣiṣẹ ati mu iṣẹ yii ṣiṣẹ ti o ba jẹ dandan, nitorinaa iru yiyan iru-agbelebu ko ni idiwọ fun wa lati titẹ sii, fun apẹẹrẹ, awọn agbekalẹ, ṣugbọn ṣiṣẹ nikan nigbati a ba wo atokọ naa ni wiwa ti o ṣe pataki. alaye. Eyi mu wa wá si awọn macros mẹta (yan, mu ṣiṣẹ, ati mu ṣiṣẹ) ti yoo nilo lati ṣafikun si module dì.

Ṣii iwe kan pẹlu tabili ninu eyiti o fẹ lati gba iru yiyan ipoidojuko. Tẹ-ọtun lori taabu iwe ki o yan aṣẹ lati inu akojọ aṣayan ọrọ Ọrọ orisun (koodu Orisun).Ferese Olootu Ipilẹ Visual yẹ ki o ṣii. Daakọ ọrọ ti awọn macros mẹta wọnyi sinu rẹ:

Dim Coord_Selection Bi Boolean 'Oniyipada agbaye fun yiyan tan/paarẹ Sub Selection_On() 'Macro on selection Coord_Selection = True End Sub Selection_Off() 'Macro off selection Coord_Selection = Ipari Ipari eke 'Ilana akọkọ ti o ṣe aṣayan Ikọkọ Sub Worksheet_SelectionChange(ByVal) Range) Dim WorkRange Bi Range If Target.Cells.Count > 1 Lẹhinna Jade Sub 'ti o ba yan diẹ sii ju sẹẹli 1, jade kuro Ti Coord_Selection = Eke Lẹhinna Jade Sub 'ti aṣayan ba wa ni pipa, jade Application.ScreenUpdating = Agbekale Ise Ise = Range ("A6:N300")"adirẹsi ti ibiti o ti ṣiṣẹ laarin eyi ti aṣayan ti han

Yi adirẹsi ti ibiti o ṣiṣẹ si tirẹ - o wa laarin iwọn yii pe aṣayan wa yoo ṣiṣẹ. Lẹhinna pa Olootu Ipilẹ wiwo ati pada si Excel.

Tẹ ọna abuja keyboard ALT + F8lati ṣii window kan pẹlu atokọ ti awọn macros ti o wa. Makiro Yiyan_Lori, bi o ṣe le gboju, pẹlu yiyan ipoidojuko lori iwe lọwọlọwọ, ati Makiro Yiyan_Paa – wa ni pipa. Ni window kanna, tẹ bọtini naa sile (Aṣayan) O le fi awọn ọna abuja keyboard si awọn macros wọnyi fun ifilọlẹ irọrun.

Awọn anfani ti ọna yii:

  • ojulumo irorun imuse
  • yiyan - iṣẹ naa ko ni laiseniyan ati pe ko yi akoonu pada tabi kika awọn sẹẹli dì ni ọna eyikeyi, ohun gbogbo wa bi o ti jẹ

Awọn alailanfani ti ọna yii:

  • iru yiyan ko ṣiṣẹ ni deede ti awọn sẹẹli ti a dapọ ba wa lori dì - gbogbo awọn ori ila ati awọn ọwọn ti o wa ninu iṣọkan ni a yan ni ẹẹkan.
  • Ti o ba tẹ lairotẹlẹ bọtini Parẹ, lẹhinna kii ṣe sẹẹli ti nṣiṣe lọwọ nikan ni yoo parẹ, ṣugbọn gbogbo agbegbe ti o yan, ie paarẹ data lati gbogbo ila ati iwe.

Ọna 2. Atilẹba. CELL + Išẹ Kika ni àídájú

Yi ọna, biotilejepe o ni o ni kan tọkọtaya ti drawbacks, dabi si mi gan yangan. Lati ṣe ohunkan ni lilo awọn irinṣẹ Excel ti a ṣe sinu nikan, gbigba diẹ sinu siseto ni VBA jẹ aerobatics 😉

Ọna naa da lori lilo iṣẹ CELL, eyiti o le fun ọpọlọpọ alaye oriṣiriṣi lori sẹẹli ti a fun - giga, iwọn, nọmba ila-ila, ọna kika nọmba, ati bẹbẹ lọ Iṣẹ yii ni awọn ariyanjiyan meji:

  • ọrọ koodu kan fun paramita, gẹgẹbi “iwe” tabi “ila”
  • adirẹsi ti sẹẹli fun eyiti a fẹ lati pinnu iye ti paramita yii

Ẹtan ni pe ariyanjiyan keji jẹ iyan. Ti ko ba jẹ pato, lẹhinna a mu sẹẹli ti nṣiṣe lọwọ lọwọlọwọ.

Ẹya keji ti ọna yii jẹ ọna kika ipo. Ẹya Excel ti o wulo pupọ fun ọ laaye lati ṣe ọna kika awọn sẹẹli laifọwọyi ti wọn ba pade awọn ipo pàtó kan. Ti a ba darapọ awọn imọran meji wọnyi sinu ọkan, a gba algorithm atẹle fun imuse yiyan ipoidojuko wa nipasẹ ọna kika ipo:

  1. A yan tabili wa, ie awọn sẹẹli ninu eyiti yiyan ipoidojuko yẹ ki o han ni ọjọ iwaju.
  2. Ni Excel 2003 ati agbalagba, ṣii akojọ aṣayan Kika – Ni àídájú kika – Agbekalẹ (kika - Agbekale kika - Agbekalẹ). Ni Excel 2007 ati tuntun - tẹ lori taabu naa Home (Ile)bọtìnnì Ni àídájú kika – Ṣẹda Ofin (Ipilẹṣẹ ni majemu - Ṣẹda Ofin) ki o si yan iru ofin Lo agbekalẹ kan lati pinnu iru awọn sẹẹli lati ṣe ọna kika (Lo agbekalẹ)
  3. Tẹ agbekalẹ fun yiyan ipoidojuko wa:

    =OR(CELL("kana")=ROW(A2),CELL("iwe")=COLUMN(A2))

    =OR(CELL(«kana»)=ROW(A1),CELL(«iwe»)=COLUMN(A1))

    Ilana agbekalẹ yii n ṣayẹwo boya nọmba ọwọn ti sẹẹli kọọkan ninu tabili jẹ kanna bi nọmba ọwọn ti sẹẹli lọwọlọwọ. Bakanna pẹlu awọn ọwọn. Nitorinaa, awọn sẹẹli wọnni ti o ni boya nọmba ọwọn tabi nọmba ila kan ti o baamu sẹẹli lọwọlọwọ yoo kun ninu. Ati pe eyi ni yiyan ipoidojuko ti o ni apẹrẹ agbelebu ti a fẹ lati ṣaṣeyọri.

  4. Tẹ bọtini naa ilana (Ọna kika) ati ṣeto awọ kikun.

Ohun gbogbo ti fẹrẹ ṣetan, ṣugbọn nuance kan wa. Otitọ ni pe Excel ko ṣe akiyesi iyipada ninu yiyan bi iyipada ninu data lori dì. Ati pe, bi abajade, ko ṣe okunfa iṣiro ti awọn agbekalẹ ati iyipada ti ọna kika ipo nikan nigbati ipo ti sẹẹli ti nṣiṣe lọwọ yipada. Nitorinaa, jẹ ki a ṣafikun Makiro ti o rọrun si module dì ti yoo ṣe eyi. Tẹ-ọtun lori taabu iwe ki o yan aṣẹ lati inu akojọ aṣayan ọrọ Ọrọ orisun (koodu Orisun).Ferese Olootu Ipilẹ Visual yẹ ki o ṣii. Daakọ ọrọ ti Makiro ti o rọrun yii sinu rẹ:

Iyipada Iṣẹ-Aṣayan Aladani (ByVal Target Bi Range) ActiveCell.Ṣiṣiro Ipin Ipari

Bayi, nigbati yiyan ba yipada, ilana ti atunlo agbekalẹ pẹlu iṣẹ naa yoo ṣe ifilọlẹ KELE ni àídájú kika ati ikun omi kana ati iwe.

Awọn anfani ti ọna yii:

  • Ni àídájú kika ko ba aṣa tabili kika
  • Aṣayan yiyan ṣiṣẹ ni deede pẹlu awọn sẹẹli ti a dapọ.
  • Ko si ewu ti piparẹ gbogbo ila kan ati iwe ti data lori titẹ lairotẹlẹ pa.
  • Makiro ti wa ni iwonba lo

Awọn alailanfani ti ọna yii:

  • Awọn agbekalẹ fun ọna kika ipo gbọdọ wa ni titẹ pẹlu ọwọ.
  • Ko si ọna ti o yara lati mu ṣiṣẹ / mu iru ọna kika ṣiṣẹ - o nigbagbogbo ṣiṣẹ titi ti ofin yoo fi paarẹ.

Ọna 3. Ti o dara julọ. Ni àídájú kika + Macros

Golden tumosi. A lo ẹrọ naa fun titele yiyan lori iwe ni lilo awọn macros lati ọna-1 ati ṣafikun fifi aami si ailewu ni lilo ọna kika ipo lati ọna-2.

Ṣii iwe kan pẹlu tabili ninu eyiti o fẹ lati gba iru yiyan ipoidojuko. Tẹ-ọtun lori taabu iwe ki o yan aṣẹ lati inu akojọ aṣayan ọrọ Ọrọ orisun (koodu Orisun).Ferese Olootu Ipilẹ Visual yẹ ki o ṣii. Daakọ ọrọ ti awọn macros mẹta wọnyi sinu rẹ:

Dim Coord_Selection Bi Boolean Sub Selection_Lori() Coord_Selection = True Ipari Sub Sub Selection_Off() Coord_Selection = Eke Ipari Sub Ikọkọ Iṣẹ-iṣẹ_SelectionChange(ByVal Target Bi Range) Dim WorkRange Bi Range, CrossRange Bi Range Set WorkRange (7) = N 'адрес рабочего диапазона с таблицей If Target.Count > 300 Nigbana ni Jade Sub If Coord_Selection = Eke Nigbana ni WorkRange.FormatConditions.Delete Exit Sub End If Application.ScreenUpdating = Eke Ti Ko ba ṣe Intersect(RangeRange) Ko si Ise Cross(RangeRange) WorkRange, Union (Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Fikun Iru: = xlExpression, Formula1: = "= 1" CrossRange.FormatConditions (1) .Interior.ColorIndex = 1 Awọn afojusun.FormatConditions. .Pa Opin Ti Ipari Sub

Maṣe gbagbe lati yi adirẹsi ibiti o ṣiṣẹ pada si adirẹsi tabili rẹ. Pa Olootu Ipilẹ wiwo ati pada si Excel. Lati lo awọn macros ti a ṣafikun, tẹ ọna abuja keyboard ALT + F8  ati tẹsiwaju ni ọna kanna bi ọna 1. 

Ọna 4. Lẹwa. TẹleCellPointer afikun

Tayo MVP Jan Karel Pieterse lati Fiorino funni ni afikun afikun ọfẹ lori oju opo wẹẹbu rẹ TẹleCellPointer(36Kb), eyiti o yanju iṣoro kanna nipa yiya awọn laini itọka ayaworan nipa lilo awọn Makiro lati ṣe afihan ila ati ọwọn lọwọlọwọ:

 

Ojutu to wuyi. Kii ṣe laisi awọn glitches ni awọn aaye, ṣugbọn dajudaju tọsi igbiyanju kan. Ṣe igbasilẹ ile ifi nkan pamosi, ṣii si disk ki o fi afikun sii:

  • ni tayo 2003 ati agbalagba - nipasẹ awọn akojọ Iṣẹ – Awọn afikun – Akopọ (Awọn irin-iṣẹ-Fikun-Ins-Ṣawari)
  • ni Excel 2007 ati nigbamii, nipasẹ Faili – Awọn aṣayan – Awọn afikun – Lọ – Lọ kiri ayelujara (Faili - Awọn aṣayan Tayo - Fikun-Ins - Lọ si - Ṣawakiri)

  • Kini macros, nibo ni lati fi koodu Makiro sii ni Ipilẹ wiwo

 

Fi a Reply