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

السلام عليكم ورحمة الله وبركاته أقدم لكم موضوع بسيط جداً ومهم جداً ومفيد جداً ... وإن شاء الله بعد الإطلاع على الموضوع من قبلكم سيتم ضربي ضرباً مبرحاً جداً أكواد البداية والنهاية (على وزن سلسلة البداية والنهاية للعلامة ابن كثير) الموضوع يتلخص في كلمتين .. لما يكون عندك كود بيستغرق وقت طويل في التنفيذ ، دا بيرجع أسبابه لعوامل كثيرة ، لن نتظرق إليها لأنه موضوع يطول شرحه .. فجئت إليكم بحل بسيط وفعال ..الحل كالتالي .. تضع الكود التالي (كود البداية وكود النهاية) في موديول دا كود البداية Public Sub YK_Start() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual End Sub ودا كود النهاية Public Sub YK_End() Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub وكلا الكودين مسبوقين بكلمة Public عارفين ليه ؟ عشان تقدر ببساطة تضع الكودين في أي موديول وتستدعيهم من أي موديول آخر كود البداية بيلغي تحديث الشاشة ورسائل التنبيه ويلغي تفعيل الحدث ويخلي الحسابات بشكل يدوي وكود النهاية بيرجع اللي فات للإعدادات الأصلية في الملف المرفق مثال .. كود يقوم بعمل حلقة تكرارية لـ 100000 صف تم استدعاء كود البداية في البداية وكود النهاية في النهاية .. والاستدعاء تم بمحضر من القسم والمحضر مكتوب فيها كلمة واحدة Call يليها اسم الكود المراد استدعائه Sub LoopExample() Dim Cell As Range Call YK_Start Columns("B:F").ClearContents For Each Cell In Range("A1:A100000") Cell.Offset(, 1) = Cell.Value + 1 Cell.Offset(, 2) = Cell.Value + 2 Cell.Offset(, 3) = Cell.Value + 3 Cell.Offset(, 4) = Cell.Value + 4 Cell.Offset(, 5) = Cell.Value + 5 Next Cell Call YK_End End Sub وممكن نستغنى عن الكلمة Call ونكتب اسم الإجراء بشكل مباشر ، بس أنا تقليدي وأحب الالتزام بالتقاليد وأحبذ استخدام كلمة Call وضعت لكم بالملف المرفق كود آخر هو الذي سيتم تنفيذه من خلال ورقة العمل ، يقوم الكود بحساب الوقت المنقضي نفذ الكود ستجد أن الكود يستغرق حوالي 10 ثواني لحظة انتظر من فضلك لا تغلق الملف .. جرب التجربة الثانية .. ضع تعليق من خلال علامة ' (حرف الطاء وإنت بتكتب إنجليزي) ضع هذه العلامة في بداية السطر 'Call YK_Start عند وضع تعليق لا يتم الالتفات إلى هذا السطر أثناء التنفيذ وضع تعليق أيضاً على السطر الخاص بكود النهاية 'Call YK_End ثم نفذ الكود ..ستجد أن الوقت المستغرق حوالي 18 ثانية (يعني أن هناك حوالي - وحوالي جمع حولية والحولية هي النعجة - أعتذر للخروج ، بس مش مشكلة تستفيدوا معلومة في العربي عشان لو طلعتوا مش فاهمين الموضوع يبقا خرجتوا بمعلومة ) ستجد أن الفرق في الوقت 8 ثواني .. يلا الحمد لله وفرنا عليكم 8 ثواني ، وإنتو أكيد عارفين قيمة الثانية وفي النهاية أرجو أن يكون الموضوع مفيد ، وأن تستفيدوا منه ، ولا تنسونا بصالح دعائكم كان معكم أخوكم الموفر للثواني ياسر خليل أبو البراء دمتم بود وتقبلوا تحياتي YK_Start & YK_End.rar YK_Start & YK_End 2003.rar

هذه معادلة ثانية تعطي نفس النتيجة =--(SUBSTITUTE($A2,MID($A2,1,3),950))+1000 و هناك المزيد

بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar

