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

[محمد عدنان]

السلام عليكم :

كيف يتم تحويل حساب التاخير للمعادلة  =IFERROR(HOUR(D9-$D$3)*60+MINUTE(D9-$D$3);"")  عن طريق ماكرو لجميع الاعمدة التي تحسب التاخير ؟

حساب التاخير عن طريق ماكرو 

[محمد عدنان]

ممكن المساعدة ؟ و لكم جزيل الشكر

[محمد عدنان]

السلام عليكم 

كيف ممكن اخلي هاد الكود    الذي يحسب التأخير ليوم الاول من الشهر 

 Range("F9").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(HOUR(RC[-2]-R3C4)*60+MINUTE(RC[-2]-R3C4),"""")"
    Range("F9").Select
    Selection.AutoFill Destination:=Range("F9:F66"), Type:=xlFillDefault

   ' Range("F9:F66").Select

ينفذ على كل ثلاث اعمدة مع اجراء  اللازم  لحساب التأخير لباقي الايام 

[محي الدين ابو البشر]

السلام عليكم 

ضع هذا الكود في Sheet code

Private Sub Worksheet_Change(ByVal Target As Range)
Set X = Columns(4)
   For I = 7 To 32 * 3 Step 3
   Set X = Union(X, Columns(I))
   Next
If Not Intersect(X, Target) Is Nothing Then
  With ActiveSheet.Range(Target.Address)
  .Offset(, 2) = "=IFERROR(HOUR(" & Target & "-$D$3" & ")*60+MINUTE(" & Target & "-$D$3),"""")"
  .Offset(, 2).Value = .Offset(, 2).Value
   End With
End If
End Sub

 

[محمد عدنان]

السلام عليكم 

اخ محي الدين ابو البشر 

جزاك الله كل خير لكن الكود لا يعمل 

[عبدالفتاح في بي اكسيل]

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

Sub MyFillDown()
    With ThisWorkbook.Sheets("Sheet2")
        .Range("f9,i9,l9,o9,r9").Formula = "=IFERROR(HOUR(D9-$D$3)*60+MINUTE(D9-$D$3);"""")"
        .Range("f9:f66,i9:i66,o9:o66,r9:r66").FillDown
    End With
End Sub

 

تم تعديل نوفمبر 4, 2021 بواسطه عبدالفتاح في بي اكسيل
تعديل في مدى الخلايا

[محمد عدنان]

السلام عليكم 

اخ عبد الفتاح 

جزاك الله كل خير لكن الكود لا يعمل 

[عبدالفتاح في بي اكسيل]

اذن  المشكلة من ملفك  كيف   لايعمل  

هل  يظهر  خطا  ؟

جربته  على  ملف  خالي  من  البيانات  تماما  وقام  بادراج  المعادلة 

[محمد عدنان]

السلام عليكم   اخ عبد الفتاح 

سأرفق الملف ... الكود في زر حساب التاخير  

يقوم حساب جميع اعمدة التاخير 

حضور و غياب بصمة2021.xlsm

[عبدالفتاح في بي اكسيل]

لماذا  لم  تجيبني على سؤالي  هل  ظهر لك اي  خطأ؟

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

لاحظ  في  المعادلة  غيرت الفاصلة  الى , بسبب اصدار  الاوفيس عندي    اذا  لم  تعمل  معك غيرها الى ;  وغير اسم  الشيت 

تم  تعديل  الكود  في  المشاركة  السابقة 

 

 

 

حضور و غياب بصمة2021.xlsm

تم تعديل نوفمبر 4, 2021 بواسطه عبدالفتاح في بي اكسيل
توضيح

[محمد عدنان]

السلام عليكم 

جزاك الله كل خير   اخ عبد الفتاح .... فعلا كانت المشكلة كما ذكرت

شكرا جزيلا لك  في ميزان حستاتك 

كل الاحترام و التقدير لشخصك