أبوبسمله

ودى اول جزئية فى الواجب التانى 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

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

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

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

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

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

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

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

قمت برفعه مع تغير اسمه لنرى ما المشكله اضغط للتحميل بانتظارك اخى

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