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

جرب هذا الملف order_up_to_1000.xlsm

نظام الهاتف هو Android يختلف عن نظام Windows ) لذلك لا يمكن لنظام الهاتف ان يقرأ الكود

يمكن ان ينال اعجابكم هذا الملف ايضاً ممكن توسيع نطاق الاسماء (العمودين C و D ) والعلامات حتى 250 اسماً ,ولك حرية اختيار عدد الطلاب الأوائل من الخلية L2 Order_by_notes.xlsm

السلام عليكم ورحمة الله اجعل هذا السطر هكذا Sheets("سجل الصادر").Cells(EndRow + 1, 1).Value = EndRow - 1

الطريقة سهلة جداً إضافة مربع تسمية فوق التقرير الفرعي ومن ثم توجه إلى تبويب | ترتيب | حجم وترتيب | إحضار إلى المقدمة وبالتوفيق Database1.accdb

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

أ.عبدالعزيز محمد جرب المرفق عسى أن يكون ما طلبت .. عذرا إن كانت الطريقة قديمة شويتين .. ولكن الجودة بالموجوده 😃 Aziz.accdb

تم بالفعل عمل استعلام الحاقي مضافا اليه تاريخ آخر ( تجديد - نوع اشتراك - نوع كورس - سعر كورس ) يتم جلب اخر سجل للمشترك و الحاقه بسجل جديد تم تحديد اليوم الأول من كل شهر للتجديد تم وضع الكود في حدث عند الفتح GYM.accdb

نعم المرفق بدون وحدة نمطية example.accdb

استاذي الفاضل لم نبتعد عن الحل السابق في ردي الاول ولكن لكون مصدر القائمة المنسدلة استعلام تم فيه دمج حقلي الدولة والمدينة وبالتالي لن يعمل التنسيق الشرطي الا بكتابة الحقل كاملا وهذا امر غير عملي وفيه تكرار كبير مثلا العراق ربما به اكثر من 50 مدينة وكذلك للدول الاخرى فكان الحل وضع وحدة نمطية لتقسيم حقل العنوان لاستخلاص اسم الدولة ونسخة الى مربع نصي غير مرتبط وهذا الحقل هو مصدر الشرط في التنسيق اللوني علما بانه يمكن الاستغناء عن الوحدة النمطية وتبديل مصدر البيانات للحقل النصي ليكون كما يلي =Mid([العنوان];1;InStr([العنوان];"---")-1)

جرب المرفق تنسيق شرطي بعد استخلاص اسم الدولة من القائمة المنسدلة عن طريق مربع نص غير مرتبط وقيمة المربع تساوي =qsplit([العنوان];0) example.accdb

برنامج الموارد البشرية HR "مفتوح المصدر" يحتوى على التالي : -بيانات الموظف . -الإجازات . - الأذنونات . - تسجيل الحضور يدوياً . - الخصومات . - السلف . - المكافأت . - تقيييم الموظف . - ساعات إضافية . - تقارير. - متابعة الحضور والانصراف . - تسجل الحضور والانصراف بشكل آلي . - تسجل الحضور بشكل يدوي . وخيارات أخرى . وهذا البرامج من تطويري وجدت جداوله في موقع خارجي . لا تنسونا من خالص الدعاء ،،، HR.rar

السلام عليكم اخواني الكرام ابحث عن برنامج صغير يحتوي على(رقم مسلسل-دائن-مدين-الرصيد-التاريخ-رقم الفاتورة-ملاحظات) لو تكرمتم دلوني على من يلبي طلبي ومستعد لدفع قيمة البرنامج ..... البرنامج شخصي دمتم سالمين

استاذ / @أحمد الفلاحجى جزاك الله كل خير ورحم الله والديك في الدنيا والآخره عمل جميل وبه افكار جميله الله يرضى عليك

إن شاء الله وجزاكم الله خيرا

السلام عليكم اولا قبل التحويل الى الى mdb او accde قم بانشاء قاعدة جديدة واستورد اليها كائنات القاعدة القديمة ( جدول ، استعلامات ، نماذج ... الخ ) ثانيا جرب الحل في الموضوع التالي تحياتي

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

