د معیاري مایکروسافټ ایکسل وسیلو په مینځ کې ، د رنګ سره د نقلونو روښانه کولو لپاره ډیری مختلفې لارې شتون لري. ترټولو اسانه او ګړندۍ لاره د مشروط فارمیټ کولو سره ده. د دې کولو لپاره، یوازې د حجرو لړۍ وټاکئ او په ټب کې غوره کړئ کور — مشروط شکل ورکول — د حجرو انتخاب قواعد — نقل ارزښتونه (کور - مشروط بڼه کول - د حجرو قواعد روښانه کړئ - دوه اړخیز ارزښتونه):
په هرصورت، پدې حالت کې، د ټولو حجرو ډک رنګ به یو شان وي، د بیلګې په توګه دا په ساده ډول سیګنال کوي چې عنصر په رینج کې بل ځای نقل کړی، مګر د دوی موندلو کې د مرستې لپاره هیڅ نه کوي. تاسو کولی شئ وضعیت د کوچني میکرو سره حل کړئ چې د تکرار نقلونو هره جوړه (یا ډیر) به د خپل رنګ سره ډک کړي:
ډیر روښانه، سمه ده؟ البته، د ډیری تکرار حجرو سره، د سیوري تر مینځ توپیر کول به ستونزمن وي، مګر د نسبتا لږ شمیر نقلونو سره، دا طریقه به په سمه توګه کار وکړي.
د دې میکرو کارولو لپاره، د کیبورډ شارټ کټ فشار ورکړئ Alt + F11 یا تڼۍ شارپ ټوپ د پراختیاد مینو له لارې یو نوی خالي ماډل داخل کړئ داخل کړئ - ماډل او هلته د دې میکرو کوډ کاپي کړئ:
Sub DuplicatesColoring() Dim Dupes()' د نقلونو ذخیره کولو لپاره یو صف اعلان کړئ ReDim ډوپس انتخاب که د WorksheetFunction.CountIf(Selection, cell.Value) > 1 بیا د k = LBound(Dupes) څخه UBound(Dupes) ته 'که چیرې حجره لا دمخه د نقلونو په صف کې وي، ډک کړئ If Dupes(k, 1) = حجره بیا cell.Interior. ColorIndex = Dupes(k, 2) بل k' که چیرې حجره یو نقل ولري، مګر تر اوسه په صف کې نه وي، دا په صف کې اضافه کړئ او ډک کړئ که cell.Interior.ColorIndex = -4142 بیا cell.Interior.ColorIndex = i Dupes(i, 3 ) = cell. Value Dupes(i, 1) = ii = i + 1 پای که پای وي که د بلې حجرې پای پای
اوس تاسو کولی شئ په شیټ کې د معلوماتو سره هر ډول رینج وټاکئ او د کیبورډ شارټ کټ په کارولو سره زموږ میکرو چل کړئ Alt + F8 یا د تڼۍ له لارې میکروس (ماکرو) ټوپ د پراختیا (پراختیا).
- د رنګ سره نقلونه روښانه کړئ
- میکرو څه دي، چیرته چې په Visual Basic کې د میکرو کوډ داخل کړئ، څنګه یې چلولی شئ
- د حجرو په ورکړل شوي سلسله کې د ځانګړي ارزښتونو شمیر څنګه شمیرل کیږي