AbuuAhmed

انتبهت أن بعض الدخول يكون مساءً فتوقعت أن هناك خطأ من الموظفين ومع التدقيق وجدت أنهم يخرجون صباحا لليوم التالي أي أنهم يعملون نوبة/شفت ليل. نسخة مدققة ومنقحة كثيرا. AttendanceIII_02.xlsm

نسخة أخيرة منقحة. Sub GetNames() Dim Row As Long, lastRow As Long, firstRow As Byte, valueRow As Byte Dim Col As Integer, lastCol As Integer, firstCol As Byte, Names As String Application.ScreenUpdating = False Sheets("ورقة1").Select '------------------ التحديد اليدوي ---------------- valueRow = 4 'سطر البيانات المطلوبة firstRow = 6 'أول سطر في الجدول firstCol = Range("B1").Column 'أول عمود في الجدول lastCol = Range("M1").Column 'آخر عمود في الجدول '-------------------------------------------------- lastRow = Cells(1, 1).SpecialCells(xlLastCell).Row For Row = firstRow To lastRow Names = "" For Col = firstCol To lastCol If Cells(Row, Col) <> "" Then Names = Names & IIf(Names = "", "", " - ") & Cells(valueRow, Col).Text End If Next Col Cells(Row, lastCol + 1) = Names Next Row Application.ScreenUpdating = True MsgBox "تم", vbInformation, "جلب الأسماء" End Sub DATA_07.xlsb

أزلت تعليقي فلا فائدة من كثرة الكلام.

حياك الله يا إبراهيم نسخ ولصق يدويا. أو افتح موضوع جديد تطلب فيها كود لفتح ملف الوورد ونسخ البيانات للذاكرة ثم لصقه في الإكسل ابتداء من الخلية A2 أما إذا كانت البيانات ضخمة فستحتاج إلى عمل كود سلسلة يقوم بنسخ ولصق سجل سجل. موفق أخي.

محاولتي معالجة بيانات الحضور تحتاج غالبا إلى تدخل يدوي، هذا ما استطعت عمله. AttendanceIII_01.xlsm

كلام غير دقيق، نعم في شفرتي هناك مشكلة واحدة لاختلاف في دالة التنسيق بين الإكسل والبيزك، ففي الإكسل "General" تكون في الأكسس "General Number" وهذا سبب بخطأ واحد فقط لرقم 52 والحل إما بعمل تبديل التنسيق للخلية أو تبديله في الشفرة أو نأخذ قيمة Text بدلا من Value للخلية المصدر. كما أنصحك بترك التفاضل بين الخبراء لأننا خضنا معركة كبيرة مع مالك الموقع لتجنب هذا التفاضل بتغيير الوصف من "أفضل إجابة" إلى "تمت الإجابة"، فغالبا تكون بها غبن للآخرين، فالأستاذ عبدالله أسس للكود وقبل طلبك الأخير باستخدام التنسيق، وكذلك الأستاذ محمد هشام قدم حله بعد اطلاعه على الحلين السابقين واستفاد من المقارنة وقد عدل مرفقه بعدها. لا يهمني اختيار جوابي كما فعلت ولا يعني ملاحظتي لك التقليل من جهد أساتذتي فإن أمكنك إعطاء الاختيار لأحد أساتذتي فافعل.

أضف في آخر الكود هذا السطر: Set ws = Nothing

جرب هذه المحاولة بعد الإضافة على كود الأستاذ عبدالله حسب طلبك الأخير. DATA_05.xlsb

بإذن الأستاذ عبدالله ضع سجل البداية في متغير يحميك من الأخطاء: firstRow = 5 'السجل المطلوب For rowIndex = firstRow + 1 To lastRow names = "" For colIndex = 2 To 13 If ws.Cells(rowIndex, colIndex).Value <> "" Then names = names & IIf(names = "", "", " - ") & ws.Cells(firstRow, colIndex).Value End If Next colIndex ws.Cells(rowIndex, 14).Value = names Next rowIndex

عدلت على مثالك ومنها تبديل نوع الحقول من نصي إلى رقمي وبعض إجراءات التحكم وكذلك تحسين شكل النموذج أيضا. bmiTest_03.accdb

مع الاعتذار، ملاحظة "فنية" في الكود، فهو عمليا صحيح 100% ومنظم بشكل جميل. الملاحظة هو هناك زيادة في الشرط غير ضارة يمكن إزالتها للاختصار بهذا الشكل: If bmi < 16.5 Then Me.ww = "نقص حاد بالوزن" ElseIf bmi < 18.5 Then Me.ww = "نقص بالوزن" ElseIf bmi < 25 Then Me.ww = "وزن مثالي" ElseIf bmi < 30 Then Me.ww = "زيادة في الوزن" ElseIf bmi < 35 Then Me.ww = "بداية سمنة" Else Me.ww = "سمنة مفرطة" End If

إذا الكسر مقتطع من رقم كسري مثلا 6.5 فهذا يعني ستة دينار ونصف الدينار وبما أن الدينار يساوي 1000 فلس فنصفها يعني 500 فلسا وليس خمسة فلوس. ثم أن جمع فلس فلوس وليس أفلاس عموما وجود الفاصلة العشرية في الفلوس شيء غريب. على كل كان الحل عندك وبأكثر من خيار ولكن يبدو أنك لم "تهضمه". يفضل أن لا تتجاهل أي واحد ممن سعى لخدمتك حتى وإن لم تجد في محاولته مبتغاك، كلامي للكل وليس لي. جرب أن تشغل الاستعلام أكثر من مرة وأعد مراجعة النتائج. موفق.

محاولتي بخيارين للفلوس وحقل نسبة TEST1_02.accdb

من عيوب برامج الحضور عدم الاهتمام بحقل نوع التسجيل دخول أم خروج وبفقدان هذا الحقل في البرنامج سيكون غير عملي ومرهق جدا للمنشآت التي تعمل بنظام النوبات/الشفتات كالمصانع التي تعمل بثلاث نوبات. وبرمجيا الأمر سهل ولكن يبدو الضعف من مبرمجي هذه البرامج. أخي @ابوخليل لنفس الموضوع ونفس السائل في منتدى الاكسل عملت على تنظيم البيانات قد تستفيد منها لمعالجة بعض التداخلات وغياب بعضها. أنا من نصحته إلى اللجوء إلى منتدى الأكسس لأن معالجة الأمر بالإكسل به صعوية. لم أطلع على محاولتك إلى الآن، الليلة إن شاء الله.

وعليكم السلام موضوعك شائك، ومن أصعب الأمور التي تحتاج إلى سيطرة وخصوصا الموضفين غير الملتزمين بالتعليمات. الموضوع يحتاج إلى كتابة شفرة وربما لو تم بقاعدة بيانات أكسس يكون أسهل. أنا ابتدأت ولم أشأ أن أتراجع، فما عملته لك ليس عمل برمجة أو مبرمج بل هو عمل موظف شؤون موظفين أو سكرتاريا. عموما هذا ما لدي، أنصحك بالاستعانة بخدمات مبرمجي الأكسس ولا يهونون مبرمجي الإكسل. المصنف_03.xlsx