محاسبه مرخصی

[mfr]

با سلام خدمت اساتید محترم : میخوام با زدن کد پرسنلی تو سلول h32 شیت master اطلاعات مربوط به همون پرسنل از شیت data فراخوانی بشه
و توی تاریخ و مرخصی مربوطه نمایش داده بشن ... در ضمن حتما فرمت سلولا باید عدد با دورقم اعشار باشه ... از توابع تایم استفاده بشه هم بهتره
ممنونم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

با سلام
با تابع vlookup انجام میشه .اطلاعات شیت data تو کدوم سل های شیت master فراخوان بشه؟

[mfr]

با سلام
با تابع vlookup انجام میشه .اطلاعات شیت data تو کدوم سل های شیت master فراخوان بشه؟

مثل فایل نمونه... فقط ساعت های مرخصی

[amir_ts]

با سلام
چون شماره پرسنلی شما تکرار شده و نوع اطلاعات فراخوان شده با نوع اطلاعاتی که شما تو شیت master میخواهید قرار بدید متفاوت هست از تابع vlookup نمیشه استفاده کرد.
با این فرمول تاریخ ها فراخوان میشه ولی ساعت ها (از ساعت تا ساعت) رو متوجه نشدم چطور میخواید تو یک سل با توجه به تاریخش قرار بدید!!!(فرمول آرایه ایست)

=IF(ISNUMBER(MATCH($H$31&C$1;data!$A$2:$A$7&RIGHT(data!$B$2:$B$7;2);0));1;"") 

[Amir Ghasemiyan]

سلام دوست عزیز
من فکر کنم با فرمول نویسی بشه به جواب رسید اما قدری پیچیده و اذیت کننده میشه.برای همین من پیشنهاد میکنم از VBA استفاده کنید.
کدی که من استفاده کردم به این صورته:

Sub ExcelIran()
code = Sheet7.Range("H31").Value
Range("report").ClearContents
Database = Range("database")
For i = 1 To UBound(Database)
    If Database(i, 1) = code Then
        q = Split(Database(i, 2), "/")
        Y = q(0)
        M = q(1)
        D = q(2)
        If Database(i, 6) = Sheet1.Range("G1").Value Then
            Sheet7.Cells(2 * M, D + 2) = 1
        Else
            Times = Database(i, 4) - Database(i, 3)
            Sheet7.Cells(2 * M + 1, D + 2) = Times
        End If
    End If
Next i
End Sub

تغییرات خیلی جزئی هم در فایلتون دادم. برای همین اون رو هم ضمیمه میکنم

[mfr]

با سلام
چون شماره پرسنلی شما تکرار شده و نوع اطلاعات فراخوان شده با نوع اطلاعاتی که شما تو شیت master میخواهید قرار بدید متفاوت هست از تابع vlookup نمیشه استفاده کرد.
با این فرمول تاریخ ها فراخوان میشه ولی ساعت ها (از ساعت تا ساعت) رو متوجه نشدم چطور میخواید تو یک سل با توجه به تاریخش قرار بدید!!!(فرمول آرایه ایست)

=IF(ISNUMBER(MATCH($H$31&C$1;data!$A$2:$A$7&RIGHT(data!$B$2:$B$7;2);0));1;"") 

ممنونم دوست عزیز... نصف مسئله حل شد فقط باید همزمان ماه و روز رو هم توی data بیاره فقط روز رو پیدا میکنه اما تو ماه مربوطه نمیاره .. مسئله همینجاست

[mfr]

سلام دوست عزیز
من فکر کنم با فرمول نویسی بشه به جواب رسید اما قدری پیچیده و اذیت کننده میشه.برای همین من پیشنهاد میکنم از VBA استفاده کنید.
کدی که من استفاده کردم به این صورته:

Sub ExcelIran()
code = Sheet7.Range("H31").Value
Range("report").ClearContents
Database = Range("database")
For i = 1 To UBound(Database)
    If Database(i, 1) = code Then
        q = Split(Database(i, 2), "/")
        Y = q(0)
        M = q(1)
        D = q(2)
        If Database(i, 6) = Sheet1.Range("G1").Value Then
            Sheet7.Cells(2 * M, D + 2) = 1
        Else
            Times = Database(i, 4) - Database(i, 3)
            Sheet7.Cells(2 * M + 1, D + 2) = Times
        End If
    End If
Next i
End Sub

تغییرات خیلی جزئی هم در فایلتون دادم. برای همین اون رو هم ضمیمه میکنم

سلام استاد ... متاسفانه فایل پیوست شما اشتباه پیوست شده .. ممنونم مجددا ضمیمه فرمایید.

[Amir Ghasemiyan]

سلام استاد ... متاسفانه فایل پیوست شما اشتباه پیوست شده .. ممنونم مجددا ضمیمه فرمایید.

فکر نمیکنم اشتباه باشه. چه مشکلی داره مگه؟ من دوباره دانلود کردم مشکلی نداشت

[amir_ts]

نصف مسئله حل شد فقط باید همزمان ماه و روز رو هم توی data بیاره فقط روز رو پیدا میکنه اما تو ماه مربوطه نمیاره .. مسئله همینجاست

با سلام
با یک ستون کمکی مشکل حل میشه و تو ماه مربوطه قرار میگیره.(توصیه جناب آقای قاسمیان رو مد نظر قرار بدید.)

=IF(ISNUMBER(MATCH($I$31&D$1&$B2;data!$A$2:$A$7&RIGHT(data!$B$2:$B$7;2)&MID(data!$B$2:$B$7;4;2);0));1;"") 

[mfr]

فکر نمیکنم اشتباه باشه. چه مشکلی داره مگه؟ من دوباره دانلود کردم مشکلی نداشت

توی تابع نویسی اشتباه نشده ... توابع نوشته شده با اسم شیتها همخونی ندارن ..... sheet7 و غیره .. ممنونم استاد