جرب هذا الكود (حدد البوكس ثم انتقل الى اي خلية او اضغط Enter) Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) tesl End Sub '+++++++++++++++++++++++++++++ Sub tesl() Dim cb As CheckBox, n For Each cb In Me.CheckBoxes cb.TopLeftCell.Offset(1, -1).NumberFormat = _ IIf(cb.Value <> 1, ";;;", "General") Next cb End Sub الملف مرفق( شيت Key) TEST_xxx (3).xlsm

راجع هذا الموضوع قد تجد ضالتك هنا ......

أستاذ يوليوس قيصر لماذل لا تقوم بالضغط على الإعجاب ؟!!! 💙 وأعتقد ان هذا اقل ما يقدم لصاحب الفضل عليك بعد ربنا فى حل مشكلتك

الأستاذ الفاضل : Ali Mohamed Ali شكرا جزيلا لحضرتك على المجهود الرائع والعمل الممتاز وجعل الله جميع أعمالك في موازين حسناتك ونفعك بها يوم لقاه . وشكرا للمنتدى الغالي على السادة المشرفين والرواد والقائمين على المنتدى لما يبذلوه من جهد لخدمة الجميع .

برنامج HR مفتوح المصدر ربما ينفع معك

نزل هذا البرنامج على جهاز الماك يقوم بتشغيل الويندوز وبرامجه على جهاز الماك https://www.parallels.com/products/business/

تفضل وذلك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Define your variables. Dim ws As Worksheet, EvalRange As Range 'Set the range where you want to prevent duplicate entries. Set EvalRange = Range("A1:a10000") 'If the cell where value was entered is not in the defined range, if the value pasted is larger than a single cell, 'or if no value was entered in the cell, then exit the macro. If Intersect(Target, EvalRange) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub 'If the value entered already exists in the defined range on the current worksheet, throw an 'error message and undo the entry. If WorksheetFunction.CountIf(EvalRange, Target.Value) > 1 Then MsgBox Target.Value & " already exists on this sheet." Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If 'Check the other worksheets in the workbook. For Each ws In Worksheets With ws If .Name <> Target.Parent.Name Then 'If the value entered already exists in the defined range on the current worksheet, throw an 'error message and undo the entry. If WorksheetFunction.CountIf(Sheets(.Name).Range("A1:a10000"), Target.Value) > 0 Then MsgBox Target.Value & " already exists on the sheet named " & .Name & ".", _ 16, "No duplicates allowed in " & EvalRange.Address(0, 0) & "." Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit For End If End If End With Next ws End Sub عدم تكرار المدخلات - 1.xlsm

تحياتي أستاذي الفاضل محمد الفلاحجي هذا المثال يعمل فقط على اوفيس ٢٠١٠ و للأمانة المثال قد قمت بتحميله من نفس الموقع اعلاه و يحتوي على عدة أمثلة أخرى أسأل الله لي و لك التوفيق و السداد

حياك الله في الخدمة

شكرا استاذ ( ابو آمنة ) جزاك الله خيرا ... نعم اصدار 2019

تفضل غيرنا هذا السطر فقط varFilter = "[barcode] = " & Me.xx & "" الكود السابق varFilter = "[barcode] LIKE '*" & Me.xx & "*'" وأيضا تم الاكتفاء بكود واحد search.accdb علماً أن قاعدتك أنشأتها في إصدار حديث يقبل الرقم الكبير في الجدول ولن يستطيع من لديه إصدار أقل مشاهدة البرنامج .

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

مثال Database1.accdb في المثال قاعدة فيها عدد 2 موظف والاول لم يأخد اجازة بدون مرتب فتظهر الخانات فاضية المطلوب ظهور كلمة لا يوجد

تم التعديل على الملف السابق كما تريد بالضبط .... وهذا حل اخر ان اردت يمكنك ذلك من خلال قائمة Data ثم تختار Subtotal إدراج صف تلقائى - 1.xlsm

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

وعليكم السلام حسب فهمي لطلبك انت ترغب في اضافة بيانات للجدول عن طريق نموذج غير منظم بحيث يتم حفظ ما يتم كتابتة في مربعات النص في النموذج للحفظ في الجدول اذا كان فهمي صحيح جرب المثال المرفق لحفظ وتعديل وحذف والبحث عن طريق نموذج غير مرتبط للتعديل والحذف ابحث اولا عن طريق رقم الملف . مثال.accdb

