محمد عدنان قام بنشر نوفمبر 2, 2021 مشاركة قام بنشر نوفمبر 2, 2021 السلام عليكم : كيف يتم تحويل حساب التاخير للمعادلة =IFERROR(HOUR(D9-$D$3)*60+MINUTE(D9-$D$3);"") عن طريق ماكرو لجميع الاعمدة التي تحسب التاخير ؟ حساب التاخير عن طريق ماكرو رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر نوفمبر 3, 2021 الكاتب مشاركة قام بنشر نوفمبر 3, 2021 ممكن المساعدة ؟ و لكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر نوفمبر 4, 2021 الكاتب مشاركة قام بنشر نوفمبر 4, 2021 السلام عليكم كيف ممكن اخلي هاد الكود الذي يحسب التأخير ليوم الاول من الشهر 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 ينفذ على كل ثلاث اعمدة مع اجراء اللازم لحساب التأخير لباقي الايام رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر نوفمبر 4, 2021 مشاركة قام بنشر نوفمبر 4, 2021 السلام عليكم ضع هذا الكود في 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 1 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر نوفمبر 4, 2021 الكاتب مشاركة قام بنشر نوفمبر 4, 2021 السلام عليكم اخ محي الدين ابو البشر جزاك الله كل خير لكن الكود لا يعمل رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر نوفمبر 4, 2021 مشاركة قام بنشر نوفمبر 4, 2021 (معدل) هذا ماكرو بسيط من غير حلقة تكرارية يمكنك التعديل في المدى والاعمدة 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 بواسطه عبدالفتاح في بي اكسيل تعديل في مدى الخلايا رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر نوفمبر 4, 2021 الكاتب مشاركة قام بنشر نوفمبر 4, 2021 السلام عليكم اخ عبد الفتاح جزاك الله كل خير لكن الكود لا يعمل رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر نوفمبر 4, 2021 مشاركة قام بنشر نوفمبر 4, 2021 اذن المشكلة من ملفك كيف لايعمل هل يظهر خطا ؟ جربته على ملف خالي من البيانات تماما وقام بادراج المعادلة 1 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر نوفمبر 4, 2021 الكاتب مشاركة قام بنشر نوفمبر 4, 2021 السلام عليكم اخ عبد الفتاح سأرفق الملف ... الكود في زر حساب التاخير يقوم حساب جميع اعمدة التاخير حضور و غياب بصمة2021.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر نوفمبر 4, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 4, 2021 (معدل) لماذا لم تجيبني على سؤالي هل ظهر لك اي خطأ؟ المشكلة كانت بسيطة وخطا في المدى كان يجب عليك تصحيحها ولماذا لم تضع الماكرو الذي اقترحته عليك بالملف لاحظ في المعادلة غيرت الفاصلة الى , بسبب اصدار الاوفيس عندي اذا لم تعمل معك غيرها الى ; وغير اسم الشيت تم تعديل الكود في المشاركة السابقة حضور و غياب بصمة2021.xlsm تم تعديل نوفمبر 4, 2021 بواسطه عبدالفتاح في بي اكسيل توضيح 2 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر نوفمبر 4, 2021 الكاتب مشاركة قام بنشر نوفمبر 4, 2021 السلام عليكم جزاك الله كل خير اخ عبد الفتاح .... فعلا كانت المشكلة كما ذكرت شكرا جزيلا لك في ميزان حستاتك كل الاحترام و التقدير لشخصك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان