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

برنامج حسابات و فواتير مشتريات و مبيعات و عملاء و موردين و مستودعات و حسابات ختامية فوق الوصف ينافس الاوريكل و السيكوال سيرفر العيب الوحيد لا يعمل على الانترنت رابط التحميل http://www.mohasebmoslem.com/prog/moslem.rar رابط فيديو التسطيب http://www.mohasebmoslem.com/other_prog/setup_moslem.rar

معادلة رائعة اخي سليم ولكن للتسهيل على الاخ محمد تفضل الدالة المعرفة دي ضع هذا الكود داخل موديول Function YAS(x As Range) For Each Rng In x If IsNumeric(Rng) = True Then Y = Y + 1 Else GoTo 1 End If Next 1 YAS = Y End Function وفي اي مكان ضع المعادلة التالية =YAS(B4:B200) وتستطيع ان تحدد النطاق الذي تريده ضمن اي عمود المثال مرفق لتجنب بعض عيوب الدالة التى قد تظهر في بعض الحالات تستطيع استبدالها بالكود الاتي Function YAS(x As Range) For Each Rng In x If Application.WorksheetFunction.IsNumber(Rng) = True Then Y = Y + 1 Else GoTo 1 End If Next 1 YAS = Y End Function حسب المناسب لك احصاء الاعداد فقط قبل اول نص.rar

الإخوه الكرام السلام عليكم معظم الاحصائات غالبا ما تنفذ بالدوال ..... فهل ممكن عمل ذلك عن طريق الأكواد في الملف المرفق ؟ شاهد المرفق احصا بالكود.rar

بعد اذن الأخوة الأعزاء سليم حاصبيا و عمر الحسيني واثراءاً للموضوع جرب المرفق التالى abo_abary_قوائم فصول الية1.rar

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

بعد اذن الاخ سليم حاصبيا الاخ محمد كبيش طريقة اخري بها 1- جميع الأمديه ديناميكية 2- اربع حقول للفلترة يمكن الفلترة علي أي عدد من الحقول 0 أو 1 أو 2 أو 3 أو 4 3- أوتوماتيكيا يتم تحديد 1- ناحية االطباعة 2- الصفوف المكررة إلي الأعلي 3- عدد السجلات المفلترة شاههد المرفق قاعدة بيانات ديناميكية.rar

اليك الملف جاهزاً تم حمابة الخلايا التي تحتوي على معادلات (لعدم العبث بها عن طريق الخطأ) قوائم فصول اليةsalim protect.rar

السلام عليكم و رحمة الله و بركاته. الكل يعلم أن هناك مشاكل عديد تحصل عند حقل من نوع ترقيم تلقائي، و من أهمها التسلسل عند حذف سجل معين يختل التسلسل الرقمي. لذلك اقترح حلا ربما يكون مناسبا لتعويض حقل الترقيم التلقائي. هذا الحل يقوم بما يلي : 1- إضافة رقم تلقائيا و متسلسلا كلما أضفنا سجل جديد. 2- يقوم بإعادة ترقيم جميع السجلات عند حذف سجل معين من أجل الحفاظ على التسلسل الرقمي. الكود كالتالي: في حذث الحالي للنموذج نكتب: Me.الرقم = CurrentRecord في حدث عند النقر لزر الحذف نكتب: On Error Resume Next DoCmd.RunCommand acCmdDeleteRecord Me.Requery DoCmd.GoToRecord , , acNext For i = 1 To Me.Recordset.RecordCount Me.الرقم = CurrentRecord Next i DoCmd.GoToRecord , , acLast لكم التعليق و الإضافة أو إكتشاف الأخطاء و تحسينها. تقبلوا تحيات أخوكم صالح حمادي... تعويض الترقيم التلقائي.rar

حتى يعمل زر الطباعة لابد من كتابة التاريخ : من . . . الى اكتب تاريخين من الى ثم جرب الطباعة مع مراعات ان يكون عمود التاريخ K منسق بتنسيق التاريخ

أخى أبو عبدالبارى نعم لقد أدت الغرض المطلوب أشكرك وجعلك الله عونا لكل من يحتاجك

مرحبا جرب أخي المرفق جديد الاصناف1.rar

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

اختر تنسيق الخلية ثم تنسيق مخصص واكتب ,# ويمكن تجربة تنسيقات أخرى فقط اكتب # ثم الفاصلة ثم صفر ثم فاصلة وهكذااا تقبل مروري .... TEST(2).rar

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

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

تم معالجة الامر Perfet fact final form1.rar

الاخ aladdien شاهد المرفق All Files.rar

اخي في هذا الموضوع لا حاجة الكود اعتقد ان الامر يمكن تطبيقه بمعادلة بسيطة انظر الى المرفق احصاء الاعداد فقط قبل اول نصsalim.rar

بعد اذن الاخ ياسر الغربي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Start = 4: t = 0 Do Until Not IsNumeric(Range("B" & Start).Offset(1, 0)) t = t + 1 Start = Start + 1 Loop [k1] = t + 1 End Sub

الأخ الكريم طائع السلام عليكم جرب المعادلة التالية لعلها تفى بالغرض =IF($C15="";"";IF(OR(I15="غ";AND(H15<$H$14;I15<$I$14);AND(H15="غ";I15<$I$14));"راسب";IF(H15>=$H$14;"ناجح";IF(AND(H15<$H$14;I15>=$I$14);"ناجح دور ثان ")

اين الرد طرحت مشكلتك فهل حلت كما شرح لك الاخ مصطفى ام مازالت وشكرا والسلام عليكم