الله الله عليك استاذنا الفاضل / @essam rabea كود جميل جدا جدا الله يفتح عليك ويجزاك خير الطريقة ليست قديمة بل احدث من الحديث

كل الشكر لك استاذي العزيز سليم حاصبيا رغم اني تغلبت على المشكلة وحليتها ولكن ليس بنفس طريقتك فطريقتك سهلة للغاية مقارنة بالطريقة التي حللت بها المشكلة مرفق ملف الحل كما طلب أخي القدير الاستاذ مهند محسن List of Services.xlsx

تمت معالجة الامر Option Explicit Sub MY_Data_New() Application.ScreenUpdating = False Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, ro%: ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) SH_from.Cells(3, 1).Resize(MY_max, 6).Copy With T.Cells(ro, 1) .PasteSpecial (xlPasteValues) .PasteSpecial (xlPasteFormats) End With ro = ro + MY_max End If Next SH_from With T.Range("A3").Resize(ro - 4, 6) .Sort key1:=Range("b3"), Header:=1 End With Application.ScreenUpdating = True arraNge_all End Sub '+++++++++++++++++++++++++++++++++++ Sub arraNge_all() Application.ScreenUpdating = False Dim nro% Dim MM% nro = Cells(Rows.Count, 1).End(3).Row Dim color_rg As Range For MM = 4 To nro If Range("B" & MM).Interior.ColorIndex = 2 Or _ Range("B" & MM).Interior.ColorIndex = -4142 Then GoTo Next_MM If color_rg Is Nothing Then Set color_rg = Range("B" & MM).Resize(, 5) Else Set color_rg = Union(color_rg, Range("B" & MM).Resize(, 5)) End If Next_MM: Next If color_rg Is Nothing Then GoTo Contenu color_rg.Copy Range("B" & nro + 1) color_rg.EntireRow.Delete Contenu: Range("B4", Range("B3").End(4)).Offset(, -1).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" With Range("A3").CurrentRegion .Value = .Value .Borders.LineStyle = 1 End With Range("A4").Select Set color_rg = Nothing create_borders Application.ScreenUpdating = True End Sub '+++++++++++++++++++++++++++++++++++ Sub create_borders() Dim My_sh As Worksheet, r For Each My_sh In Sheets If My_sh.Name <> "Total" Then r = My_sh.Cells(Rows.Count, 2).End(3).Row My_sh.Cells.Borders.LineStyle = xlNone My_sh.Range("a2").Resize(r - 1, 6).Borders.LineStyle = 1 End If Next End Sub الملف الأخير Laste_flie.xlsm

السلام عليكم هذا ملف فيه كود تنبيه TIMER يظهر لك وميض للتنبيه قبل 5 ايام وكذلك بعد 5 ايام من انتهاء المدة (ويمكن تغيير المدة حسب العمل)) ويمكن اظافة رسالة تنبيه له تحياتي test.rar

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

الكلمة الاولى في الحقل احنا نحدد "---" انها هي الفاصل بين الدولة والمدينة ونختار الكلمة التي قبلها

احسنت استاذ ولو اتعبك ارجو ان تعذرني , هل اكتب الكود اعلاه في مصدر بيانات المربع النصي الجديد ؟ والغي الوحدة النمطية

عن طريق تنسيق شرطي Database421.accdb

الاخ عزالدين المنصوري لو مثال صغير ترفعة سيختصر كثيرا من الوقت فى الرد على سؤالك أهلا بك فى منتدى أوفيسنا

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله أهدي لك هذا الملف وهو عبارة عن عدة ملفات في ملف واحد تحتوي على تشكيلة عريضة نسبياً على حد أستطاعتي من المعادلات والأكواد قمت بتجميعها في ملف واحد أرجو أن ينتفع به ومنها الكود الذي طلبته وهو في أول صفحة سوف يفتح فيها الملف. تقبل فائق الأحترام أبو أنس ناصر حاجب ٍٍSupporter2.rar