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

ارجو ان يكون هذا ما تريد الغاء الفرز او التجميع بالكود.rar

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

السلام عليكم حل بالمعادلات في المرفق... ن علية حاجي معدل التقدير.xlsx

أستاذ سليم - حفظك الله تم الأمر بنجاح جزيت خيرا

استبدل المعادلة الى هذه (Ctrl+Shift+Enter) بعد تغيير اسم الصفحة من شهر 1 الى Month1 =INDEX(Month1!$B$2:$B$218,MATCH((D2&"*"&C2),Month1!$E$2:$E$218&"*"&Month1!$D$2:$D$218,0)) الملف مرفق salim_formula.xlsm

بعد إذن معلمنا الأستاذ إبراهيم الحداد يجب عليك تغير نهاية أعمدة البحث حتى تعمل المعادلة جيدًا تم التعديل إلى نهاية التي وضعتها وتم إضافة شرط لو وضعت تاريخ خطأ يكون الناتج فتعدل معادلة لجلب اسم على اساس شرطين(1).xlsxارغ

اكيد ان رقم buy_id هو رقم و لا يسمح بالتكرار لذلك قم بتعدیل الكود DoCmd.OpenForm "buy", acNormal, , "[buy_id]=" & Me.buy_id

=VALUE(MID(E3;MIN(IFERROR(FIND(ROW($A$1:$A$10)-1;E3);""));FIND(" ";E3;MIN(IFERROR(FIND(ROW($A$1:$A$10)-1;E3);"")))-MIN(IFERROR(FIND(ROW($A$1:$A$10)-1;E3);"")))) بعد نسخ المعادلة اضغط كنترول+شيفت+انتر لانها معادلة صفيف ولكن اجعل مسافة بين الارقام والحروف

بارك الله فيكم استاذ سليم

أول حقل يذهب اليه المؤشر بعد الضغط على إنتر هو TCode .. أذاً لوكتبت كود للتحقق من إسم المريض فى حدث On Got Focus ان كان خاليا ام لا سيفى بالغرض Private Sub TCode_GotFocus() If IsNull(Forms!New_Project!Pname) Then MsgBox "لا يمكن ترك إسم المريض فارغا" Cancel = True Forms!New_Project!Pname.SetFocus End If End Sub هذا والله أعلم تحياتى

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

Private Sub w1_Exit(Cancel As Integer) ' اجبار المستخدم على ادخال رقم الوارد If IsNull(w1) Or w1 = "" Then MsgBox " عفوا ...! يجب اخال رقم الوارد " DoCmd.CancelEvent w1.SetFocus End If End Sub هذا هو الكود في حدث On Exit

اخي حسنين 🙂 بدل ان تكتب If isnull(Me.Pname) = false or Me.Pname = "" Then يمكنك استبدالهما بهذا السطر If Len(Me.Pname & "") = 0 Then جعفر

وعليكم السلام ورحمة الله و بركاته،،، كلامك سليم، وهذا ما حدث معي بالضبط، بالنهاية رجعت لإصدار 2010. أشكرك

وعليكم السلام 🙂 الحل في هذه الاختيارات: جعفر

السلام عليكم ان الترقيات الي مجموعة الخبراء او فريق الموقع ، الأصل فيها أن تتم بناء على ترشيح المشرفين (فريق الموقع) لقرب تفاعلهم مع الجميع و الامر لا يخلو من استثناء بسبب سابق تميز العطاء حتى و ان كان فى مواقع اخرى أو خبرة كبيرة ملموسة أو ما شابه. اما التنفيذ فيكون من خلال الادارة لانه يتم من خلال لوحة التحكم االخاصة بالمنتدى ، فيتم الترشيح فى قسم فريق الموقع و يبقي الموضوع لعدة ايام لاتاحة الفرصة لابداء الرأي و فى حالة عدم وجود ما يمنع اقوم بالتنفيذ وكما ورد فى الية الترقيات فى الموضوع المثبت فى الصفحة التاسعة : الترشيحات : بالاضافة الى ما سبق ، يمكن لمن يري انه يستحق الترقية الى اي من الدرجات السابقة سواء من دافع االستحقاق او الرغبة فى العطاء و المساهمة بصور اكبر ان يراسل الإدارة على بريد net.officena@admin ، و يرجي عدم متابعة الرد ، فعدم الرد يعني تأجيل تنفيذ المطلوب تبعا للنظام العام

examp 21_semo.accdb

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

