أبوبسمله

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

أخى اتفضل ده الملف بالتوفيق 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 شاكلى كده هضرب صح ربنا يستر والاستاذ ميزعقش

ودى اول جزئية فى الواجب التانى Sub xname() Dim xnames As String xnames = "ياسر خليل حبيبى واستاذى جزاه الله كل خير " Range("c5").Value = xnames End Sub جزاك الله كل خير يا ابو البراء

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

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

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

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

اخى الكريم ابو باسم دى مساهمه منى على قد ما فهمت بالتوفيق اخى برنامج توزيع مبالغ بنسب1.rar

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

جزاك الله كل خير اخى سليم

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

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

جزاك الله خير اخى محمد على هذه الكلمات فهمت مقصدك قم بوضع سطر اخر لاظهار ما تريد بمعنى Columns("c").Hidden = false حاول اخى محمد ولا تخاف من الفشل لان الفشل اول طريق النجاح وصدقنى انا كل ما فعلته اننى بحثت فى جوجل هههههههههههههه لاصل لهذا الكود ابحث وحاول واسال وسال ولن يقصر معك احد باذن الله تعالى فكلنا هنا اخوه فى الله واسره واحده اسمها اسرة اوفيسنا السعيده بحب الله ورضاه

اخى ابو البراء ومن باب حب التعلم رجعت للموضوع ده تانى لاضافة تعريف المتغيير الذى لم اقم بتعريفه فى حينه لاننى لا اجيد كتابة الاوامر ومازلت اتعثر ولكن اعترف اننى عندما قرات مشاركتك بتركيز الان عرفت ان المتغير اللى هنعرفه هنا الى هو ws هيكون متغير وركشيت محدش يكون جعان ويفهم غلط ده مش ورك فرخه هههههههههههههه المهم Sub Macro1() Dim ws As Worksheet For Each ws In Worksheets With ws.PageSetup .BlackAndWhite = True End With Next ws End Sub اخى وحبيبى ابو البراء جزاك الله كل خير واحسن الله إليك كما تحسن إلينا وتصبر علينا بالتوفيق اخى