Hevitra ato Anatiny
Misy olona tia, fa izaho manokana dia mila bare status amin'ny tranga 2-3 ihany:
- aorian'ny fanivanana dia mampiseho ny isan'ny sanda tavela aorian'ny fifantenana
- rehefa voafantina ny faritra iray, dia mampiseho ny fitambarana, ny salan'isa ary ny isan'ny sela voafantina
- amin'ny tranganà rakitra mavesatra dia azonao jerena ny fandrosoana amin'ny fanisana ny formulas ao amin'ny boky.
Tsy dia be loatra ho an'ny tsipika iray izay maka saika ny sakan'ny efijery manontolo ary mihantona eo aminy foana. Andao hiezaka hanitatra ity lisitra maotina ity ary ampio endri-javatra mahasoa vitsivitsy amin'izany 🙂
Fitsipika ankapobeny amin'ny fitantanana ny bar sata
Tena mora ny fitantanana ny sata mifehy amin'ny Visual Basic. Mba hampisehoana ny lahatsoratrao ao dia afaka mampiasa macro tsotra ianao:
Sub MyStatus() Application.StatusBar = "Привет!" End Sub
Aorian'ny fampandehanana azy dia mahazo:
Mba hamerenana amin'ny laoniny ny toeran'ny toeran'ny sata dia mila "anti-macro" fohy mitovy ianao:
Sub MyStatus_Off() Application.StatusBar = False End Sub
Ao amin'ny dikan-teny fototra, araka ny hitanao, ny zava-drehetra dia tena tsotra. Andeha isika izao hiezaka hampivelatra ny hevitra…
Adiresy amin'ny faritra voafantina ao amin'ny bar sata
Ao amin'ny zoro ambony havia amin'ny varavarankely Excel ao amin'ny bara formula, dia afaka mahita ny adiresin'ny sela ankehitriny ianao. Fa raha misy faritra iray manontolo no voafantina, indrisy fa tsy ho hitantsika ao ny adiresin'ny fifantenana - ny sela iray mavitrika ihany no aseho:
Mba hamahana ity olana ity dia azonao atao ny mampiasa macro tsotra izay hampiseho ny adiresin'ny faritra voafantina ao amin'ny bar sata. Ankoatr'izay, ity macro ity dia tokony halefa ho azy, miaraka amin'ny fiovana rehetra amin'ny fisafidianana amin'ny takelaka rehetra - amin'izany dia hapetrakay ao amin'ny mpandrindra hetsika. SelectionChange ny bokintsika.
Sokafy ny Visual Basic Editor amin'ny fampiasana ny bokotra mitovy anarana eo amin'ny tabilao Developer (mpamorona) na hitsin-dàlana fitendry Havia Alt+F11. Tadiavo ny bokinao eo amin'ny zoro ambony havia amin'ny tontonana Project ary sokafy ny maody ao aminy amin'ny fanindriana indroa Ity boky ity (Ity Bokikely):
Ao amin'ny varavarankely misokatra, mandika sy mametaka ity kaody macro manaraka ity:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target as Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub
Ankehitriny, rehefa voafantina ny isan-karazany (anisan'izany ny mihoatra ny iray!), dia haseho ao amin'ny bar sata ny adiresiny:
Mba hisakanana ny adiresin'ny faritra maromaro voafantina miaraka amin'ny Ctrl tsy hitambatra dia azonao atao ny manampy fanatsarana kely - ampiasao ny fiasa Soloy hanoloana faingo miaraka amin'ny habaka:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target as Range) Application.StatusBar = "Выделено: " & Soloy(Selection.Address(0, 0), ",", ", ") End Sub
Isan'ny sela voafantina ao amin'ny sata mifehy
Rehefa voafantina ny isan-karazany, ny isan'ny sela voafantina tsy banga dia aseho eo amin'ny ilany havanana amin'ny sata mifehy. Indraindray dia mila mahafantatra ny isan'ny natokana. Ity asa ity dia azo tanterahana amin'ny macro tsotra ihany koa hikarakarana ny hetsika boky SelectionChange, toy ny tamin'ny ohatra teo aloha. Mila macro toy ny:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target as Range) Dim CellCount as Variant, rng As Range for each rng in Selection.Areas 'Avereno amin'ny alalan'ny safidy rehetra RowsCount = rng.Rows.Count' isan'ny andalana ColumnsCount = rng.Columns . Manisa 'ny isan'ny tsanganana CellCount = CellCount + RowsCount * ColumnsCount 'manangona ny fitambaran'ny isan'ny sela Manaraka' aseho ao amin'ny sata mifehy Application.StatusBar = "Nofantenana: " & CellCount & " sela" End Sub
Ity macro ity dia mamakivaky ireo faritra voafantina Ctrl rehetra (raha misy mihoatra ny iray), mitahiry ny isan'ny andalana sy tsanganana isaky ny faritra ao amin'ny fari-piadidiana RowsCount sy ColumnsCount, ary manangona ny isan'ny sela ao amin'ny fari-piadidiana CellCount, izay aseho avy eo. ao amin'ny bara status. Amin'ny asa dia ho toy izao:
Mazava ho azy, azonao atao ny manambatra an'io sy ny macro teo aloha mba hampisehoana ny adiresin'ny faritra voafantina sy ny isan'ny sela amin'ny fotoana iray ihany. Iray ihany no mila manova andalana penultimate ho:
Application.StatusBar = "Nofantenana: " & Soloy(Selection.Address(0, 0), ",", ", ") & " - total " & CellCount & " sela"
Dia ho tena mahafinaritra ilay sary:
Eny, heveriko fa azonao ny hevitra. Soso-kevitra ao amin'ny fanehoan-kevitra - inona koa no mety ilaina haseho ao amin'ny bar?
- Inona ny macros, ny fomba fiasan'izy ireo, ny fampiasana sy ny famoronana azy
- Safidy mandrindra mora amin'ny takelaka Excel
- Ahoana ny fomba fanaovana formula complexes ho hita maso kokoa