Tse ka Hare
Ho na le motho ea ratang, empa 'na ka bonna ke hloka sebaka sa maemo feela maemong a 2-3:
- Kamora ho sefa, e bonts'a palo ea boleng bo setseng kamora khetho
- ha mefuta e fapaneng e khethiloe, e bontša kakaretso, karolelano, le palo ea lisele tse khethiloeng
- tabeng ea lifaele tse boima, u ka bona tsoelo-pele ea ho bala liforomo hape bukeng.
Ha ho joalo haholo bakeng sa mohala o nkang hoo e batlang e le bophara bohle ba skrine ebe o leketla ho oona ka linako tsohle. Ha re leke ho holisa lenane lena le itekanetseng mme re kenye likarolo tse ling tsa bohlokoa ho lona 🙂
Melao-motheo e akaretsang ea ho laola boemo ba boemo
Ho laola boemo ba boemo ka Visual Basic ho bonolo haholo. Ho hlahisa mongolo oa hau ho eona, o ka sebelisa macro e bonolo:
SubMyStatus() Kopo.StatusBar = "Привет!" Qetella Sub
Ka mor'a ho e tsamaisa, re fumana:
Ho khutlisetsa boemo ba pele ba boemo ba boemo, o tla hloka "anti-macro" e khuts'oane e tšoanang:
Sub MyStatus_Off() Application.StatusBar = False End Sub
Ka phetolelo ea motheo, joalokaha u ka bona, ntho e 'ngoe le e' ngoe e bonolo haholo. Joale ha re lekeng ho hlahisa mohopolo ...
Aterese ea sebaka se khethiloeng bareng ea maemo
Ka lehlakoreng le ka holimo le letšehali la fensetere ea Excel ka har'a bareng ea foromo, u ka lula u bona aterese ea sele ea hona joale. Empa haeba ho khethiloe mefuta eohle, ka bomalimabe, re ke ke ra bona aterese ea khetho moo - sele e le 'ngoe e sebetsang e bontšoa:
Ho rarolla bothata bona, o ka sebelisa macro e bonolo e tla bonts'a aterese ea sebaka se khethiloeng bareng ea maemo. Ho feta moo, macro ena e lokela ho hlahisoa ka bo eona, ka phetoho efe kapa efe khethong ea leqephe lefe kapa lefe - bakeng sa sena re tla e beha ho moetsi oa ketsahalo. SelectionChange buka ea rona.
Bula Visual Basic Editor u sebelisa konopo ea lebitso le le leng ho tab Moqapi (Moetsi) kapa dikgaoletso tsa keyboard Ka ho le letšehali Alt+F11. Fumana buka ea hau k'honeng e kaholimo ho le letšehali la phanele ea Morero 'me u bule mojule ho eona ka ho tobetsa habeli Buka ena (Buka ena):
Fesetereng e butsoeng, kopitsa le ho beha khoutu e latelang ea macro:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Aterese(0, 0) Qetellong Sub
Joale, ha mefuta efe kapa efe e khethiloe (ho kenyeletsoa le tse fetang bonngoe!), Aterese ea eona e tla hlahisoa bareng ea maemo:
Ho thibela liaterese tsa mekhahlelo e mengata e khethiloeng ka Ctrl hore e se ke ea kopanngoa, o ka eketsa ntlafatso e nyane - sebelisa mosebetsi oa Replace ho khutlisa koma ka comma e nang le sebaka:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Khetho.Aterese(0, 0), ",", ", ") Qetella Sub
Nomoro ea lisele tse khethiloeng bareng ea boemo
Ha mofuta ofe kapa ofe o khethiloe, palo ea lisele tse khethiloeng tse se nang letho e bontšoa ka lehlakoreng le letona la bar ea boemo ka ho sa feleng. Ka nako e 'ngoe u hloka ho tseba palo ea chelete e fanoeng. Mosebetsi ona o ka phethoa ka macro e bonolo ea ho sebetsana le ketsahalo ea buka ea SelectionChange, joalo ka mohlala o fetileng. U tla hloka macro joalo ka:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng As Range For Eng le E 'ngoe rng Ka Khetho.Areas 'Iterate through all elections RowsCount = rng.Rows.Count 'number of rowsCount = rng.Colum . Bala 'nomoro ea likholomo CellCount = CellCount + RowsCount * ColumnsCount 'bokella palo eohle ea lisele tse E latelang 'bonts'a bareng ea boemo Application.StatusBar = "Khethiloeng: " & CellCount & " cell" End Sub
Macro ena e pota-pota libakeng tsohle tse khethiloeng ke Ctrl (haeba ho na le tse fetang e le 'ngoe), e boloka palo ea mela le likholomo sebakeng se seng le se seng ho mefuta e fapaneng ea RowsCount le ColumnsCount,' me e bokella palo ea lisele ho CellCount variable, e ntan'o bontšoa. moleng oa boemo. Mosebetsing o tla shebahala tjena:
Ehlile, o ka kopanya sena le li-macro tse fetileng ho bonts'a aterese ea sebaka se khethiloeng le palo ea lisele ka nako e le 'ngoe. U hloka feela ho fetola mola o le mong oa penultimate ho:
Application.StatusBar = "Khethiloeng: " & Replace(Khetho.Aterese(0, 0), ",", ", ") & " - kakaretso " & CellCount & " lisele"
Joale setšoantšo se tla ba se setle haholo:
Be, ke nahana hore o fumana mohopolo. Etsa tlhahiso ea maikutlo - ke eng hape e ka ba molemo ho e bonts'a bareng ea maemo?
- Li-macros ke eng, li sebetsa joang, li sebelisoa joang le ho li theha
- Khetho e bonolo ea ho hokahanya leqepheng la Excel
- Mokhoa oa ho etsa hore liforomo tse rarahaneng li bonahale haholoanyane