ʻIke pono i ka pae kūlana

Makemake kekahi, akā makemake wau i kahi pae kūlana i nā hihia 2-3 wale nō:

  • ma hope o ke kānana ʻana, hōʻike ia i ka helu o nā waiwai i koe ma hope o ke koho
  • ke koho ʻia kahi laulā, hōʻike ia i ka huina, awelika, a me ka helu o nā cell i koho ʻia
  • i ka hihia o nā faila koʻikoʻi, hiki iā ʻoe ke ʻike i ka holomua o ka helu hou ʻana i nā ʻōkuhi ma ka puke.

ʻAʻole nui no kahi laina e lawe kokoke i ka laulā holoʻokoʻa o ka pale a kau ʻia ma luna i nā manawa āpau. E hoʻāʻo mākou e hoʻonui i kēia papa inoa haʻahaʻa a hoʻohui i kekahi mau hiʻohiʻona pono iā ia 🙂

Nā loina maʻamau no ka mālama ʻana i ka pae kūlana

Maʻalahi loa ka mālama ʻana i ka pae kūlana me Visual Basic. No ka hōʻike ʻana i kāu kikokikona i loko, hiki iā ʻoe ke hoʻohana i kahi macro maʻalahi:

Sub MyStatus() Application.StatusBar = "Привет!" Hoʻopau Sub

Ma hope o ka holo ʻana, loaʻa iā mākou:

ʻIke pono i ka pae kūlana

No ka hoʻihoʻi ʻana i ke kūlana mua o ka pae kūlana, pono ʻoe i ka pōkole like "anti-macro":

Sub MyStatus_Off() Application.StatusBar = False End Sub

Ma keʻano kumu, e like me kāu eʻike ai, he mea maʻalahi loa nā mea a pau. I kēia manawa e hoʻāʻo kākou e hoʻomohala i ka manaʻo…

Ka helu wahi o ka laulā i koho ʻia ma ka pae kūlana

 Ma ka ʻaoʻao hema hema o ka pukaaniani Excel i ka pahu formula, hiki iā ʻoe ke ʻike mau i ka helu o ka cell o kēia manawa. Akā inā koho ʻia kahi ʻāpana holoʻokoʻa, a laila, ʻaʻole naʻe mākou e ʻike i ka helu koho ma laila - ua hōʻike ʻia ka cell active hoʻokahi.

ʻIke pono i ka pae kūlana

No ka hoʻoponopono i kēia pilikia, hiki iā ʻoe ke hoʻohana i kahi macro maʻalahi e hōʻike i ka helu o ka wahi i koho ʻia ma ka pae kūlana. Eia kekahi, pono e hoʻokuʻu ʻia kēia macro, me ka hoʻololi ʻana i ke koho ʻana ma kekahi pepa - no kēia mea mākou e waiho ai i ka mea hoʻokele hanana. Hoololi koho kā mākou puke.

E wehe i ka Visual Basic Editor me ka pihi o ka inoa like ma ka pā mea haku polokalamu (Ka mea hoʻomohala) a i ʻole nā ​​pōkole papa keyboard Haʻalele iā Alt+F11. E ʻimi i kāu puke ma ka ʻaoʻao hema hema o ka panel Project a wehe i ka module i loko ma ke kaomi pālua ʻO kēia puke (Keia Buke Hana):

Ma ka puka aniani e wehe ai, e kope a paʻi i kēia code macro:

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

I kēia manawa, ke koho ʻia kekahi laulima (me ka ʻoi aku ma mua o hoʻokahi!), e hōʻike ʻia kona helu wahi ma ka pae kūlana:

ʻIke pono i ka pae kūlana

No ka pale ʻana i nā helu wahi o nā pae i koho ʻia me Ctrl mai ka hoʻohui ʻana, hiki iā ʻoe ke hoʻohui i kahi hoʻomaikaʻi liʻiliʻi - e hoʻohana i ka hana Replace e hoʻololi i kahi koma me kahi koma me kahi hakahaka:

Pilikia Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Hoʻololi (Selection.Address(0, 0), ",", ", ") End Sub

Ka helu o nā pūnaewele i koho ʻia ma ka pae kūlana

Ke koho ʻia kekahi laulima, hōʻike ʻia ka helu o nā cell i koho ʻole ʻia ma ka ʻaoʻao ʻākau o ka pae kūlana ma ke ʻano maʻamau. I kekahi manawa pono ʻoe e ʻike i ka helu o nā mea i hoʻokaʻawale ʻia. Hiki ke hoʻokō ʻia kēia hana me kahi macro maʻalahi e mālama i ka hanana puke SelectionChange, e like me ka laʻana mua. Pono ʻoe i kahi macro e like me:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng Like Range No kēlā me kēia rng In Selection.Areas 'E ho'āʻo ma nā koho a pau RowsCount = rng.Rows.Count 'helu o nā lālani ColumnsCount = rng.Columns . E helu 'ka helu o nā kolamu CellCount = CellCount + RowsCount * ColumnsCount 'hōʻuluʻulu i ka huina helu o nā cell Next 'hōʻike ma ka pae kūlana Application.StatusBar = "I koho ʻia: " & CellCount & " cell" End Sub

Hoʻopili kēia macro ma nā wahi a pau i koho ʻia e Ctrl (inā ʻoi aku ma mua o hoʻokahi), mālama i ka helu o nā lālani a me nā kolamu i kēlā me kēia wahi ma nā ʻano hoʻololi RowsCount a me ColumnsCount, a hōʻiliʻili i ka helu o nā cell i ka helu CellCount, a laila hōʻike ʻia. i ka pae kūlana. Ma ka hana e like me kēia:

ʻIke pono i ka pae kūlana

ʻOiaʻiʻo, hiki iā ʻoe ke hoʻohui i kēia a me nā macros mua e hōʻike i ka helu o ka pae i koho ʻia a me ka helu o nā cell i ka manawa like. Pono ʻoe e hoʻololi i hoʻokahi laina penultimate i:

Application.StatusBar = "Koho ʻia: " & Hoʻololi (Selection.Address(0, 0), ",", ", ") & " - huina " & CellCount & " cell"

A laila e nani loa ke kiʻi:

ʻIke pono i ka pae kūlana

ʻAe, manaʻo wau ua loaʻa iā ʻoe ka manaʻo. Manaʻo i nā manaʻo - he aha nā mea ʻē aʻe e pono ke hōʻike ʻia ma ka pae kūlana?

  • He aha nā macros, pehea lākou e hana ai, pehea e hoʻohana ai a hana iā lākou
  • ʻO ke koho hoʻonohonoho maʻalahi ma kahi pepa Excel
  • Pehea e hoʻonui ai i nā ʻōkuhi paʻakikī

Waiho i ka Reply