أبوبسمله

على الرسائل الخاصه بالمنتدى يا ابوالبراء جزاك الله خيرا حبيبى الغالى

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

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

ههههههههههه متميز وكتالوج وباعدين العربى معاه كل الكتالوجات والمفاتيح بس مزاجه مش مظبط ربنا ييسرله أموره إن شاء الله جزاك الله كل خير ياغالى على التشجيع اللى انا مش قده ده انت ناويلى على ايه يا ابوالبراء انا ياعم لسه بكح فى الاول شويه كوبى شويه تعديل شويه كتابه بالراحه كده طبعا انا وجهت العضو فى الاول بضرورة رفع الملف حتى يتضح المطلوب فهمته بناء عايز احسب كل الاحتمالات الممكنه لجمع القيم دي مع بعضها بشرط عدم حساب مجموع القيمة مع نفسها 1+1=2 لاء لانه لاء لانه اشترط عدم حساب القيمه مع نفسها 1+2=3 2+1=3 2+3=5 3+2=5 ده اللى انا فهمته من طلبه يا ابوالبراء والله اعلى واعلم طيب معلقتش انت على الكود وهل فيه أخطاء أم لا وجزاك الله كل خير

جزاك الله كل خير على المعلومه بالتوفيق

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

اخى خالد على مايبدو انك مقرب اوى حبيبى اخى واستاذى وخالى كمان

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

هل تم المطلوب اخى

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

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

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

حمدالله على السلامه يا ابواسيل مش هنقول ايه اقوم صلى واحمد ربنا ده اللى بيتعمل مش اللى بيتقال ثانيا ربنا سبحانه وتعالى قال فى كتابه العزيز بسم الله الرحمن الرحيم فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا صدق الله العظيم هل تريد أكثر من ذلك يا ابا آسيل حبيبى واخى ويا من رزقنى بكم الله فالحمد لله الواحد الرزاق لا تعرف اين رزقك وما هو رزقك ادعو الله لك ولكل امة محمد ان يرزقهم راحة البال والطمأنينه جزاكم الله كل خير

أخى اتفضل ده الملف بالتوفيق sumarea.rar

بعد اذن اخى خالى حل اخر لاثراء الموضوع بالتوفيق 1تواتي.rar

اخى الفاضل انت لست فى حاجه الى التوجيه بان تضع مثالك وتقم بشرح ماتريد وكل شىء باذن الله سهل وبسيط بس وفر على اخوانك الوقت اتفضل جرب الكود ده لحبيبى الغالى ابوالبراء مع تعديل بسيط ليناسبك ان شاء الله يكون طلبك Option Explicit Function Area(Optional Length As Variant, Optional Width As Variant) If (Length) = (Width) Then Area = 0 Else Area = Length + Width End If End Function ضع المعادله بالشكل التالى فى C1 =area(A1;b1)

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

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

اخى ياسر اللى اقصده السطر التالى وما يحتويه داخل القوس Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) بمعنى انا فهمت تارجت والنطاق بتاعها ب 4 اوبجيكت دى محتاجه توضيح شويه لانى لم ارها بداخل الكود فلم اعرف ماذا تعنى جزاك الله كل خير يا ابوالبراء

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

اخى رجب وابوالبراء جزاكم الله كل خير ابوالبراء اذا سمحت ممكن شرح للكود وبالذات اول سطر بريفيت انا دخلت على المحرر واخترت حدث عند التغيير لاقيته كتبه لواحده بس محتاج شرح هل byval مثل dim اللى فهمته انه حدد متغير تارجت للنطاق و تم استخدام متغير sh اوبجيكت ؟ لماذا السطر 2 بيقول لو النطاق وعنوانه = الخليه 4 إذا نفذ الاتى اعذرنى على اسئلتى ولكن لجهلى واريد ان افهم حتى اتعلم وارجو ان يتسع صدركم لى جزاكم الله كل خير

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

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

حبيبى يا ابوالبراء جزاك الله كل خير مكنتش لسه وصلت للحلقه الخامسه Sub news() With Range("A1:B10") .Font.Bold = True .HorizontalAlignment = xlRight .Font.Name = "Andalus" .Font.Size = 14 End With End Sub كده تمام يا استاذ ولا لسه هضرب تانى انا رجليا بربقت من البرد ههههههههههههههههه مش من الضرب

وده اجابة السؤال رقم 2 Sub sumrang() Dim x, z As Integer x = 10 z = 20 Range("e1").Value = x + z End Sub شاكلى كده هضرب صح ربنا يستر والاستاذ ميزعقش