درخواست مساعدت و راهنمایی

**M_ExceL** · 2018/06/09, 17:46

نوشته اصلی توسط rm58

با عرض سلام و ادب خدمت اساتید بزرگوار
لطفا با توجه به فایل پیوست در خصوص موارد زیر بنده را راهنمایی بفرمایید.
با سپاس و تشکر

1- در شیت 1 هر ردیف مختص به درج کد دوره‌های آموزشی اخذ شده یک نفر می‌باشد، با توجه به تعداد زیاد ردیفها (900 ردیف) چطور میشه کدهای تکراری برای هر فرد را مشخص کرد؟ (هر ردیف جداگانه)

2- در شیت Report چطور می‌توان با درج کد پرسنلی هر فرد گزارشی از دوره‌های اخذ شده و مجموع ساعات آن ارائه نمود؟

سلام
در رابطه با سوال اول جهت این امر می تونید از کد زیر استفاده کنید. البته بنده روی فایلتون برای 900 ردیف انجام دادم.

کد:

Sub conditionformatrows()

    Application.ScreenUpdating = False
    For i = 2 To 900
    Range(Cells(i, 1), Cells(i, 34)).Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
    Selection.FormatConditions(1).StopIfTrue = False
     Next i
     Application.ScreenUpdating = True
End Sub

در رابطه با سوال دوم هم فایل رو ببینید دقیقا همون کار انجام شد.
دانلود فایل
موفق باشید

درخواست مساعدت و راهنمایی

[حل شده] درخواست مساعدت و راهنمایی

کامنت