Koho Coordinate

He nānā nui kāu, akā ʻoi aku ka nui o nā papa āu e hana ai. A, e nānā ana ma luna o ka pale i ka ʻimi ʻana i ka ʻike e pono ai, aia mau ka manawa e "hoʻoheheʻe" i kou mau maka i ka laina aʻe a nānā i ke ala hewa. Ua ʻike au i ka poʻe, no ia mau manawa, mālama mau i kahi aliʻi lāʻau kokoke iā lākou e hoʻopili ai i ka laina ma ka monitor. ʻenehana o ka wā e hiki mai ana! 

A inā e hōʻike ʻia ka lālani a me ke kolamu o kēia manawa i ka wā e neʻe ai ka cell active ma luna o ka lau? ʻO kahi ʻano koho hoʻonohonoho e like me kēia:

ʻOi aku ka maikaʻi ma mua o ke aliʻi, ʻeā?

Nui nā ala o ka paʻakikī e hoʻokō i kēia. Loaʻa i kēlā me kēia ala kona pono a me nā pōʻino. E nānā pono kākou iā lākou.

Keʻano 1. Akaka. Macro e hōʻike ana i ka lālani a me ke kolamu o kēia manawa

ʻO ke ala maopopo loa e hoʻoponopono ai i kā mākou pilikia "ma ka lae" - pono mākou i kahi macro e nānā i ka hoʻololi o ke koho ma ka pepa a koho i ka lālani a me ke kolamu holoʻokoʻa no ka cell o kēia manawa. He mea makemake nō hoʻi e hiki ke hoʻohana a hoʻopau i kēia hana inā pono, no laila ʻaʻole hiki i kahi koho keʻa ke pale iā mākou mai ke komo ʻana, no ka laʻana, nā formula, akā hana wale mākou i ka wā e nānā ai mākou i ka papa inoa e ʻimi ai i ka pono. ʻike. Hāʻawi kēia iā mākou i nā macros ʻekolu (koho, hiki, a hoʻopau) pono e hoʻohui ʻia i ka module sheet.

