Clàr-innse

Am measg nan innealan àbhaisteach Microsoft Excel, tha iomadh dòigh ann air dùblaidhean le dath a chomharrachadh. Is e an dòigh as fhasa agus as luaithe a bhith ann le cruth cumhach. Gus seo a dhèanamh, dìreach tagh raon de cheallan agus tagh air an taba Dachaigh - Cruth cumhach - Riaghailtean Taghaidh Cell - Luachan Dùblaichte (Dachaigh - Cruth cumhach - Comharraich Riaghailtean cealla - luachan dùblaichte):

Soillseachadh dùbailte de dhùblaidhean

Ach, anns a 'chùis seo, bidh dath lìonaidh a h-uile cealla mar an ceudna, is e sin dìreach a' comharrachadh gu bheil an eileamaid air dùblachadh an àiteigin eile san raon, ach nach eil e a 'dèanamh dad airson an lorg. Faodaidh tu an suidheachadh a rèiteachadh le macro beag a lìonas gach paidhir (no barrachd) de dhùblaidhean a-rithist leis an dath aige fhèin:

Soillseachadh dùbailte de dhùblaidhean

Gu math nas soilleire, ceart? Gu dearbh, le àireamh mhòr de cheallan ath-aithris, bidh e duilich eadar-dhealachadh a dhèanamh eadar cumaidhean, ach le àireamh bheag de dhùblaidhean, obraichidh an dòigh seo gu foirfe.

Gus am macro seo a chleachdadh, brùth air ath-ghoirid a’ mheur-chlàr Alt + F11 no putan Visual Basic tab -leasachaidh, cuir a-steach modal falamh ùr tron ​​​​chlàr Cuir a-steach - modal agus dèan lethbhreac de chòd a’ mhacro seo an sin:

Sub DuplicatesColoring() Dim Dupes() 'Cuir an cèill sreath gus dùblaidhean a stòradh ReDim Dupes(1 Gu Selection.Cells.Count, 1 Gu 2) Selection.Interior.ColorIndex = -4142 'Thoir air falbh an lìonadh ma tha i = 3 Airson gach cealla a-staigh Taghadh Ma tha duilleag-obrachFunction.CountIf(Taghaidh, cell.Value) > 1 An uairsin Airson k = LBound(Dupes) Gu UBound(Dupes) 'ma tha an cealla mu thràth ann an sreath de dhùblaidhean, lìon a-steach Ma tha Dupes(k, 1) = cealla An uair sin cell.Interior. ColorIndex = Dupes(k, 2) An ath- k 'ma tha dùblachadh sa chill, ach nach eil fhathast san raon, cuir ris an raon e agus lìon e Ma tha cell.Interior.ColorIndex = -4142 An uairsin cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 Deireadh Ma tha an ath chill Deireadh Fo  

A-nis faodaidh tu raon sam bith a thaghadh le dàta air an duilleag agus ar macro a ruith a ’cleachdadh ath-ghoirid a’ mheur-chlàr Alt + F8 no tron ​​phutan macros (Macros) tab -leasachaidh (Leasaiche).

  • Cuir cuideam air dùblaidhean le dath
  • Dè a th’ ann am macros, far an cuir thu a-steach còd macro ann an Visual Basic, mar a ruitheas tu iad
  • Mar a chunntas tu an àireamh de luachan sònraichte ann an raon sònraichte de cheallan

Leave a Reply