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

السلام عليكم اضع بين ايديكم برنامج خاص بالمعلمين والاجازات المرضية والعرضية واللجان حسب النظام المتبع في بلدنا الاردن اتمنى لكم الفائدة اجازات المعلمين.accdb

Between (IIf(Len([Forms]![tabf2]![start] & "")=0;Nz([numx];"0");[Forms]![tabf2]![start])) And (IIf(Len([Forms]![tabf2]![end] & "")=0;Nz([numx];"0");[Forms]![tabf2]![end]))

هذا البرنامج تعبت عليه منذ ما يقارب 3 اشهر .. ارجوا ان تستفيدوا منه .. ولا ارغب سوى بالدعاء لي بالصلاح والهدايه .. واي استفسار انا جاهز به ان شاء الله .. اخوكم اسماعيل .. Customers.rar

اخى الكريم كل البيانات الناتجة تمام بالنسبة للمعطيات فعل سبيل المثال ليس للصف الأول المتوسط اجمالى اقساط للمدرسة م8 ,فمنطقى ان لا يعطى نتيجة ,فلمل تقول النتائج غير دقيقة النتائج بالنسبة لما هو معطى مع المعادلة 100 % صحيحة ولكن سأنفذ لك الملف على المرحلة فقط كما تريد تفضل لك ما طلبت اقساط طلاب.xlsx

اذا كان اسم الطابعة معروفه مسبقا ضع هذا الكود قبل امر الطباعة SetDefaultPrinter (HP laserjet 1510)

شكراً لك و وفقك الله . لم أحمله بعد لكن متأكد أني فيه من الجديد ما يستحق الاهتمام و المتابعة .

السلام عليكم إذا عمل كود أخي أبو ياسين بعد التعديل الذي قمت به ؟ بإضافة Ptrsafe ؟ شكراً أخي @ابو ياسين المشولي كنت أبحث عن هذا الكود . شكراً لك أخي @حسن احمد التميمي

تم عمل المطلوب في الملف الأول تحكيم سباق.xlsm

احسنت استاذى الكريم جزاك الله كل خير

وعليكم السلام ورحمة الله وبركاته ركز: افتح النموذج المستمر بشكل عادي اختر علامة التبويب: الصفحة الرئيسية من خيار لون التعبئة/ الخلفية البديل اختر اللون الذي تريد لاحظ الصورة

=Round([number1]*[number2];2)

Private Sub ÃãÑ499_Click() If IsNull ([21]) Then [21] = [24] + [25] [38] = [36] + [37] End If End Sub اخي الكريم جرب هذا الكود

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

لو فواصل الصفحة اتوماتيكية لن تحدث هذه المشكلة .. بمعنى لو فواصل الصفحات خطوط متقطعة سيتم تحديد الصفحات تلقائيا . وفي هذا الملف الفواصل خطوط متصلة اي بمعنى انها من تنسيقك وانت من حدد الصفوف في كل صفحة

السلام عليكم تستطيع عمل بيفوت تيبل Pivot Table سريع وبالنسبة لموضوع الطباعة لكل مندوب ، إتبع ما بالصورة البصمة_الجمع_down.xlsm

البرنامج على الاميل

وعليكم السلام احسنت وبارك الله بك اخي عبد اللطيف برنامج قيم ورائع ويصلح لانظمة بعض الدول العربية

البرنامج لا يفتح حاول مره اخره اضغطه وارسله

تم التعديل المطلوب بإضافة شرط إذا كانت الخلية b فارغة يعطي فراغ وفي عمود معدل السرعة شرط إذا كانت الخلية b فارغة يكون الناتج 0 حتى يتم الترتيب المطلوب تحكيم سباق.xlsm

كلك ذوووق

تفضل اخى الكريم Sub Importsheet() Dim Importsheet As Worksheet Sheets.Add Type:= _ "C:\Users\ali mohamed\Desktop\Testing1.xls" End Sub

تم التعديل على الكود لمنع هذا الشي Option Explicit Dim Old_value Dim New_value Private Sub Worksheet_SelectionChange(ByVal Target As Range) Old_value = Target.Cells(1, 1).Value End Sub '============================================== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo Final_Step If Intersect(Target, Range("A1:F12")) Is Nothing Then GoTo Final_Step New_value = Target.Value If Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" And Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" Then Target.Value = New_value Else Application.Undo End If Final_Step: Application.EnableEvents = True End Sub

وعليكم السلام ورحمة الله .... برنامج رائع من رجل رائع ومبادر .... شكرا جزيلا لك أخي الفاضل

تفضل طالما انك لم تقم برفع ملف فعملت هذا الملف لك Sorting Combobox .xlsm

وعليكم السلام .... جرب هذا test (1).mdb

لقد وجدت مشاركتك اخى sx1 وانا الان اقوم بارسال الملف الى ايميلك الخاص ولكن ارجو وضعه بالمنتدى لكى تعم الفائدة وانا على استعداد لاى استفسار