Ko nga korero whai hua kei te pae mana

Kei te pai tetahi, engari ko au ake e hiahia ana ki te pae mana i roto i nga keehi 2-3 anake:

  • i muri i te tātari, ka whakaatuhia te maha o nga uara e toe ana i muri i te kowhiringa
  • ka tohua he awhe, ka whakaatu i te tapeke, te toharite, me te maha o nga pūtau kua tohua
  • i te keehi o nga konae taumaha, ka kite koe i te ahunga whakamua ki te tatau ano i nga tauira i roto i te pukapuka.

Ehara i te mea nui mo te raina e tata ana ki te whanui katoa o te mata me te whakairi ki runga i nga wa katoa. Me ngana ki te whakawhānui ake i tenei rarangi iti me te taapiri i etahi atu waahanga whai hua ki a ia 🙂

Nga maataapono whanui mo te whakahaere i te pae mana

He tino ngawari te whakahaere i te pae mana me Visual Basic. Hei whakaatu i to kupu ki roto, ka taea e koe te whakamahi tonotono ngawari:

Sub MyStatus() Application.StatusBar = "Whakaaro!" Whakamutunga Sub

I muri i te whakahaere, ka whiwhi tatou:

Ko nga korero whai hua kei te pae mana

Hei whakaora i te ahua taketake o te pae mana, ka hiahia koe ki te "anti-tonotono" poto:

Sub MyStatus_Off() Application.StatusBar = Whakamutunga Here

I roto i te putanga taketake, ka taea e koe te kite, he tino ngawari nga mea katoa. Inaianei me ngana ki te whakawhanake i te whakaaro…

Wāhitau o te awhe i tīpakohia i te pae tūnga

 I te kokonga mauī o runga o te matapihi Excel i te pae tātai, ka taea e koe te kite tonu i te wāhitau o te pūtau o nāianei. Engari ki te kowhiria te awhe katoa, karekau matou e kite i te wahitau kowhiringa kei reira – kotahi ano te putau hohe kotahi ka whakaatuhia:

Ko nga korero whai hua kei te pae mana

Hei whakaoti i tenei raruraru, ka taea e koe te whakamahi i tetahi tonotono ngawari ka whakaatu i te wahitau o te waahi kua tohua ki te pae mana. I tua atu, me whakarewa aunoa tenei tonotono, me nga huringa o te kowhiringa i runga i tetahi rau - mo tenei ka tukuna e matou ki te kaihautu huihuinga. Huri Tīpakonga ta matou pukapuka.

Whakatuwheratia te Kaiwhakatika Visual Basic ma te whakamahi i te paatene o taua ingoa i runga i te ripa kaiwhakawhanake (Kaiwhakawhanake) he pokatata papapātuhi ranei Mauī Alt+F11. Kimihia to pukapuka ki te kokonga maui o runga o te Paewhiri Kaupapa ka whakatuwheratia te kōwae kei roto ma te paato-rua Tenei pukapuka (Tenei Pukamahi):

I te matapihi e tuwhera ana, kape me te whakapiri i te waehere tonotono e whai ake nei:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Hei Ahanoa, ByVal Target Hei Awhe) Application.StatusBar = "Wыделено: " & Selection.Address(0, 0) End Sub

Inaianei, ka tohua tetahi awhe (tae atu ki te neke atu i te kotahi!), ka whakaatuhia tona wahitau ki te pae mana:

Ko nga korero whai hua kei te pae mana

Kia kore ai e hanumi nga wahitau o nga awhe maha i kowhiria me Ctrl, ka taea e koe te taapiri i tetahi whakapainga iti – whakamahia te mahi Whakakapi hei whakakapi i te piko ki te piko me te mokowā:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target as Range) Application.StatusBar = "Wыделено: " & Whakakapi(Selection.Address(0, 0), ",", ", ") End Sub

Te maha o nga pūtau kua tohua ki te pae tūnga

Ina tohua tetahi awhe, ka whakaatuhia te maha o nga pūtau kore-putua kua tohua ki te taha matau o te pae tūnga ma te taunoa. I etahi wa me mohio koe ki te maha o nga mea kua tohaina. Ka taea hoki tenei mahi ma te tonotono ngawari hei hapai i te huihuinga pukapuka SelectionChange, penei i te tauira o mua. Ka hiahia koe ki te tonotono penei:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Hei Ahanoa, ByVal Target Hei Awhe) Ataahua Kaute Pūtau Hei Rerekē, rng Hei Awhe mo ia rng I te Kōwhiringa.Areas 'Whakahokia ma nga whiringa katoa RowsCount = rng.Rows.Count 'te maha o nga rarangi ColumnsCount = rng.Columns . Tatau 'te maha o nga pou CellCount = CellCount + RowsCount * ColumnsCount 'whakaemi i te tapeke maha o nga pūtau Panuku 'whakaatu ki te pae tūnga Application.StatusBar = "Kua tīpakohia: " & CellCount & " pūtau" Whakamutunga Sub

Ka huri tenei tonotono puta noa i nga waahi kua tohua e Ctrl (mehemea he nui ake i te kotahi), ka penapena i te maha o nga rarangi me nga pou i ia rohe i roto i nga taurangi RowsCount me ColumnsCount, ka whakaemihia te maha o nga pūtau kei te taurangi CellCount, ka whakaatuhia. i te pae tūnga. I te mahi ka penei te ahua:

Ko nga korero whai hua kei te pae mana

Ae ra, ka taea e koe te whakakotahi i tenei me nga tonotono o mua hei whakaatu i nga wahitau e rua o te awhe kua tohua me te maha o nga pūtau i te wa kotahi. Me huri noa koe i tetahi rarangi tuarua ki:

Application.StatusBar = "Kua tīpakohia: " & Whakakapi(Selection.Address(0, 0), ",", ", ") & " - tapeke " & CellCount & " pūtau"

Na ka tino ataahua te pikitia:

Ko nga korero whai hua kei te pae mana

Ana, ki taku whakaaro kei a koe te whakaaro. Whakaarohia i roto i nga korero - he aha etahi atu ka pai ki te whakaatu i te pae mana?

  • He aha nga tonotono, pehea te mahi, me pehea te whakamahi me te hanga
  • He pai te whiriwhiringa ruruku i runga i te rau Excel
  • Me pehea te whakakitenga i nga tauira matatini

Waiho i te Reply