Awọn akoonu
Ẹnikan fẹran, ṣugbọn emi tikalararẹ nilo ọpa ipo nikan ni awọn ọran 2-3:
- lẹhin sisẹ, o ṣafihan nọmba awọn iye ti o ku lẹhin yiyan
- nigbati ibiti o ti yan, yoo ṣe afihan apao, apapọ, ati nọmba awọn sẹẹli ti a yan
- ninu ọran ti awọn faili ti o wuwo, o le rii ilọsiwaju ni ṣiṣe iṣiro awọn agbekalẹ ninu iwe naa.
Kii ṣe pupọ fun laini ti o gba fere gbogbo iwọn iboju naa ti o duro lori rẹ nigbagbogbo. Jẹ ká gbiyanju lati faagun yi iwonba akojọ ki o si fi kan diẹ diẹ wulo awọn ẹya ara ẹrọ si o 🙂
Awọn ipilẹ gbogbogbo fun iṣakoso ọpa ipo
Ṣiṣakoso ọpa ipo pẹlu Visual Basic jẹ irọrun pupọ. Lati fi ọrọ rẹ han ninu rẹ, o le lo macro ti o rọrun:
Sub MyStatus() Ohun elo.IpoBar = "Prивет!" Ipari Sub
Lẹhin ṣiṣe, a gba:
Lati mu ipo atilẹba ti ọpa ipo pada, iwọ yoo nilo kukuru kanna “egboogi-macro”:
Sub MyStatus_Off() Application.StatusBar = Ipin Ipari eke
Ninu ẹya ipilẹ, bi o ti le rii, ohun gbogbo rọrun pupọ. Bayi jẹ ki a gbiyanju lati ṣe idagbasoke imọran…
Adirẹsi ti ibiti a ti yan ninu ọpa ipo
Ni igun apa osi oke ti window Excel ni ọpa agbekalẹ, o le rii nigbagbogbo adirẹsi ti sẹẹli lọwọlọwọ. Ṣugbọn ti o ba yan gbogbo sakani kan, lẹhinna, laanu, a kii yoo rii adirẹsi yiyan nibẹ - sẹẹli kan ti nṣiṣe lọwọ kan ti han:
Lati yanju iṣoro yii, o le lo macro ti o rọrun ti yoo ṣe afihan adirẹsi ti agbegbe ti o yan ni ọpa ipo. Pẹlupẹlu, Makiro yii yẹ ki o ṣe ifilọlẹ laifọwọyi, pẹlu eyikeyi iyipada ninu yiyan lori eyikeyi dì - fun eyi a yoo gbe e si oluṣakoso iṣẹlẹ. Yiyan Yiyan iwe wa.
Ṣii Olootu Ipilẹ Visual nipa lilo bọtini ti orukọ kanna lori taabu developer (Olùgbéejáde) tabi awọn ọna abuja keyboard Osi Alt+F11. Wa iwe rẹ ni igun apa osi oke ti nronu Project ati ṣii module ninu rẹ nipasẹ titẹ lẹẹmeji Iwe yii (Iwe Iṣẹ yii):
Ninu ferese ti o ṣii, daakọ ati lẹẹmọ koodu macro wọnyi:
Ikọkọ Sub Workbook_SheetSelectionChange(ByVal Sh Bi Nkan, ByVal Àkọlé Bi Ibiti) Ohun elo.StatusBar = "Bыделено:" & Aṣayan.Adirẹsi(0, 0) Ipari Ipin
Bayi, nigbati eyikeyi ibiti o ti yan (pẹlu diẹ sii ju ọkan lọ!), adirẹsi rẹ yoo han ni ọpa ipo:
Lati ṣe idiwọ awọn adirẹsi ti awọn sakani pupọ ti a yan pẹlu Ctrl lati dapọ, o le ṣafikun ilọsiwaju kekere kan - lo iṣẹ Rọpo lati rọpo aami idẹsẹ kan pẹlu aaye kan:
Ikọkọ Sub Workbook_SheetSelectionChange(ByVal Sh Bi Nkan, ByVal Àkọlé Bi Ibiti) Ohun elo.StatusBar = "Выделено:" & Rọpo(Selection.Address(0, 0), ",",", ", ") Ipari Sub
Nọmba awọn sẹẹli ti a yan ninu ọpa ipo
Nigbati eyikeyi ibiti o ti yan, nọmba awọn sẹẹli ti ko ṣofo yoo han ni apa ọtun ti ọpa ipo nipasẹ aiyipada. Nigba miran o nilo lati mọ awọn nọmba ti soto. Iṣẹ-ṣiṣe yii tun le ṣe pẹlu macro ti o rọrun lati mu iṣẹlẹ iwe SelectionChange, bi ninu apẹẹrẹ ti tẹlẹ. Iwọ yoo nilo macro bii:
Ikọkọ Sub Workbook_SheetSelectionChange(ByVal Sh Bi Nkan, ByVal Target Bi Range) Dim CellCount Bi Variant, rng Bi Range Fun Kọọkan rng Ni Yiyan.Areas 'Iterate nipasẹ gbogbo awọn yiyan RowsCount = rng.Rows.Count 'nọmba ti rows ColumnsCount = sng. . Ka 'nọmba ti awọn ọwọn CellCount = CellCount + RowsCount * ColumnsCount 'kojọpọ nọmba awọn sẹẹli lapapọ Next' ifihan ninu ọpa ipo Application.StatusBar = "Ti a yan:" & CellCount & "awọn sẹẹli" Ipari Sub
Awọn losiwajulosehin Makiro nipasẹ gbogbo awọn agbegbe ti a yan Ctrl (ti o ba wa ju ọkan lọ), tọju nọmba awọn ori ila ati awọn ọwọn ni agbegbe kọọkan ni awọn oniyipada RowsCount ati ColumnsCount, ati pe o ṣajọpọ nọmba awọn sẹẹli ni oniyipada CellCount, eyiti o han lẹhinna han. ninu igi ipo. Ni iṣẹ yoo dabi eyi:
Nitoribẹẹ, o le darapọ eyi ati awọn macros iṣaaju lati ṣafihan mejeeji adirẹsi ti ibiti o yan ati nọmba awọn sẹẹli ni akoko kanna. Iwọ nikan nilo lati yi laini alaigbagbọ kan pada si:
Application.StatusBar = "Ti yan:" & Rọpo(Aṣayan.Adirẹsi (0, 0), ","," ", ") &" - lapapọ " & CellCount & "awọn sẹẹli"
Lẹhinna aworan naa yoo jẹ iyanu pupọ:
O dara, Mo ro pe o gba imọran naa. Daba ninu awọn asọye - kini ohun miiran yoo wulo lati ṣafihan ni ọpa ipo?
- Kini macros, bii wọn ṣe n ṣiṣẹ, bii o ṣe le lo ati ṣẹda wọn
- Aṣayan ipoidojuko ti o rọrun lori iwe Excel kan
- Bii o ṣe le ṣe awọn agbekalẹ eka diẹ sii wiwo