التعديل على كود حساب ساعات العمل

[أبو قاسم]

ارجو من عمالقة موقع اوفيسنا المساعدة في التعديل على كود حساب الوقت ولكم مني جزيل الشكر والتقدير 

Book1.rar

[خزاني]

السلام عليكم ورحمة الله وبركاته

=MOD(B2-A2;1)

[أبو قاسم]

ربنا يحفظك لاكن أريد كود برمجي وليس دالة

[ياسر خليل أبو البراء]

الأخ الفاضل

سبق أن طلبت منك تغيير اسم الظهور للغة العربية لسهولة التواصل

الحل المقدم من الأخ الغالي خزاني حل بسيط وجميل جداً

أنا فقط ترجمته إلى الكود

Sub TimeCalculate()
    With Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Formula = "=MOD(B2-A2,1)"
        .Value = .Value
    End With
End Sub

تقبل تحياتي

[أبو قاسم]

الاخ ياسر جزاك الله خير طبقت الكود على الملف لايعمل طبقة بنفسك ورفعة مرة اخرى ولك الف شكر

[ياسر خليل أبو البراء]

الأخ الكريم صالح

مشكور على تغيير اسم الظهور للغة العربية

إليك الملف المرفق

Time Calculate.rar

[أبو قاسم]

ممتاز جدا بس انا اريدة اتوماتيك بدون زر ربنا يسعدك دنيا واخرة تنفيذ اتوماتيك 

[ياسر خليل أبو البراء]

السؤال هو .. طالما أنك تريد أن يتم تنفيذ الكود بشكل تلقائي ..

هل تريد ان يتم العمل بمجرد التغير في أي خلية في العمود الأول أو الثاني

وهل التغير يصحبه التعامل مع الكود صف واحد فقط في كل مرة أم أنك تريد تنفيذ الكود على كامل العمود الثالث ؟؟

[أبو قاسم]

اول شخص يحضر لدوام اعمل وقت الحضور وعند انتها العمل اعمل نهاية العمل يطلع مجموع الساعات مباشرة  بدون زر

[ياسر خليل أبو البراء]

الأخ الفاضل صالح

إليك الملف المرفق بمجرد تسجيل وقت الانصراف يتم تسجيل مجموع ساعات العمل

Time Calculate V2.rar

[أبو قاسم]

جزيت خيرا كود حلو بس لو تشرح الكود مااقدرت اطبقة في اعمدة خرى 

 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 1 And Target.Column = 2 Then

        With Target.Offset(, 1)

            .Formula = "=MOD(" & (Target - Target.Offset(, -1)) & ",1)": .Value = .Value

        End With

    End If

End Sub

[ياسر خليل أبو البراء]

تفضل أخي الحبيب

Private Sub Worksheet_Change(ByVal Target As Range)
'إذا كان عدد الخلايا التي سيتم التعامل معها أكبر من واحد يتم الخروج من الإجراء الفرعي
    If Target.Cells.CountLarge > 1 Then Exit Sub
'إذا كانت الخلية الهدف التي سيتم تعديلها في أي صف أكبر من الصف رقم 1
'كما أنها في العمود الثاني يتم تنفيذ التالي
    If Target.Row > 1 And Target.Column = 2 Then
'الخلية المجاورة للخلية الهدف
        With Target.Offset(, 1)
'يتم وضع المعادلة التي تحقق المطلوب والحصول على القيمة فقط
            .Formula = "=MOD(" & (Target - Target.Offset(, -1)) & ",1)": .Value = .Value
        End With
    End If
End Sub

تقبل تحياتي

[أبو قاسم]

اشكرك الف شكر حاولت فية الان عرفت الطريقة لك مني الف شكر وتقدير اخي ياسر صراحة  مبدع الله يبارك لك في علمك