لقد قمت بتحميل ملف كبير جداً يصعب فيه مراقبة سير المعادلات لذا وضعت لك هذا النموذج يمكن فيما بعد تكبير النطاق الى اي رقم تريد واذا اردت يمكن ان تكون التنيجة في صفحة اخرى الكود Option Explicit Sub find_missing() Dim i, k%: k = 1 Dim Rg As Range: Set Rg = Range("a1").CurrentRegion Dim coll_1 As Object Dim coll_2 As Object Dim arr1, arr2, total_arr() Set coll_1 = CreateObject("system.collections.arraylist") Set coll_2 = CreateObject("system.collections.arraylist") Range("G2:H" & Rows.Count).ClearContents With coll_1 For i = 1 To Rg.Cells.Count If Not .contains(Rg.Cells(i).Value) Then .Add Rg.Cells(i).Value End If Next .Sort arr1 = .toarray .Clear End With '========================== With coll_2 For i = 1 To Rg.Cells.Count If Not .contains(i) Then .Add i End If Next .Sort arr2 = .toarray .Clear End With Range("G2").Resize(UBound(arr1) - LBound(arr1) + 1) = _ Application.Transpose(arr1) '==================== For i = 0 To Rg.Cells.Count - 1 If IsError(Application.Match(arr2(i), arr1, 0)) Then ReDim Preserve total_arr(1 To k) total_arr(k) = arr2(i) k = k + 1 End If Next Range("H2").Resize(k - 1) = _ Application.Transpose(total_arr) Erase arr1: Erase arr2 Set coll_1 = Nothing: Set coll_2 = Nothing End Sub الملف مرفق Find_Missing .xlsm

السلام عليكم أخي الفاضل إن إصدار Word 2013 لا يقبل بعض الخطوط أو يبدي نتائج غير متوقعة و قد اضطررت في بعض الأحيان إلى اللجوء إلى خطوط شبيهة أو العودة إلى إصدار ٢٠١٠ إلم أتمكن من الترقية إلى٢٠١٦ مع تمنياتي بالتوفيق

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

يا اخى الله يرضى عنك السجل التانى اللى فيه 4.500 الكمية المتبقيية المفروض تكون كام هل المفروض تكون 6000 - -4.500 =1500 ولو فرضنا مثلا فى رقم تانى تحت ال 4.500 فى السجل اللى وراه مثلا 1000 هل المفروض النتيجة تكون 6000 - 1000 = 5000 يا اخى الله يرضى عنك قلت لك اعمل الارقام يدويا لاكتر من اربع سجلات علشان افهم

السلام عليكم ورحمة الله وبركاتة هذا المثال / للأستاذة زهرة العبدالله عن الدالة DLookup_ELookup وأضعه هنا بناء على طلب احد الاعضاء لأن طلبه كان في موضوع قديم جدا للاستاذة ::بالتوفيق للجميع :: za_DLookup_ELookup.rar

السلام عليكم ورحمة الله وبركاته ظهر في الاونة الاخيرة تزايد الاستفسار عن الجمل الشرطية وكيفية استخدامها, ولما لها من الاهمية الكبيرة في الاستخدامات المتعددة والمتكررة حتى يكاد لا يخلو يرنامج من استخدام احدى الدوال الشرطية المتعددة ، وبالنسبة الي اجزم انها اهم جمل ودوال ال vba لذلك سابدا بعمل سلسلة لشرح هذه الدوال والجمل وهذا باب مفتوح لكل من يريد المساهمة في انهاء هذه السلسلة وسنقوم بتداولها بطرق سهلة حتى تتم الفائدة للكل ومهما كان مستوى المشارك . اما الجمل والدوال التي سنتاولها فهي : 1. جملة اذا المشروطة if ... then 2. جملة الانتقال الشرطية if .. then .. else 3.جملة الانتقال الشرطية if .. then .. else المتعددة والمتشابكة 4.جملة التفرغ المتعددة case 5.دالة التحويل switch 6.دالة الاختيار المرتب choose الموضوع ليس معقد واسهل مما تتوقعونه وستلاحظون الامكانات الهائلة لهذ الدوال والجمل وتعد من اهم دوال ال vba لكن يجب فهمها بالطريقة الصحيحة ومتابعتها والتطوير في استخدامها وسنبدأ اليوم بالموضوع الاسهل " جملة اذا المشروطة if ... then " واذن الغالبية لديهم الالمام فيه ولكن حتى تتم الفائدة يجب البداية من السهل وهنا مرفق يشرح القاعدة بطريقة سهلة وبسيطة واتمتى التوفيق للجميع أخوكم عماد الحسامي HOSAMI IF THEN.rar

الله يرحم استاذ عماد الحسامي .. ويبارك في شخصك اخي ارسلان

تفضل استاذي الكريم للامانة العلمية هذا المثال منقول remember.rar

