رجب جاويش

أخى الفاضل / قصي جزاك الله كل خير على هذه الكلمات الطيبة

أخى الفاضل / خالد الشاعر جزاك الله كل خير على هذه الكلمات الطيبة

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

أخى وجارى الحبيب / ياسر خليل نورت المنتدى بابداعاتك الجميلة جزاك الله كل خير

السلام عليكم تفضل أخى الانتقال الى أى كلمة داخل المستند كله الانتقال الى أى كلمة داخل المستند.rar

أخى الفاضل / محمد الخازمي جزاك الله كل خير

تفضل أخى دوائر.rar

تفضل أخى Sub ragab() Dim XX As Shape On Error Resume Next Set XX = ActiveSheet.Shapes("إخفاء") Columns("F:F").Hidden = Not Columns("F:F").Hidden With XX.TextFrame.Characters If Columns("F:F").Hidden = True Then .Text = "إظهار" Else .Text = "إخفاء" End If End With End Sub إخفاء عمود2.rar

أختنا فى الله الأستاذة القديرة // أم عبد الله :fff: بارك الله فيكم وزادكم الله من فضله ومن علمه

أخي الحبيب / ضاحي الغريب دائما مبدع جزاك الله كل خير

أخي الحبيب / ضاحي الغريب دائما مبدع جزاك الله كل خير

ألف مليون مبروك الترقية :fff:

أستاذى الحبيب / عبد الله باقشير سلمت لنا مبدعا ومعلما تقبل أرق تحياتى وتقديرى

الأخ الفاضل / سليم حاصبيا الأخ الفاضل / ابراهيم أبو ليله برجاء تنفيذ هذه الخطوات بناءا على إقتراح المهندس محمد طاهر مدير المنتدى يرجي تحديد كل من الاستايل و اللغة المختارة ( من أسفل صفحة المنتدي ) تأكد من اختيار Officena و اللغة العربية 2013 مع العلم أن هذه المشكة لا تظهر عندى ولا تظهر أيضا عند المهندس محمد طاهر لذا من المتوقع أنها ترجع إما بسبب الخطوات السابقة أو أن المتصفح يحتاج تحديث برجاء التجربة والرد بالنتيجة

السلام عليكم أستاذى الفاضل / محمد يوسف عذرا لتأخرى عليك فى الرد بسبب انقطاع النت عندى لفترة طويلة تفضل ما تريد فى الملف المرفق سحب المعادلات 3.rar

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

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

أخى الفاضل / حسام عيسى جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة

أخى الحبيب / إبراهيم أبو ليله جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

السلام عليكم أستاذى الفاضل / محمد يوسف تفضل ما تريد يمكنك ذلك من خلال الكود التالى Sub ragab() Range("S14").Copy Application.ScreenUpdating = False For I = 16 To 1012 Step 2 Range("S" & I).PasteSpecial xlPasteFormulas Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub سحب المعادلات.rar

الأخ الفاضل / محمد الريفى جزاك الله كل خير

الأخ الفاضل / ميدو تم دمج الموضوعين معا (كشف حساب عملاء بالمعادلات ) و ( كشف حساب عملاء بالأكواد ) واليك المطلوب عن طريق كود فى حدث الورقة بمجرد اختيار اسم العميل تظهر بياناته Book1.rar

السلام عليكم أخى الحبيب / جمال عبد السميع جزاك الله كل خير على هذه الإبداعات التى لا تنتهى

وبالنسبة لشرح الكود For i = 1 To Sheets.Count السطر السابق يمثل حلقة تكرارية تبدأ من رقم 1 حتى عدد الشيتات الموجودة فى الملف Sheets(i).Cells.EntireRow.Hidden = False السطر السابق يعمل على اظهار جميع الصفوف المخفية فى جميع الشيتات الواحدة تلو الأخرى x = Sheet1.Range("A4") + 1 السطر السابق وضع قيمة x تساوى الرقم الموجود فى الخلية A4 ونزيد واحد حتى يبدأ الإخفاء من السطر التالى للرقم الذى نحدده Sheets(i).Range("a" & x & ":a" & Rows.Count).EntireRow.Hidden = True السطر السابق يخفى جميع الصفوف من الصف المساوى للرقم x حتى آخر صف

السلام عليكم أخى الفاضل / قصي جزاك الله كل خير تم عمل ما تريد والغاء القائمة المنسدلة اخفاء صفوف حسب عدد الطلاب2.rar