يحيى حسين

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

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

السلام عليكم و رحمة الله أخي محمد طاهر بصراحة مجهود جبار و عمل متقن و لي اقتراح صغير حتى يتم إضافة السولفر تلقائياً لملفك ان تضيف الكود التالي AddIns("Solver Add-in").Installed = True جعله الله في ميزان حسناتك

السلام عليكم و رحمة الله أخي جرب هذا الكود Sub Yahya() Dim LastR As Integer LastR = Range("b" & Rows.Count).End(xlUp).Row With ActiveSheet.PageSetup .PrintArea = "a1:j" & LastR End With ActiveSheet.PrintOut End Sub

السلام عليكم و رحمة الله و بركاته و لا يسعني إلا أن أقول الحمد لله

السلام عليكم و رحمة الله و بركاته هل يوجد لدى أحد من الأخوة رقم هاتف الأخ زياد علي أرجو إرساله لي على الإيميل sari774980@hotmail.com =========== دمتم في حفظ الله

السلام عليكم و رحمة الله صدقت اخي ياسر و عذراً على هذا الخطأ حيث اني كتبت هذا الكود على الاكسيل 2007 و لم اجربه جزاك الله خيرا اخي ياسر

السلام عليكم و رحمة الله أخي السيوي جرب هذا الكود Sub ShowMyMenu() Application.CommandBars("worksheets menu bar").Enabled = True End Sub و طريقة إدراج الكود إضغط Alt+F11 . ثم قم بعمل إدراج موديل Insert ----> Module. و ألصق الكود أعلاه . ثم اضغط F5 لتنفيذ الكود و ان شاء الله ستعود الأمور كمان كانت

السلام عليكم و رحمة الله أخي ابو فبصل جزاك الله كل خير و نقل جميل للمعلومة و لقد أعجبني انك ذكرت ان الملف منقول من احد المواقع الأجنبية فهذه النقطة اختلفت عليها انا و احد الاخوة عن وجوب ذكر المصدر عند نقل الملفات من المواقع الأجنبية للعربية ====== جزاك الله كل خير و حتى تكتمل الفائدة للأخوة أرفق ملف به الأكواد و قم بإستخدام الخاصية إدراج كود في مربع اضافة الرد او اضافة الموضوع عند كتابة الموضوع حتى يخرج موضوع بصورة جميلة و لائقة ===== دمت في حفظ الله

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

السلام عليكم و رحمة الله يمكنك الوصول الى الخصائص من خلال Office Button PrePare Properties و قمت بتغيير ما تريد

السلام عليكم و رحمة الله يمكنك اخي استخدام الدالة Large و من خلالها يمكنك اختيار ما تريد

السلام عليكم و رحمة الله و بركاته نهنىء الأخ عماد الحسامي بترقيته إلى خبير معتمد و لقد إستحق هذه الترقيه عن جدارة فهو صاحب خلق و علم حفظه الله فلقد أمتعنا بأعماله الرائعة و حلوله الجميلة ونسأل الله ان يوفقه و يفتح له أبواب الخير =========== و دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته نبارك للأخوين هشام و زياد علي ترقيتهما إلى خبراء معتمدين و نتمنى لهما المزيد من التقدم و الإبداع و ان نرى منهما كل ما هو جديد و نسأل الله لهما التوفيق في الدنيا و الآخرة و دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي إستخدم الدالة SumProduct ستفي بالغرض

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

السلام عليكم و رحمة الله و بركاته اخي عماد حل رائع و الاخ هشام حلول جميلة و استخدام متقن للمعادلات و لكن لي ملاحظة بخصوص الرقم 9.99999999999999E+307 هذا الرقم يعرف بالرقم الأكبر Big Number و هو بإختصار أكبر رقم يمكن ان يتعرف عليه الإكسيل و هذا رابط اخي هشام عن نقاش في هذا الموضوع بيني و بين الاخ كيماس http://www.officena....showtopic=30824 ======== و لكن كما ذكر الاخ بن عليه يمكننا ان نستخد رقم 1 بدلا منه في المعادلة لأن نتيجة في العمود موقع البحث لن تتجاوز رقم 1 او 100% ======= و من مبدأ تعدد الحلول و لإثراء فكرة الموضوع هذا كود بسيط يعطي نتيجة اخر قيمة أيضاً Sub Excel4us() Dim Lrow As Integer Lrow = Range("d" & Rows.Count).End(xlUp).Row MsgBox Range("d" & Lrow).Value End Sub ======= و دمتم في حفظ الله

السلام عليكم اخي اكتب اسم المستخدم Excel و ليس excel الفرق بالحرف الأول

السلام عليكم و رحمة الله عذراً أخي لم اضيف الدالة اعلاه الى الدالة اف الشرطية جرب هذه =IF(AND(A1>=1,A1<=12),INDEX({"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"},A1))

السلام عليكم و رحمة الله أخي المعادلة هي معادلة صفيف و يجب الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله أخي لو ارفقت ملف لتضحت الصورة انا حسب ما فهمته من الدالة التي ارفتها في ردك الثالث جرب هذه الدالة ضعها في الخلية B1 ثم اسحبها للأسفل =INDEX({"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"},A1) و في الخلية A1 اكتب رقم 1 اعمل تسلسل لأسفل و شاهد النتيجة

السلام عليكم و رحمة الله شاهد الملف المرفق أخي فقد يلبي طلبك إن شاء الله يحيى حسين.rar

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

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

السلام عليكم و رحمة الله أخي انور قم بتحديد كامل الجدول بحيث يكون المدى التالي هو المحدد A3:AH2059 ثم من التنسيق الشرطي اكتب هذه المعادلة =$AH3>1 ثم اختر التنسيق الذي يناسبك ثم اوكي