السلام عليكم مادمت اخذت طريق الاستعلام CrossTab ، فهناك شئ جدا ضروري يجب ان تعرفه ، ولقد كلفني الكثير من العناء والمشقة والتفكير والتصليح والوقت في سبيل معرفته لما تعمل الاستعلام ، فانك تعمل حقل "عناوين الاعمدة" Column Headings ، والعناوين مثل ما ترى هنا ، هي "1-6" و "7-12": واذا القينا النظر الى بيانات الجدول ، سنرى انها تحتوي على بعض الاشهر من 1 الى 12 وعليه ، نتيجة الاستعلام ستكون: ونتيجة النموذج (او التقرير) ستكون: ولكن اذا لم تكن هناك قيمة لأحد الاعمدة (لاحظ في الصورة التالية) ، لقد حذفت سجلات الاشهر من 7 الى 12 من الجدول ، لذا فلا توجد بيانات للعمود 7-12 ، اي لا يوجد حقل اسمه 7-12: فنتيجة الاستعلام ستكون بدون ذلك الحقل (لاحظ عدم وجود عمود اسمه 7-12): ولكن نتيجة النموذج (او التقرير) ستكون: هناك طرق لحل هذه المشكلة: 1. برمجيا عن طريق QueryDef ، بحيث تعيد عمل الاستعلام: TRANSFORM Sum(Table1.ammount) AS Sumمنammount SELECT Year([dates]) AS السنة FROM Table1 GROUP BY Year([dates]) PIVOT IIf(Month([dates]) Between 1 And 6,"1-6","7-12"); وتعدل في عناوين اعمدة الاشهر ، بحيث اذا الاشهر ما موجودة في الجدول ، فانك لازم تحذفها من الاستعلام ، وتعيد حفظ الاستعلام بمعلوماته ، وكود التأكد والتغيير يجب ان تعمله في كل مرة تريد ان تشغل الاستعلام. 2. عند فتح النموذج (او التقرير) : بحيث تضع كود يفحص اذا كان هناك حقل اسمه 7-12 ، فاذا لم يوجد ، فيجب ان تحذف مصدر عنصر الحقل. 3. وهذا ما توصلت اليه أخيرا وبعد مشقة وعناء: في اعدادات الاستعلام ، اكتب اسماء الاعمدة في اعدادات الاستعلام ، وعليه اسماء الاعمدة ستكون دائما موجودة ، بغض النظر اذا كانت هناك بيانات ام لا: ونتيجة الاستعلام: ونتيجة النموذج (او التقرير): جعفر 87.1.Database1.accdb.zip

السلام عليكم ورحمة الله وبركاته استكمالاً لسلسلة شرح الجمل الشرطية واتخاذ القرارات سيتم اليوم تكملة السلسلة كاملة حيث سارفق أخر جزئيب وهما: جملة ال Switch جملة ال choose وبذلك تم الانتهاء من هذه السلسلة بتكملة الاجزاء كاملة وكذلك نم عمل ملف كامل للجمل الشرطية كاملة مرفق اخوكم عماد الحسامي switch ...statment.rar choose ...statment.rar الجمل الشرطية كاملة (الحسامي).rar

الوصلة المختصرة للموضوع : bit.ly/3B8lXSU هذا الموضوع سيحوي فهرس المواضيع التي سيتم نشرها تباعا باذن الله تعالي منهج الدورة سنبدأ الدورة باذن الله تعالي بالأشياء العملية التي تحدث فرق فى القراءة ثم نتوقف لحلقة واحدة عند الظروف المناسبة للقراءة و بعدها نبدأ بإذن الله تعالى فى المنهجيات و الاستراتيجيات الخاصة بالقراءة الفعالة 1- الحلقة الأولي - المقدمة 2 فبراير 2009-اضغط هنـــــا الأشياء العملية التى تُحدث فرق فى سرعة و كفائة القراءة 2- الحلقة الثانية - التلفظ - 2 فبراير 2009-اضغط هنـــا 3-الحلقة الثالثة - حركة العين - 4 فبراير 2009- اضغط هنــــا 4- الحلقة الرابعة- دليل توجيه العين - 7 فبراير 2009- اضغط هنــــا 5- الحلقة الخامسة - تدوين الملاحظات - 7 فبراير 2009- اضغط هنا 6-الحلقة السادسة - الخرائط الذهنية - 11فبراير 2009 - اضغط هنا 7-الحلقة السابعة - تهيئة الظروف المناسبة للقراءة - 15 فبراير 2009 - اضغط هنا بداية حلقات استرتيجية القراءة الصحيحة (فيلبس ميندل) 8-الحلقة الثامنة - المسح و التصفح - 20 فبراير 2009 - اضغط هنا 9-الحلقة التاسعة - القراءة التمهيدية - التركيب - 28 فبراير 2009 - اضغط هنا 10-الحلقة العاشرة - القراءة التمهيدية -الفكرة الرئيسية - 8 مارس 2009 -اضغط هنا 11-الحلقة الحادية عشرة - القراءة التمهيدية - المواضيع - 8 مارس 2009 - اضغط هنا استراتيجيات و تكنيكات أخري للقراءة: 12-الحلقة الثانية عشرة - SQ3R , SARGE, MyStrategy 20 مارس 2009 - اضغط هنا 13-الحلقة الثالثة عشرة KWL KWL ماذا نعرف و ماذا نريد ان نعرف و ماذا عرفنا؟ 29 مارس 2009 - اضغط هنا 14-الحلقة الأخيرة الذاكرة و أساليب الحفظ و التذكر - 28-مايو 2009 اضغط هنا المراجع: كتاب مهارات القراءة السريعة المؤلف : جوبيس تيرلي كتاب القراءة السريعة المؤلف توني بوزان كتاب القراءة الصحيحة المؤلف : فيليبس ميندل دورة تدريبية حضرتها فى القراءة السريعة مقتطفات من عدة مواقع على الانترنت