در میان ابزارهای استاندارد مایکروسافت اکسل، راه های مختلفی برای برجسته کردن موارد تکراری با رنگ وجود دارد. ساده ترین و سریع ترین راه با قالب بندی شرطی است. برای انجام این کار، فقط یک محدوده از سلول ها را انتخاب کنید و در برگه انتخاب کنید صفحه اصلی — قالب بندی مشروط — قوانین انتخاب سلول — مقادیر تکراری (صفحه اصلی — قالب بندی مشروط — قوانین سلول های برجسته — مقادیر تکراری):
با این حال، در این مورد، رنگ پر شدن تمام سلول ها یکسان خواهد بود، یعنی به سادگی نشان می دهد که عنصر در جای دیگری در محدوده دارای موارد تکراری است، اما هیچ کمکی به یافتن آنها نمی کند. می‌توانید وضعیت را با یک ماکرو کوچک حل کنید که هر جفت (یا بیشتر) از تکرارهای تکراری را با رنگ خاص خود پر می‌کند:
خیلی واضح تر، درست است؟ البته، با تعداد زیاد سلول های تکراری، تشخیص سایه ها دشوار خواهد بود، اما با تعداد نسبتاً کم تکرار، این روش کاملاً جواب می دهد.
برای استفاده از این ماکرو، میانبر صفحه کلید را فشار دهید Alt + F11 یا دکمه ویژوال بیسیک برگ توسعه دهنده، یک ماژول خالی جدید را از طریق منو وارد کنید درج - ماژول و کد این ماکرو را در آنجا کپی کنید:
Sub DuplicatesColoring() Dim Dupes() 'اعلان یک آرایه برای ذخیره موارد تکراری 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) = سلول را پر کنید سپس سلول.داخلی. ColorIndex = Dupes(k, 2) بعد k 'اگر سلول حاوی یک نسخه تکراری است، اما هنوز در آرایه نیست، آن را به آرایه اضافه کنید و آن را پر کنید If cell.Interior.ColorIndex = -4142 سپس cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If The Next Cell End Sub
اکنون می توانید هر محدوده ای را با داده های موجود در برگه انتخاب کنید و ماکرو ما را با استفاده از میانبر صفحه کلید اجرا کنید Alt + F8 یا از طریق دکمه ماکرو (ماکروها) برگ توسعه دهنده (توسعه دهنده).
- موارد تکراری را با رنگ برجسته کنید
- ماکروها چیست، کد ماکرو را کجا در ویژوال بیسیک وارد کنیم، چگونه آنها را اجرا کنیم
- نحوه شمارش تعداد مقادیر منحصر به فرد در یک محدوده مشخص از سلول ها