معياري Microsoft Excel اوزارن ۾، رنگ سان نقلن کي اجاگر ڪرڻ جا ڪيترائي مختلف طريقا آھن. سڀ کان آسان ۽ تيز ترين طريقو مشروط فارميٽنگ سان آهي. هن کي ڪرڻ لاء، صرف سيلز جو هڪ سلسلو چونڊيو ۽ ٽيب تي چونڊيو گھر - مشروط فارميٽنگ - سيل چونڊ ضابطا - نقل قدر (گهر - مشروط فارميٽنگ - نمايان سيل ضابطا - نقل قدر):
بهرحال، هن صورت ۾، سڀني سيلن جو رنگ ڀريو ساڳيو هوندو، يعني اهو صرف اشارو ڏئي ٿو ته عنصر رينج ۾ ڪنهن ٻئي هنڌ نقل ڪيو آهي، پر انهن کي ڳولڻ ۾ مدد ڪرڻ لاء ڪجھ به نه آهي. توھان صورتحال کي ھڪڙي ننڍڙي ميڪرو سان حل ڪري سگھو ٿا جيڪو بار بار نقلن جي ھر جوڙو (يا وڌيڪ) پنھنجي رنگ سان ڀريندو:
ايترو واضح، صحيح؟ يقينن، وڏي تعداد ۾ ورجائي سيلز سان، رنگن جي وچ ۾ فرق ڪرڻ ڏکيو ٿيندو، پر نقلن جي نسبتا ننڍڙي تعداد سان، هي طريقو مڪمل طور تي ڪم ڪندو.
ھن ميڪرو کي استعمال ڪرڻ لاءِ، ڪيبورڊ شارٽ ڪٽ کي دٻايو Alt + F11 يا بٽڻ ڏسڻ جي بنيادي ٽئب ڊولپر، مينيو ذريعي نئون خالي ماڊل داخل ڪريو داخل ڪريو - ماڊل ۽ اتي هن ميڪرو جو ڪوڊ نقل ڪريو:
Sub DuplicatesColoring() Dim Dupes() 'Declare an array to store diplicates ReDim Dupes(1 To Selection.Cells.Count, 1 to 2) Selection.Interior.ColorIndex = -4142 'Fill هٽايو جيڪڏهن i = 3 هر سيل ۾ Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 پوءِ لاءِ k = LBound(Dupes) To UBound(Dupes) 'جيڪڏهن سيل اڳ ۾ ئي نقلن جي صف ۾ آهي، ڀريو If Dupes(k, 1) = سيل پوء cell.Interior. ColorIndex = Dupes(k, 2) Next k 'جيڪڏهن سيل ۾ هڪ نقل آهي، پر اڃا تائين صف ۾ نه آهي، ان کي صف ۾ شامل ڪريو ۽ ڀريو جيڪڏهن cell.Interior.ColorIndex = -4142 پوءِ cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End جيڪڏھن اڳيون سيل End Sub
هاڻي توهان شيٽ تي ڊيٽا سان ڪنهن به حد کي چونڊيو ۽ ڪيبورڊ شارٽ ڪٽ استعمال ڪندي اسان جي ميڪرو کي هلائي سگهو ٿا Alt + F8 يا بٽڻ ذريعي ميڪورس (ميڪرو) ٽئب ڊولپر (ڊولپر).
- رنگ سان نقلن کي نمايان ڪريو
- ميڪرو ڇا آهن، Visual Basic ۾ ميڪرو ڪوڊ ڪٿي داخل ڪجي، انهن کي ڪيئن هلائڻو آهي
- سيلز جي ڏنل حد ۾ منفرد قدرن جو تعداد ڪيئن ڳڻجي