نجوم المشاركات

إصلاح مشكلة الإستيراد لأكثر من سجل من جوجل شيت . في الإصدار الأخير السابق وأتوجه بالشكر للأستاذ @Moosak للفته انتباهي لهذا الخلل . فقد تم بحمد الله تلافي وحل المشكلة من جذورها وإضافة ميزة جديدة وهي التعرف على طول القيمة التي سيتم استيرادها ( للحقول النصية ) . حيث طول الحقل النصي في اكسيس 255 حرف . وبهذا لا يمكن استيراد كامل القيمة اذا كانت أكبر من 255 حرف ، وسيتم ترك الفكرة للمستخدم بأن يكمل الإستيراد بعد ان يتم تقليص قيمة الخليه من جوجل شيت الى 255 أو الغاء العملية بالكامل .. وعليه ، فإن التعديل الجديد حل هذه المشكلة وغيرها .. ------------------------------ Excel Importor 2.0.zip ------------------------------

وعليكم السلام ورحمة الله تعالى وبركاته يمكنك تنفيذ ذلك باستخدام الأكواد ولكن أعتقد أنه سيكون من الضروري أولا تنظيم البيانات في ورقة العمل Menuf بشكل جيد ومن الأفضل كذلك فك الخلايا المدمجة لضمان الحصول على نتائج دقيقة ووضع الدوائر حول القيم المطلوبة بشكل صحيح إذا كان هذا يناسبك فالكود التالي ربما يساعدك في تنفيذ طلبك ' تحديد عرض الدائرة Const xWidth As Single = 40 ' تحديد طول الدائرة Const xlength As Single = 55 Sub AddDrawCircles() Dim dest As Worksheet, CrWS As Worksheet Dim Search As String, dataValue As String Dim ColArr As Long, lastRow As Long, i As Long, col As Long Dim cell As Range, OnRng As Range, shp As Shape, lastCol As Long Dim n As Boolean, a() As String, ky As Variant, r() As String On Error GoTo SupApp Set CrWS = Sheets("main sheet"): Set dest = Sheets("MenuF") Search = Trim(dest.[B1].Value) If Search = "" Then MsgBox "يرجى إدخال قيمة البحث", vbExclamation: Exit Sub SetApp False lastRow = CrWS.Cells(CrWS.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow If Trim(CrWS.Cells(i, 1).Value) = Search Then ColArr = i: n = True: Exit For Next i If Not n Then MsgBox "قيمة البحث غير موجودة على قاعدة البيانات", vbExclamation, "إنتبـــاه": GoTo CleanUp For Each shp In dest.Shapes: If Left(shp.Name, 4) = "Oval" Then shp.Delete Next shp lastCol = CrWS.Cells(ColArr, Columns.Count).End(xlToLeft).Column ReDim a(1 To lastCol - 1) For col = 2 To lastCol: a(col - 1) = Trim(CrWS.Cells(ColArr, col).Value): Next col Set OnRng = dest.Range("A3:I7") For col = 1 To 6 dataValue = a(col) If dataValue <> "" Then For Each cell In OnRng If cell.Value <> "" Then r = Split(Replace(cell.Value, "،", ","), ",") For Each ky In r If CompareValues(tmp(ky), tmp(dataValue)) Then DrawCircle cell: Exit For Next ky End If Next cell End If Next col CleanUp: SetApp True Exit Sub SupApp: Resume ExitSub ExitSub: End Sub '""""""""""""""""""""""""""""" Private Function tmp(ByVal txt As String) As String tmp = Replace(Replace(Trim(txt), " ", " "), "ال", "") End Function '"""""""""""""""""""""""""""" Private Function CompareValues(value1 As String, value2 As String) As Boolean CompareValues = (InStr(1, value1, value2, vbTextCompare) > 0 Or InStr(1, value2, value1, vbTextCompare) > 0) End Function '""""""""""""""""""""""""""""""""""""""""" Private Sub DrawCircle(cell As Range) With cell.Worksheet.Shapes.AddShape(msoShapeOval, _ cell.Left + (cell.Width - xlength) / 2, _ cell.Top + (cell.Height - xWidth) / 2, _ xlength, xWidth) .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Weight = 1.5 .Name = "Oval_" & cell.Address(False, False) End With End Sub '""""""""""""""""""""""""""" Private Sub SetApp(ByVal enable As Boolean) On Error Resume Next Application.ScreenUpdating = enable Application.EnableEvents = enable Application.DisplayAlerts = enable Application.Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End Sub وفي حدث ورقة Menuf Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("B1")) Is Nothing Then AddDrawCircles End If End Sub فورمة - V2.xlsb

السلام عليكم اعضاء المنتدى الكرام من اجل ان تعم الفائدة فهذه للجميع وهذا كله من انجازات هذا الصرح العلمي العظيم اتقدم اليكم بهذا الملف والذي نحتاج به التنسيق الشرطي للأستحقاق حسب الفترة الزمنية الماضية والمستقبلية حيث ان ( اذا مرة على موعد السداد اكثر من يوم يكون لون الخلية احمر , واذا باقي اقبل من اسبوع يكون للون الخلية اصفر واذا كان الأستحقاق اليوم يكون اللون اخضر ) وكما موضح في الملف المرفق مع وافر التقدير وألأحترام مواعيد ألأستحقاق.rar

الدالة تعمل بشكل سليم . وقد تمت تجربتها مراراً على أكثر من مدرسة باخلاف الدوام ( يوم السبت ) وبتواريخ مختلفة . لذا قد أكود عكست التسمية ليس إلا . اجعل التسمية لا تعمل يوم السبت ، وتنتهي مشكلتك

المشكلة لدينا لا تتعلق برأس التقرير فقط التقرير بعد اضافة البيانات الكثيرة اصبح بطيئا عند الفتح وهذا يرجع لأمور من اسبابها : 1- التنسيق الشرطي للألوان في الحقول .. يأخذ وقتا 2- الدوال الخاصة بالتقييم والحالة .. تأخذ وقتا 3- مصدر التفاصيل استعلام بينما مصدر التنسيقات والدوال استعلام وجداول اخرى يوجد عندي حل جذري لتخطي جميع هذه العقبات من غير اخلال بالمخرج الأخير سأحاول انجازه ان شاء الله .. فامنحوني وقتا

وعليكم السلام ورحمة الله وبركانه اليك الملف وبه التعديل ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 5.xlsb وان اردت اي تعديل في الملف فايشر لك كل الود والاحترام

بعد اذن استاذي @Foksh تفضل استاذ @محمد119900 طلبك حسب مافهمت . اليك الشرح والمرفق بعد التعديل . باركود-1.rar

شكرا جزيلا بحجم السماء مهندسنا العزيز @Foksh 😊👏 كفيت ووفيت .. تحفة راااائعة وإضافة قيمة جدا للمكتبة العربية .. جزاك الله عنا كل خير .. وغفر الله لك ولوالديك ولمن تحب 🌹🌷

شكرا لك استاذ وهو كذلك

وين انطباعاتك كي نستمر ولا اكفيت .

ممكن نسخة من البرنامج الرائع وجزاكم الله خير لانى بحثت عنه ولم اعثر عليه

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

للعلم والفائدة : حدث التنسيق في رأس التقرير يأتي بالترتيب الزمني بعد حدث التحميل فلا يمكن تظهر قيمة في حدث تنسيق الرأس مبنية على حدث تنسيق التفصيل خل هذه المعلومة حلقة في ودانك .. طيب الحل ؟ الحل موجود وهو ان نجعل الحدث في الرأس هو عند الطباعة ، لأنه يأتي متأخرا فعند عرض التنسيق لا ترى البيانات ولكن بعد الطباعة تظهر ..... على كل حال انا عملت حركة تحايل على التقرير من اجل نطلع ونعلم ان البيانات سوف تظهر في الطباعة فتح التقارير دوما من نموذج التقارير .. لا تفتح التقرير مباشرة Database44.rar

أستاذي الفاضل / عبد الله بشير عبد الله السلام عليكم ورحمة الله وبركاته غير متاح لي تغيير عنوان الموضوع ولكنه سيكون استكمالا لموضوع (ترحيل بيانات موظف محال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات) أرجو أن يسمح لي أحد السادة المشرفين بذلك حتى لا نقع في أية مخالفة لقوانين المنتدى وإن لم يكن أرجو إفادتي بكتابة موضوع جديد يكون استكمالا لما ذكر أعلاه ولكم خالص الشكر والتقدير

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

اقترب عيد المسلمين مودعين به شهرهم الفضيل أعاده الله علينا وعليكم باليمن والبركات . وتقبل الله منا ومنكم الطاعات وصالح الأعمال . وسأختم به آخر تعديل على هذا المشروع البسيط ؛ متمنياً أن يكون على قدر الجهد المبذول فيه . وأعتذر بداية عن التأخير في انهاء العمل عليه ، ولكن لضيق الوقت ليس إلا . اليوم انهيت تأسيس الأساسيات في برنامج إدارة الحضور والإنصراف الذي يعمل بنظام بصمة الـ QR . وسأذكر بالتفصيل البسيط ما تم إضافته . الإضافات في النماذج :- ربط قارىء QR يعمل عن طريق الـ USB أو عن طريق الجوال بالنظام . دعم كامل لللغة العربية في قراءة رمز الإستجابة السريعة QR . اعتماد اسم الموظف بالإضافة الى رمز الـ QR . نظام التنبيه لضبط الإعدادات الرئيسية في البرنامج عند تشغيله أول مرة . إحصاء لعدد الموظفين ، الحضور ( على رأس عملهم ) ، المجازين ، المغادرات خلال اليوم . ترحيل بيانات الإجازات والمغادرات والحضور بشكل شهري ( بداية كل شهر ) . الإضافات في الأكواد :- تمت مراجعة جميع الأكواد من أي خطأ محتمل في التنظيم أو آلية العمل . تم إضافة فكرة تثبيت برنامج الربط Barcode2Win من خلال الأكواد ، وفي حال عدم وجوده يتم تحميله من الموقع الرسمي ( يتطلب انترنت ) . تم دمج العديد من الإستعلامات في الأكواد لتقليل مكونات وعناصر النظام وتخفيف العبئ عليه . تم تقسيم العديد من الوظائف لسهولة التعامل معها وصيانتها . تم إضافة نموذج لإعادة تهيئة النظام وتفريغ محتوياته ( الجداول ) ، طبعاً باسوورد تأكيد العملية مدمج في أكواد النموذج . العديد من المميزات التي ستجدونها في المشروع

أهلاً وسهلاً بك أخونا @عبد اللطيف سلوم ، تمت دعوتك على جروب الواتس أب

تم إصدار التحديث الجديد من برنامج الحضور والإنصراف - التعديل الثالث ( الإصدار الثاني ) تم استبدال الباركود برمز QR لشموليته في البيانات ودعمه اللغة العربية بشكل جيد . ربط الجوال بالكمبيوتر مع إمكانية قراءة QR من الجوال عند قراءته في آكسيس . تم إدراج البرامج المستخدمة في الروابط للتجربة Barcode2WinSetup18 Exe / APK . بعد نسخ برنامج الـ APK الى الجوال وتثبيته . وتثبيت برنامج الكمبيوتر EXE ، نفتح البرنامج من الكمبيوتر ونطبق الإعدادات كما في الصورة :- بعد تطبيق الإعدادات ، افتح البرنامج من الجوال وقم بتصوير رمز الـ QR الموجود في البرنامج في الجزء 4 ، وسيتم الإتصال بالكمبيوتر بشكل سهل وسريع جداً ( شريطة أن يكون الجوال والكمبيوتر على نفس الشبكة المحلية للإنترنت ) الميزات التي تم تعديلها وإضافتها بشكل سريع :- إضافة فكرة اختيار التسجيل برقم الموظف أو اسم الموظف . إضافة نموذج لتسجيل المغادرات وطباعة إذن الخروج . ميزة المغادرة التي لا يمكن استخدامها إلا في تاريخها . بعض التنسيقات تم تعديلها وضبطها بشكل أفضل من الإصدار السابق . الملف ما زال قيد التطوير لذا سيكون في الوقت الحالي بنفس الصيغة ACCDE البرنامج المرفق APK تم التعديل عليه بحيث تقليل نسبة الخطأ في قراءة اللغة العربية في رمز الـ QR ، بالإضافة الى تعديل الأيقونة الخاصة به .. والمزيد ما زال قيد التعديل والتطوير .. بناءً على طلب أحد الإخوة في جروب الواتس أب سيتم إلحاق فيديو يوضح طريقة العمل على البرنامجين 😎

تم الإنتهاء من تطوير الحضور والانصراف للموظفين وكذلك الأمر بالنسبة للمغادرات والعودة بتضمينهم في رمز الاستجابة السريعة QR . * تم استبدال الباركود بـ QR لشمولية البيانات فيه. الحضور والانصراف عن طريق كرت الموظف ( الباجة ) ، والمغادرات سيتم طباعتها بإذن من الموظف المسؤول. ولا يمكن استخدام المغادرة إلا في تاريخها فقط لمنع الموظفين من التلاعب أو استخدامها أكثر من مرة 😎. وسيتم ادراج البرامج المساعدة لإنشاء الـ QR . وربط الجوال بالكمبيوتر واستخدامه كقارىء QR في اكسيس 😊 .

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

تم إجراء بعض التعديلات والتحديثات على نظام إدارة الحضور والإنصراف كالآتي لما سبق في النسخة الأولى :- إضافة صورة للموظف إما من داخل الكمبيوتر أو من خلال الماسح الضوئي Scanner ، وسيتم تخزين الصور برقم الموظف في مجلد Data الذي سيتم انشاءه تلقائياً عند فتح البرنامج إذا لم يكن موجوداً مسبقاً . تم إضافة الباركود برقم الموظف لإستخدامه لاحقاً في كرت الموظف لتسجيل الحضور والإنصراف . تم تعديل بعض الإحتسابات لحساب التأخير العادي و المتكرر و احتساب الغياب بطريقة تضمن عدم وجود الخطأ بنسبة كبيرة . تم إضافة ميزة تمديد الإجازة للموظفين الذين لهم إجازة غير منتهية ( سارية ) . أو اعتبارها إجازة جديدة وسيقوم النظام بتفعيل الإجازة بعد نهاية الإجازة الحالية الغير منتهية . تم إضافة نظام تتبع عدد الإجازات - ( لتجربته في نموذج طلب إجازة ) - وترحيلها من رصيد الإجازات السنوية ( حسب درجة الموظف الوظيفية ) في الإعدادات تم إضافة طباعة كرت للموظف ( باجة ) بشكل بسيط ولكم مستقبلاً حرية التعديل حسب الرغبة ؛ بحيث تشمل البيانات الأساسية للموظف مع صورته ورقم الباركود لإستخدامه في جميع خصائص النظام . وهنا سيكون الخط المستخدم للباركود مدمجاً في الملف المضغوط لتثبيته على الكمبيوتر - مرة واحدة طبعاً . تم تعديل طريقة عرض التقارير ( للتأخير والغياب ) بحيث تعمل باستعلام داخلي مدمج في الأكواد . سيتم إضافة ملحق لجعل الجوال يقوم بوظيفة قارئ الباركود لقراءة باركود الموظفين عن كارت الموظف لتسجيل الحضور والإنصراف ( كنظام البصمة ). ....... والمزيد ما زال العمل على التطوير جارياً ، لذا عذراً منكم بأن الملف حالياً سيبقى بصيغة ACCDE ، وسيتم إضافة الملف مفتوح المصدر قريباً لأي ملاحظات أو استفسارات ، يسعدني متابعة ملاحظاتكم للعمل على التطوير قدر المستطاع ليشمل معظم الحاجات

اخي الكريم @abouelhassan هي من جوجل مع التعديل عليها واعادة تصميمها حسب حاجتي باستخدام الفوتوشوب . لكن غداً إن شاء الله سأرسل بمشاركة جديده اكثر من رابط مجاني يحتوي على الكثير من العناوين التي قد تحتاجها بكل التخصصات 🤗 .

انتظرونا في التحديثات الجديدة قريباً

كل الاحترام والتقدير لك مرورك الطيب اخي @abouelhassan 🥰

لما أزالتها مدة التدريب بتبقى نتيجة واحدة بتعطى رقم (1) أيا كانت التواريخ

العفو استاذي الخطوات التي احتاجها كالتالي قراءة الباركود ( مكون من رقم وحروف) مثلا 5000Mat ثم يذهب إلى مادة الرياضيات اكتب أنا الدرجة وبعد كتابة الدرجة اضغط على زر enter من الكيبور ليرجع إلى نفس المكان قراءة الباركود مع مسح الباركود هذا الكود فيه نقص خطوه كتابة الدرجة والضغط على enter من لوحة المفاتيح ( الكيبورد )