السلام عليكم ورحمة الله تعالى وبركاته ندخل فى الموضوع بالنسبة لربط قاعدة البينات اكسس باالاستضافات والتحكم فى البرنامج الخاص بك من اى مكان فى العالم شرط الاتصال بالانترنت اولا قمت بحجز استضافة مجانيه من هذا الموقع https://somee.com/ وقمت بانشاء جدول SQL للتجربة فقط بهذا البرنامج https://msdn.microsoft.com/en-us/sqlserver2014express.aspx?f=255&MSPPError=-2147217396 ونظرا لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61485&hl= بخصوص الربط وجعل قاعدة اكسس مجرد واجهة قمت باعداد هذا المرفق والذى يعتمد على الاكواد المذكورة فى المشاركة السابقة اما ان تنشء اتصال DNS وتستورد منه الجداول من خلال اكسس او تربط الجداول مباشرة بقاعدة اكسس وتضيف وتعدل فيها وقت ما تشاء ومن اى مكان تحب وعند اختيار ربط الجداول ستجد تلقائيا جدول فى قاعدة البيانات باسم mared تستطيع التعدل والاضافة فيه فى امكان اترككم مع المرفق انشاء اتصال DNS.rar

http://www.samysoft.net/fmm/fimnew/basmla/24235235.gif أسعد الله أوقاتكم بكل خير فيما يلي الدرس الواحد والثلاثون من الدورة المميزة مهارات اكسيل 2013 أتمنى لكم مشاهدة ممتعة ومفيدة دالة البحث VLOOKUP الجزء الثالث استخدام دالة VLOOKUP عبر أكثر من ورقة عمل ويتخلل الدرس تصحيح الأخطاء الناتجة عن دالة VLOOKUP انتظرونا غداً في الجزء الرابع من دالة VLOOKUP (استخدام دالة VLOOKUP المتداخلة لانشاء عمليات بحث معقدة ) لمشاهدة باقي دروس دورة الاكسيل 2013 المنشورة يرجى فتح ا لرابط التالي: دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

الأخت الفاضلة رشا يوسف جرب المعادلة التالية في الملف التالي وأعلمينا بالنتائج ... =IFERROR(IF(B4="ادارى",LOOKUP(C4,{300;310;320;330;340;350;360;370;380;390;400;410;420;430;440;450;460;470;480;490;500;510;520;530;540;550;560;570;580;590;600;610;620;630;640;650;660;670;680;690;700;710;720;730;740;750;760;770;780;790;800;810;820;830;840;850;860;870;880;890;900;910;920;930;940;950;960;970;980;990;1000;1010;1020;1030;1040},{0;0;0;0;0;0;1;1.25;1.5;1.75;2;2.25;2.5;2.75;3;3.25;3.5;3.75;4;4.25;4.5;4.75;5;5.25;5.5;5.75;6;6.25;6.5;6.75;7;7.25;7.5;7.75;8;8.25;8.5;8.75;9;9.25;9.5;9.75;10;10.25;10.5;10.75;11;11.25;11.5;11.75;12;12.25;12.5;12.75;13;13.25;13.5;13.75;14;14.25;14.5;14.75;15;15.25;15.5;15.75;16;16.25;16.5;16.75;17;17.25;17.5;17.75;18}),IF(B4="مدرس",LOOKUP(C4,{300;310;320;330;340;350;360;370;380;390;400;410;420;430;440;450;460;470;480;490;500;510;520;530;540;550;560;570;580;590;600;610;620;630;640;650;660;670;680;690;700;710;720;730;740;750;760;770;780;790;800;810;820;830;840;850;860;870;880;890;900;910;920;930;940;950;960;970;980;990;1000;1010;1020;1030;1040},{5;5.25;5.5;5.75;6;6.25;6.5;6.75;7;7.25;7.5;7.75;8;8.25;8.5;8.75;9;9.25;9.5;9.75;10;10.25;10.5;10.75;11;11.25;11.5;11.75;12;12.25;12.5;12.75;13;13.25;13.5;13.75;14;14.25;14.5;14.75;15;15.25;15.5;15.75;16;16.25;16.5;16.75;17;17.25;17.5;17.75;18;18.25;18.5;18.75;19;19.25;19.5;19.75;20;20.25;20.5;20.75;21;21.25;21.5;21.75;22;22.25;22.5;22.75;23;23.25;23.5}))),"") توضع المعادلة في الخلية C4 شرائح الضريبة.rar

انا بقى عندى فكرة احسن بالنسبة للموضوع دا صلى على النبى احنا هنعمل للبرنامج رقم يعنى مثلا دى النسخة رقم v1.2.mared دا مثلا طبعا شفت الجدول اللى عملته على الاستضافة هنعمل فيه حقل لنفس رقم البرنامج وهنعمل ربط بمعنى طول ما النسخة بتاع البرنامج اللى معاك مساوية لرقم النسخة اللى فى جدول سيكوال شغل البرنامج لو حبيت فى يوم اوقف البرنامج عند اى حد هغير الرقم اللى فى جدول سيكوال وهديلو امر انه ميفتحش طالما الرقم مش متساوى بس دا طبعا له عيب واحد انه لازم يكون عنده انترنت هههههههههههههههههه

