گزارش گیری از دروس تجدیدی

[abootorab]

کسی از اساتید عزیز می تونه تابع جستجو را برای دروس تجدیدی با توجه به فایل ضمیمه ارائه کند

با درود و تشکر از جناب iranweld عزیز
دوست عزیز هرچند پاسخ دوستان جوابگوی خواسته شما هست ولی در صورت لزوم به استفاده از تابع، جهت تعیین دروس و نمره های تجدیدی کد زیر را در یک ماژول کپی کنید و سپس از تابع Tajdidi در محیط اکسل استفاده نمایید.

Function Tajdidi(ListRng As Range) As Variant
    If ListRng.Areas.Count > 1 Or ListRng.Columns.Count > 2 Then Exit Function
    Dim TajArr()
    ReDim TajArr(1 To 1, 1 To 2)
    
    j = 1
    For i = 1 To ListRng.Rows.Count
        If ListRng(i, 2).Value < 10 Then
            j = j + 1
            TajArr = Application.Transpose(TajArr)
            ReDim Preserve TajArr(1 To 2, 1 To j)
            TajArr = Application.Transpose(TajArr)
            TajArr(j - 1, 1) = ListRng(i, 1).Value
            TajArr(j - 1, 2) = ListRng(i, 2).Value
        End If
    Next
    TajArr = Application.Transpose(TajArr)
    ReDim Preserve TajArr(1 To 2, 1 To j - 1)
    TajArr = Application.Transpose(TajArr)
    
    Tajdidi = TajArr
End Function 

توضیح: این تابع دارای یک آرگومان می باشد که برای ورود محدوده دروس و نمرات می باشد. چون تابع از نوع آرایه ای می باشد می بایست به جای استفاده از کلید Enter از کلیدهای ترکیبی Ctrl+Shift+Enter استفاده کنید.

نحوه استفاده از تابع: ابتدا محدوده ای که قرار است دروس و نمرات تجدیدی در آن نمایش داده شود به حالت انتخاب در بیاورید (مثال: D15:E18) و سپس در نوار فرمول، تابع را تایپ کنید و محدوده اصلی دروس و نمرات را درون پرانتز بنویسید (Tajdidi(C4:D10)=) و در نهایت کلیدهای ترکیبی Ctrl+Shift+Enter را بزنید.

فایل نمونه برای راهنمایی بیشتر ضمیمه گردید. امیدوارم واستون مفید واقع گردد.

[iranweld]

با سلام

در فایل پیوست در صورت وارد شدن نمره کمتر از 10 در ستون d بعنوان تجدید تلقی شده و با استفاده از رویدادها در اکسل ماکرویی اجرا میگردد که نام درس و نمره را در ستون های پایان جدول درج مینماید

[amir_ts]

با سلام
به نظرم فایل ارسالی مشکل شما رو حل میکنه اگر نه دقیقا مشخص کنید چه چیزی مد نظر شماست.

[pishraw]

کسی از اساتید عزیز می تونه تابع جستجو را برای دروس تجدیدی با توجه به فایل ضمیمه ارائه کند

[amir_ts]

با سلام
علاوه بر روش استاد عزیز جناب generalsamad ،میتونید از این فرمول هم استفاده کنید.(فرمول آرایه ایست)

 =IFERROR(INDEX($C$4:$D$10;SMALL(IF(($D$4:$D$10<10);ROW($D$4:$D$10)-3;"");ROW(A1));1);"") 

[generalsamad]

با سلام
یک روش بدین صورت هست که یک ستون کمکی ایجاد کرده و یک شرط برای آن قرار دهید که سطرهائی که قبول هستند رو شماره گذاری کند بعد با استفاده از توابع جستجو مثل vlookup یا index مقادیر هر ستون رو برگردونید
برای مردود شده ها هم میتونید یک ستون کمکی بذارید و همین کار را انجام دهید

روش دیگه هم استفاده از pivot table میباشد
روش های دیگه ای هم وجود دارد ولی این دو روش ، روشهای مناسبی هستند

[pishraw]

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