E wehe i kahi pepa me kahi pākaukau kahi āu e makemake ai e kiʻi i kahi koho coordinate. E kaomi ʻākau ma ka ʻaoʻao pepa a koho i ke kauoha mai ka papa kuhikuhi kikokikona kumu (Hoʻopā'ālua).Pono e wehe ka puka makani Visual Basic Editor. E kope i kēia kikokikona o kēia mau macros ʻekolu i loko:

Dim Coord_Selection E like me ka Boolean 'Hoʻololi honua no ke koho ʻana a hoʻopau i ka Sub Selection_On() 'Macro ma ke koho ʻana Coord_Selection = ʻOiaʻiʻo End Sub Selection_Off() 'Macro off koho Coord_Selection = False End Sub 'Ke kaʻina hana nui e hana i ke koho Private Sub Worksheet_SelectionChange As(ByVal Target Range) E ho'ēmi i ka WorkRange E like me ka Range Inā Target.Cells.Count > 1 A laila e haʻalele i ka Sub 'ināʻoi aku ma mua o 1 pūnaewele i kohoʻia, e puka inā Coord_Selection = False A laila e haʻalele i ka Sub 'inā pau ke koho, puka i ka Application.ScreenUpdating = False Set WorkRange = Range ("A6:N300") 'wahi o ka laula hana i ikeia ke koho

E hoʻololi i ka helu wahi o ka pae hana i kāu ponoʻī - aia i loko o kēia pae e hana ai kā mākou koho. A laila pani i ka Visual Basic Editor a hoʻi i Excel.

E kaomi i ka pōkole kī ALT + F8e wehe i ka puka makani me ka papa inoa o nā macros i loaʻa. Macro Koho_A, e like me kāu e manaʻo ai, e pili ana i ke koho hoʻonohonoho ma ka pepa o kēia manawa, a me ka macro Koho_Paʻa - hoʻopau iā ia. Ma ka puka aniani like, ma ke kaomi ʻana i ke pihi kiko'î (Nā koho) Hiki iā ʻoe ke hāʻawi i nā pōkole keyboard i kēia mau macros no ka hoʻomaka maʻalahi.

Nā pōmaikaʻi o kēia ʻano hana:

  • maʻalahi pili i ka hoʻokō
  • koho - maikaʻi ʻole ka hana a ʻaʻole e hoʻololi i ka ʻike a i ʻole ka hoʻohālikelike ʻana i nā cell sheet ma kekahi ʻano, mau nā mea āpau e like me ia.

Nā pōʻino o kēia ʻano:

  • ʻAʻole holo pololei kēlā koho inā loaʻa nā cell i hui ʻia ma ka pepa - koho ʻia nā lālani a me nā kolamu āpau i loko o ka hui.
  • inā ʻoe e kaomi maʻamau i ke kī Delete, a laila ʻaʻole e hoʻomaʻemaʻe ʻia ka cell active, akā ʻo ka wahi āpau i koho ʻia, ʻo ia hoʻi, holoi i ka ʻikepili mai ka lālani a me ke kolamu holoʻokoʻa.

Keʻano 2. Kumu. CELL + Hana Hoʻopono Kūʻai

ʻO kēia ʻano, ʻoiai he mau drawbacks ʻelua, ʻike wau he nani loa. No ka hoʻokō ʻana i kekahi mea me ka hoʻohana wale ʻana i nā mea hana Excel i kūkulu ʻia, ʻoi aku ka liʻiliʻi o ke komo ʻana i ka polokalamu ma VBA he aerobatics 😉

Hoʻokumu ʻia ke kaʻina hana ma ka hoʻohana ʻana i ka hana CELL, hiki ke hāʻawi i nā ʻike like ʻole ma kahi kelepona i hāʻawi ʻia - ke kiʻekiʻe, ka laula, ka helu lālani, ka helu helu, a pēlā aku.

  • he huaʻōlelo code no ka palena, e like me "column" a i ʻole "laina"
  • ka helu wahi o ka cell a mākou e makemake ai e hoʻoholo i ka waiwai o kēia ʻāpana

ʻO ka hoʻopunipuni, ʻo ka hoʻopaʻapaʻa ʻelua he koho. Inā ʻaʻole i kuhikuhi ʻia, a laila lawe ʻia ka cell active o kēia manawa.

ʻO ka ʻāpana ʻelua o kēia ʻano hana ʻo ia ka hoʻopono kūlana. ʻO kēia hiʻohiʻona Excel maikaʻi loa e hiki ai iā ʻoe ke hoʻopololei i nā cell inā e hālāwai lākou i nā kūlana i kuhikuhi ʻia. Inā hoʻohui mākou i kēia mau manaʻo ʻelua i hoʻokahi, loaʻa iā mākou ka algorithm aʻe no ka hoʻokō ʻana i kā mākou koho hoʻonohonoho ma o ka hoʻopili ʻana i ke kūlana:

  1. Koho mākou i kā mākou papaʻaina, ʻo ia hoʻi kēlā mau cell kahi e hōʻike ʻia ai ke koho coordinate i ka wā e hiki mai ana.
  2. Ma Excel 2003 a ʻoi aku, wehe i ka papa kuhikuhi Hōʻano - Hoʻopono Kūʻai - Hoʻohālikelike (Hōʻano — Hōʻano Kūʻai Kūʻē — Hoʻohālikelike). Ma Excel 2007 a me ka mea hou aku - kaomi ma ka pā Home (Home)pihi Hōʻano Kūʻai Kūʻai - E hana i ke kānāwai (Ka Hoʻopono Kūʻai - Hana i ka Rula) a koho i ke ʻano lula E hoʻohana i ke ʻano no ka hoʻoholo ʻana i nā cell e hōʻano (E hoʻohana i ke ʻano)
  3. E hoʻokomo i ke kumu no kā mākou koho hoʻonohonoho:

    = OR(CELL(“lālani”)=ROW(A2),CELL(“column”)=COLUMN(A2))

    = A I ʻole(CELL(«lālani»)=ROW(A1),CELL(«column»)=COLUMN(A1))

    Ke nānā nei kēia ʻano kumu e ʻike inā like ka helu kolamu o kēlā me kēia cell i ka pākaukau me ka helu kolamu o ka cell o kēia manawa. Pela no me na kolamu. No laila, ʻo kēlā mau cell wale nō i loaʻa ka helu kolamu a i ʻole ka helu lālani e pili ana i ka cell o kēia manawa e hoʻopiha ʻia.

  4. Kaomi i ka pihi Kūkulu (Hōʻano) a hoʻonoho i ke kala piha.

Ua aneane mākaukau nā mea a pau, akā aia hoʻokahi nuance. ʻO ka ʻoiaʻiʻo ʻaʻole manaʻo ʻo Excel i ka hoʻololi ʻana i ke koho ma ke ʻano he hoʻololi i ka ʻikepili ma ka pepa. A ʻo ka hopena, ʻaʻole ia e hoʻomaka i ka helu hou ʻana o nā ʻano hana a me ka waihoʻoluʻu ʻana o ka hoʻohālikelike kūlana wale nō ke hoʻololi ke kūlana o ka cell active. No laila, e hoʻohui i kahi macro maʻalahi i ka module sheet e hana i kēia. E kaomi ʻākau ma ka ʻaoʻao pepa a koho i ke kauoha mai ka papa kuhikuhi kikokikona kumu (Hoʻopā'ālua).Pono e wehe ka puka makani Visual Basic Editor. E kope i kēia kikokikona o kēia macro maʻalahi i loko:

Pepa Haʻawina Kūʻokoʻa_SelectionChange(ByVal Target As Range) ActiveCell.Calculate End Sub

I kēia manawa, ke hoʻololi ʻia ke koho, e hoʻomaka ke kaʻina o ka helu ʻana i ke ʻano me ka hana KOHAI ma ka hoʻopololei kūlana a hoʻohāinu i ka lālani a me ke kolamu o kēia manawa.

Nā pōmaikaʻi o kēia ʻano hana:

  • ʻAʻole e uhaki ka hōpili kūlana i ka hōpili papa maʻamau
  • Ke hana pololei nei kēia koho koho me nā pūnaewele i hoʻohui ʻia.
  • ʻAʻohe pilikia o ka holoi ʻana i kahi lālani holoʻokoʻa a me ke kolamu o ka ʻikepili ma ke kaomi ʻana ʻole e kāpae i.
  • Hoʻohana liʻiliʻi ʻia nā macro

Nā pōʻino o kēia ʻano:

  • Pono e hoʻokomo lima ʻia ke ʻano no ka hoʻopololei kūlana.
  • ʻAʻohe ala wikiwiki e hiki ai / hoʻopau i kēlā ʻano hoʻohālikelike - hiki mau ia a hiki i ka pau ʻana o ke kānāwai.

Keʻano 3. ʻOi loa. Hōʻano kūlana + Macros

ʻO ke ʻano gula. Hoʻohana mākou i ka mīkini no ka nānā ʻana i ke koho ʻana ma ka pepa me ka hoʻohana ʻana i nā macros mai ke ʻano-1 a hoʻohui i ka hōʻailona palekana me ka hoʻohana ʻana i ke ʻano kūlana mai ke ala-2.

E wehe i kahi pepa me kahi pākaukau kahi āu e makemake ai e kiʻi i kahi koho coordinate. E kaomi ʻākau ma ka ʻaoʻao pepa a koho i ke kauoha mai ka papa kuhikuhi kikokikona kumu (Hoʻopā'ālua).Pono e wehe ka puka makani Visual Basic Editor. E kope i kēia kikokikona o kēia mau macros ʻekolu i loko:

Koho ʻAʻole ʻo Boolean Sub Selection_On() Coord_Selection = ʻOiaʻiʻo End Sub Sub Selection_Off() Coord_Selection = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target as Range) Dim WorkRange as Range, CrossRange As Range As Range Set WorkRange = N7 'адрес рабочего диапазона с таблицей If Target.Count > 300 A laila e ha'alele i ka Sub If Coord_Selection = False A laila WorkRange.FormatConditions.Delete Exit Sub End If Application.ScreenUpdating = False Inā 'A'ole Intersect(Target Is Athing) WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 1 Target.FormatConditions .Delete End If End Sub

Mai poina e hoʻololi i ka helu wahi hana i kāu helu papaʻaina. E pani i ka Visual Basic Editor a hoʻi i Excel. No ka hoʻohana ʻana i nā macros i hoʻohui ʻia, e kaomi i ka pōkole kīpē ALT + F8  a hoʻomau i ke ala like me ke ʻano 1. 

Keʻano 4. Nani. FollowCellPointer hoʻohui

Hāʻawi ʻo Excel MVP Jan Karel Pieterse mai Netherlands i kahi mea hoʻohui manuahi ma kāna pūnaewele FollowCellPointer(36Kb), ka mea e hoʻonā i ka pilikia like ma ke kahakiʻi ʻana i nā laina pua kiʻi me ka hoʻohana ʻana i nā macros e hōʻike i ka lālani a me ke kolamu o kēia manawa:

 

Haʻina maikaʻi. ʻAʻole me ka ʻole o nā glitches ma nā wahi, akā pono e hoʻāʻo. Hoʻoiho i ka waihona, wehe iā ia i ka disk a hoʻokomo i ka mea hoʻohui:

  • ma Excel 2003 a ʻoi aku - ma o ka papa kuhikuhi Service - Nā mea hoʻohui - Nānā (Na mea hana — Add-Ins — Huli)
  • ma Excel 2007 a ma hope aku, ma o Kōnae - Nā koho - Pākuʻi - Hele - Nānā (Kōnae — Nā Koho Excel — Nā Pākuʻi — Hele i — Nānā)

  • He aha nā macros, kahi e hoʻokomo ai i ka code macro ma Visual Basic

 

Waiho i ka Reply