الاخ الجليل ياسر والمعلم القدير.... سلمت يداك اخى الحبيب كود فوق الممتاز.. ويبقى طلب ...... محو السحل بعد الترحيل سلمت يداك بكل خير

الأخ الحبيب أبو يوسف إليك شرح الكود وإن شاء الله يكون مبسط وسهل إنك تتعامل معاه Sub Tarhil() 'تعريف المتغيرات Dim WS As Worksheet, SH As Worksheet Dim I As Long, X As Long 'تعيين أوراق العمل التي سيتم تنفيذ الكود عليها Set WS = Sheets("اليومية"): Set SH = Sheets("كشف حساب") 'تعيين قيمة للمتغير ليساوي 12 وهو يمثل أول صف في ورقة العمل المسماة كشف حساب لإدراج النتائج بها X = 12 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'مسح محتويات النطاق الذي سيتم إدراج النتائج به في ورقة العمل المسماة كشف حساب SH.Range("A12:F29").ClearContents 'حلقة تكرارية للصفوف في ورقة العمل المسماة اليومية For I = 11 To 68 'في ورقة العمل المسماة اليومية أكبر من أويساوي تاريخ البداية وأقل من أو يساوي تاريخ الانتهاء [L] إذا كان التاريخ في العمود 'يتم تنفيذ الأسطر التالية If CDate(WS.Cells(I, "L")) >= SH.Cells(7, "G") And CDate(WS.Cells(I, "L")) <= SH.Cells(8, "G") Then 'في ورقة العمل المسماة كشف حساب [D7] تساوي الاسم الموجود في الخلية [D] إذا كانت الخلية في العمود If WS.Cells(I, "D").Value = SH.Cells(7, "D").Value Then 'الخلية في العمود الأول في الصف المحدد تساوي رقم الصف - 11 ليتم تسلسل البيانات SH.Cells(X, "A").Value = SH.Cells(X, "A").Row - 11 'الخلية في العمود الثاني في الصف المحدد تساوي الخلية في العمود الرابع في ورقة العمل اليومية 'سطر يقوم بجلب اسم العميل SH.Cells(X, "B").Value = WS.Cells(I, "D").Value 'سطر يقوم بجلب التاريخ SH.Cells(X, "C").Value = WS.Cells(I, "L").Value 'سطر يقوم بجلب البيان أو اسم الصنف SH.Cells(X, "D").Value = WS.Cells(I, "G").Value 'سطر يقوم بجلب إجمالي المبيعات أو المدين SH.Cells(X, "E").Value = WS.Cells(I, "M").Value 'سطر يقوم بجلب إجمالي الدفعات أو الدائن SH.Cells(X, "F").Value = WS.Cells(I, "N").Value 'زيادة المتغير بمقدار واحد استعداداً لصف جديد في ورقة العمل كشف حساب X = X + 1 End If End If Next I 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub لا تنسانا من صالح دعائك تقبل ودي واحترامي

و هذا ايضاً معادلتين =REPLACE($A2,1,4,9501)+0 =(MID(SUBSTITUTE($A2,LEFT($A2,3),950),1,3)&--(MID(SUBSTITUTE($A2,LEFT($A2,3),950),4,1))+1&RIGHT($A2,3))+0

أخي الكريم ياسين ابو وسام إليك الملف التالي عله يفي بالغرض Sub TransferData() Dim WS As Worksheet, SH As Worksheet Dim X As Long Set WS = Sheets("ترحيل"): Set SH = Sheets("MP LIST") X = SH.Cells(Rows.Count, 2).End(3).Row + 1 Application.ScreenUpdating = False With SH .Cells(X, 1) = .Cells(X, 1).Row - 2 .Cells(X, 2).Resize(, 3) = Application.Transpose(WS.Range("G9").Resize(3)) .Cells(X, 5).Resize(, 7) = Application.Transpose(WS.Range("G14").Resize(7)) .Cells(X, 12) = WS.Range("G22") .Cells(X, 13).Resize(, 5) = Application.Transpose(WS.Range("G24").Resize(5)) .Cells(X, 18) = WS.Range("I28") .Cells(X, 19) = WS.Range("G30") .Cells(X, 23) = WS.Range("G32") .Cells(X, 27) = WS.Range("G13") .Cells(X, 28) = WS.Range("I13") .Cells(X, 29) = WS.Range("G44") .Cells(X, 30) = WS.Range("H44") .Cells(X, 31) = WS.Range("I44") .Cells(X, 32) = WS.Range("G47") .Cells(X, 33) = WS.Range("H47") .Cells(X, 34) = WS.Range("I47") .Cells(X, 36).Resize(, 7) = Application.Transpose(WS.Range("G34").Resize(7)) .Cells(X, 43) = WS.Range("J41") .Cells(X, 44) = WS.Range("G49") End With Application.ScreenUpdating = True End Sub تقبل تحياتي Draft Transfer Data.rar

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

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

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

