اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مستخدم الاوفس

عضو جديد 01
  • Content Count

    35
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 Neutral

عن العضو مستخدم الاوفس

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    emplooy
  • بلد الإقامة
    iraq

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. السلام عليكم اخي العزيز انا ممكن اساعدك في هذا الموضوع لكن ممكن تشرح اكثر حتى افهم منك انت شنون تحتاج
  2. السلام عليكم ورحمة الله وبركاته يوجد لدي تقرير شهر لكل موظف هذا التقرير موجود في المثال المرفق يضمن التقرير 1- رقم الموظف 2- اسم الموظف 3- القسم 4- التاريخ 5- الوقت الحضور الصباحي 6- الوقت الخروج المسائي 7- المتغيرات يكون الاسم والرقم مكرر حسب ايام الشهر لدي لكل موظف مجموعه من المتغيرات التي تطرأ على هذا الموظف مثلاً من يوم 1 الى يوم 10 لديه اجازه ....مؤشرة في حقل المتغيرات "ج" من يوم 11 الى يوم 19 لديه دوام .... مؤشر في حقل المتغيرات "v" وجب ان يكون لديه في حقل الوقت الصباحي والوقت المسائي (وقت) يوم 20 لديه اجازة اضطرارية ... مؤشر في الحقل المتغيرات "س" من يوم 21 الى يوم 30 او 31 حسب الشهر لديه واجب .... مؤشر في حقل المتغيرات "و" ملاحظة هامه هذه البيانات متغيرة من شخص الى اخر ومن شهر الى اخر لكن المتغيرات ("ج"-"V"-"و"-"س") هي ثابته وكن ايامها تتغير ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ المطلوب هو كود يقوم بالتحقق من الحلات التاليه لديه اجازة من 1-10 يكتب في العمود الاخير يكتب ok لديه لدوام من 11-19 يتحقق من الوقت الدخول الصباحي ووقت الدخول المسائي موجود يكتب في العمود الاخير يكتب ok لديه يوم 20 اجازة اضطراريه يكتب في العمود الاخير يكتب ok لديه واجب من 21-الى 30 او 31 واجب يكتب في العمود الاخير يكتب ok بخلاف الفقرات اعلاه (اي ان اي فقرة غير مطابقة للشروط) يترك العمود الاخير فارغ النوذج مرفق وفقكم الله لكل خير في حالى عدم وجود حل يرجى افدتي بالنصيحه وان اكمل الباقي انا لدي بعض الخبرة البسيطة بالاكواد وعمل شي بسيط لكن لم اتمكن اكمال جميع الحالات كما في الكود المتواضع هنا Sub check_Name() Dim x As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet 1") wslr = ws.Cells(Rows.Count, 1).End(xlUp).Row For x = 2 To wslr If ws.Cells(x, 5) <> "" And ws.Cells(x, 8) = "v" Then ws.Cells(x, 7) = "ok" End If Next x MsgBox (wslr) End Sub المثال.xlsx
  3. اخواني الاعزاء انا قمت بعرض الموضوع سابقاً في المشاركة على الرابط المشاركة السابقة وتم اجابتي من الاخوان وفقهم الله لكل خير لكن الان انا بحاجة الى تعديل الكود بحيث تلائم مع عملي الكود  التعديل هو ان الدالة index تعمل في السطر هنا على ورقة عمل اسمها NASHER وانا لدي اكثر من ورقة يجب اختيار واده منها Formula_To_Value Range("E2:E1000"), "=IF(RC[-3]="""","""",INDEX(NASHER!R2C6:R10C64,MATCH(RC[-4],NASHER!R2C1:R10C1,0),MATCH(BASMMA!RC[-1],NASHER!R1C6:R1C64,0)))" الحاجه هو انني عملت مثال ووضعت خلية J1 في ورقة Basmma تحوي على قائمة باسماء الاوراق المراد جلب البيانات منها اقوم بتحديد الورقة من القائمة فيعمل على تعديل السطر البرمجي وتغيير اسم الورقة فقط من NASHER الى اسم الورقة المختارة وم القائمة ويجلب البيانات منها وفقكم الله لكل خير
  4. السلام عليكم ورحمة الله وبركاته اخواني الاعزاء انا قمت بعرض الموضوع سابقاً في المشاركة على الرابط المشاركة السابقة وتم اجابتي من الاخوان وفقهم الله لكل خير لكن الان انا بحاجة الى تعديل الكود بحيث تلائم مع عملي الكود التعديل هو ان الدالة index تعمل في السطر هنا على ورقة عمل اسمها NASHER وانا لدي اكثر من ورقة يجب اختيار واده منها Formula_To_Value Range("E2:E1000"), "=IF(RC[-3]="""","""",INDEX(NASHER!R2C6:R10C64,MATCH(RC[-4],NASHER!R2C1:R10C1,0),MATCH(BASMMA!RC[-1],NASHER!R1C6:R1C64,0)))" الحاجه هو انني عملت مثال ووضعت خلية J1 في ورقة Basmma تحوي على قائمة باسماء الاوراق المراد جلب البيانات منها اقوم بتحديد الورقة من القائمة فيعمل على تعديل السطر البرمجي وتغيير اسم الورقة فقط من NASHER الى اسم الورقة المختارة وم القائمة ويجلب البيانات منها وفقكم الله لكل خير
  5. السلام عليكم ورحمة الله وبركاته اخي العزيز هل بالامكان العديل على الكود بحيث يتلائم مع احتياحي بحيث اقوم بتحديد ورقة العمل التي اقوم بجلب البيانات منها اعتمادً على قائمة باسماء اوراق العمل موجودة في الخلية j1 فرضاً هذا هو الكود في المثال الاول Sub Kh_Formula_To_Value() Dim MyCalcu As XlCalculation With Application MyCalcu = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With Sheets("BASMMA").Select Range("E2:E1000").Select Selection.ClearContents Formula_To_Value Range("E2:E1000"), "=IF(RC[-3]="""","""",INDEX(NASHER!R2C6:R10C64,MATCH(RC[-4],NASHER!R2C1:R10C1,0),MATCH(BASMMA!RC[-1],NASHER!R1C6:R1C64,0)))" With Application .ScreenUpdating = True .Calculation = MyCalcu End With End Sub
  6. السلام عليكم اخي العزيز لدي تعديل هو ان لا احتاج ان اختار من كومبو بوكس اسم محدد ولا احتاج ان يظهر لي اصلا انا بحاجة الى جلب كافة البيانات من الورقة المختارة في القائمة وفقك الله لكل خير
  7. السلام عليكم ورحمة الله وبركاته يوجد لدي بيانات في العمود c تحوي على وقت او قد لا تحتوي انا بحاجة الى كود يقوم بفحص محتويات الخلية في حالة يوجد بها اكثر من وقت يقوم بالتاكد اذا كان وقت صباحي فيقوم بعرض اول وقت صباحي في عمود الوقت الصباحي d و يعرض البصمة المسائية اخر بصمة مسائية في العمود e اما في حالة وجود فقط وقت صباحي فيعرض الوقت الصباحي في عمود الوقت الصباحي اما في حالة وجود وقت مسائي فقط فيعرض الوقت المسائي في عمود الوقت المسائي اما في حالة عدم وجود اي وقت فلا يعرض اي شي البيانات في المثال المرفق وفقكم الله لكل خير المثال.rar
  8. السلام عليكم ورحمة الله وبركاته لدي فكرة جديد على المرفق وهي تحديد الورقة التي يقوم بجلب البيانات منها اي اقوم بالضغط على الخلية J1 يتم عرض اسماء الاوراق ويتم اختيار الورقة المناسبة مع العلم اني الجدول هو نفسة في كل الاوراق لكن البيانات تختلف (هيكلية الجدول ثابته في كل الاوراق) وفقكم الله لكل خير المصنف1.rar
  9. وفقك الله لكل خير لكن لدي بعضممكن اخي العزيز تشرحلي المود في السطر البرمجي ولو ردت ازيد من النطاق يجب ان اغير على الكود هذا Formula_To_Value Range("E2:E1000"), "=IF(RC[-3]="""","""",INDEX(NASHER!R2C6:R10C64,MATCH(RC[-4],NASHER!R2C1:R10C1,0),MATCH(BASMMA!RC[-1],NASHER!R1C6:R1C64,0)))" هنا استخدم دالة INDEX لكن الصيغة غير مفهومة MATCH(RC[-4],NASHER!R2C1:R10C1,0) انا غير وضحه لدية الصيغة بهذه الطريقه الى مذا تشير RC[-4] ممكن شرح بسيط
  10. السلام عليكم ورحمة الله وفقكم الله لكل خير انا لدي ورقة اكسل اسمها bASMMA فيها مجموعة بيانات مشتركة مع الورقة الثانية NASHER انا بحاجة الى جلب البيانات من الورقة NASHER ليقوم بوضعها في ورقة bASMMA استناداً الى الرقم والتاريخ انا اقوم بالعملية من خلال دالة iNDEX احتاج الى العمل من خلال الكود وفقكم الله المصنف1.xlsx
×
×
  • اضف...