أبوبسمله

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

تسلم ياابوالبراء وجزاك الله كل خير اخى ياسر ايوه منا عرفت ان مش انا اللى بكتبه ده بينكتب لواحده لما بختار الحدث اللى هشتغل عليه ولكن حبيت افهم هو بيقصد ايه مبقاش زى الاطرش طيب استحمل غلاستى يا ابوالبراء كلمة 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 اخى وحبيبى ابو البراء جزاك الله كل خير واحسن الله إليك كما تحسن إلينا وتصبر علينا بالتوفيق اخى

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

قمت بعمل تجربه بكود اخى سليم ونجحت برضه قمت بتسمية النطاق ولم التزم بالنطاق للسرعه اخترت عمود وعمود ثم كتبت اسم النطاق اشارككم بها hid_ahmed-slim.rar

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

حبيبى الغالى أبو البراء دى مساهمه بسيطه منى من اجل التعلم والبحث المثمر فى سبيل التعلم طبعا انا عارف ان فى طرق ابسط واسهل من كده بس هحاول برضه للاحسن Sub hid() Sheets("ورقة2").Select Columns("b").Hidden = True Columns("d").Hidden = True Columns("f:i").Hidden = True Columns("k:n").Hidden = True Columns("p:y").Hidden = True Columns("aa:xfd").Hidden = True End Sub جزاك الله كل خير يا ابو البراء hid_ahmed.rar