لم يذكر الأخ الفاضل سعد أي شيء عن الفلترة .. !! فالتعامل في هذه الحالة سيكون مع كافة الخلايا المرئية منها والمخفية

وعليكم السلام أخي الكريم محمد الخازمي إليك الكود التالي بدلاً من كود الاستدعاء الخاص بك Sub GrabDataIfNotFound() Dim SH As Worksheet, I As Long, Cell As Range, Grd$ Grd = Sheets("ورقة1").Range("C3").Value Set SH = Sheets("ورقة1") With Sheets("الاعدادات") For I = 2 To .Cells(Rows.Count, 2).End(3).Row Step 4 If .Cells(I, 2).Value = Grd Then If SH.Columns(3).Find(.Cells(I, 2).Offset(, -1).Value, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then SH.Cells(Rows.Count, 3).End(3).Offset(1).Value = .Cells(I, 2).Offset(, -1).Value End If End If Next I End With End Sub يعتمد الكود في جلب البيانات على تخطي الأسماء الموجودة مسبقاً وجلب البيانات الجديدة أي الأسماء الجديدة فقط ، وإن شاء الله متحصلش خلبة تقبل تحياتي Grab Data If Not Found.rar

ما شاء الله تجميعة من الأفكار رائعة يسّر الله لك كل عسير وجعل الله لك خير الناس خليلا

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

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

زيادة لما تقدّم به الأخ الفاضل زيزو العجوز .. إليك أخي الكريم هذا النموذج للبطاقات المدرسية للطلاب للأستاذ الفاضل بن علية حاجي بارك الله فيه و جزاه الله خيرًا ..طبعًا قم بتغيير ما يجب تغييره البطاقات المدرسية.rar

ارجو ان يكون هذا هو طلبك اخى البطاقة المدرسية.rar

اليك الحل 1212.rar

عن نفسي استخدم دائمًا الاختيار الثاني لأنه أفضل في الشكل وخاصة إذا كان هناك تكملة في الصفحة التالية

السلام عليكم أخي اتفضل حضرتك شوف الملف المرفق فيه طريقتين للحل ولكنها ليست حلول جذرية لأن إظهار كل القيم من طبيعة التشارت عامة طالما انها داخل النطاق Book1_2.rar

السلام عليكم انظر الى هذا بالتفصيل للملف http://www.ozekisms.com/video/video-how-to-send-sms-from-excel/sms-message-from-excel/sms-message-from-excel.html

أنا لسه شايف رسالتك الكريمة... دخلت على العنوان وسأقرأ الموضوع "الحلقة التكرارية" ثم أسجل رأيي الذي هو من الآن "الموضوع أكثر من رائع" لي طلب : في موضوع "طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري خطوة بخطوة" كان هناك كود لإلغاء علامة "X" في الفورم ولكن ما التغيير فى الكود إذا كان عندي أكثر من فورم وأريد إلغاء علامة "X" من جميع الفورم بالبرنامج وجزاكم الله الخير الكثير سأرسل لك أول مذكرة عملتها في الكمبيوتر سنة 1984 (طبعا هذا للتندر وليس للتعلم ولتعرفوا الفرق الكبير بين ما كنا نعرفه زمان وما يتيسر لكم الآن... ربنا يوفقكم ويقويكم). السلام عليكم ورحمة الله وبركاته

السلام عليكم بالمرور السريع علي المرفقات وجدت التالي الملفات باللغة الهنجارية (المجرية) المرفقات بها ملفين الملف الاول Ozeki.xls الملف الثاني Messages.xls الملف الاول Ozeki.xls وبه الكود الرئيسي للبرنامج لابد أن تكون فاتح الملفين قبل تشغيل الكود وبتشغيله يذهب للملفات المفتوحة غير Ozeki.xls وفي حالتنا هذه يجد الملف الثاني Messages.xls فيرسل الرسائل التي به بالعمود B من أول B1 نزولا وترسل الرسائل للأرقام التي به بالعمود A من أول A1 نزولا كل هذا جميل ولكن يعتمد الملف علي موقع خاص وخادم خاص Server مدفوع من قبل وعنوان هذا الـ Server في الملف الاول Ozeki.xls هو كما الخلية B3 ، هو : 127.0.0.1:9501 وطبعا بعد تسرب الملف (لأنه مدفوع الأجر ليس مجانا) بدليل حصولك عليه قام المبرمج بتغيير السيرفر أو الباسوورد

مشاركة معكم اعزائي وللفائدة ! يمكن استخدام الدالة الجديدة weekdayname وسيكون اللغة بناء على اعدادات الويندوز لديك ! وهي تطلب رقم اليوم والكفيل بارجاع رقم اليوم الدالة weekday او format مع الوسيط w !! وكذلك حسب اعدادت اول يوم في الاسبوع من الاعدادات الاقليمية ! =WeekdayName(Weekday((Date()))) =WeekdayName(Format(Date();"w")) بالتوفيق

الأخت الفاضلة جربي المعادلة بهذا الشكل =IF(OR(D4="ادارى",D4="نشاط",D4="خط"),IF(AND(OR(B4="الخامسة"),ROUND(E4*1.5,2)>=400),400,IF(AND(OR(B4="الرابعة"),ROUND(E4*1.5,2)>=385),385,IF(AND(OR(B4="الثالثة"),ROUND(E4*1.5,2)>=340),340,0))),"") إذا لم تعمل المعادلة استبدلي الفاصلة بفاصلة منقوطة

..إذا تكاثرت الهموم سقطت كلها.. (رسائل ابن حزم الأندلسي)

http://adf.ly/8558861/http://www.4shared.com/file/115516924/2f40e1a1/Almoshaf-Almosawar.html المصحف المصور علي الكمبيوتر

أخي الفاضل رشراش علي بارك الله فيك وجزاك الله خيرا على كلماتك الرقيقة ودعائك الطيب .. تقبل تحياتي :fff:

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

كما وعدت احبابي فيديو شرح كيفية استعمال الأداة الإضافية ولا ينقصني سوى دعاؤكم

تابع الدرس الثانى ندخل الى مرحله تنفيذ الماكرو الذى قمنا بتسجيله ولها خطوات معينة كالتالى : نذهب الى الشيت ثم نضغط على Insert تظهر لنا نافذة نختار منها Button ثم نقوم بوضعه داخل الشيت كما بالصور التالية ثم نقوم بالضغط على الزر كليك يمين ونختار تعيين ماكرو كالتالى تظهر لنا نافذة نختر منها اسم الماكرو وهنا قد اسميته MZM_ELSHRIEF ثم نختار This Workbook ثم نضغط على OK كالتالى الآن يمكنك تنفيذ الماكرو الذى قمنا بتسجيله بمجرد الضغط على الزر أى Button يمكنك أيضا تغيير اسم الزر اذا اردت ذلك كالتالى بالضغط كليك يمين على الزر تظهر لك نافذة اختر منها اضافة نص حفظ الملف عند حفظ الملف تظهر لنا رساله كما بالصورة التالية نضغط على زر NO فتظهر لنا رساله أخرى كما بالصورة التالية نضغط على زر Yes فتظهر لنا نافذة كما بالصورة التالية نقوم بإختيار من Save as type Excel Macro-Enbled Workbook ثم نضغط على Save الخيار التالى كما بالصورة التالية فتكون أيقونه الملف كما بالصورة التالية انتهى الدرس الثانى مرفق ملف PDF به كامل الدرس الثانى يرجى فى حاله هناك استفسار أن يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الاحترام والتقدير الدرس 2.rar

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا والدتي الفاضلة // أم عبد الله دائما نكتسب منكم افكار وخبرات 2 ) تم التوصل الى حل في هذه المرة بإذن الله تعالى سيفي الغرض بنسبة 100 % حيث تم الجمع في هذه المرة بين ال 15 رغبة للطالب بالترتيب وبين مجموعه بطريقة سهلة انتظر التجربة والتقييم!! توزيع الطلاب _ تجريبي.rar

سلام عليكم المطلوب : 1. عند فتح نموذج (المشتريات) ينتقل إلى اخر سجل تم اضافته. 2. بعد تسجيل البيانات لا يتم الاضافة الا بعد الضغط على زر (حفظ). 3. لا يتم التعديل الا بعد الضغط على زر (تعديل).