يحيى حسين

السلام عليكم و رحمة الله و بركاته إضافة لحلول الأخوة الجميلة و الرائعة أضيف حل آخر بمعادلات الصفيف في المرفق و لإظهار القائمة مرتبة أبجديتاُ بالعكس قم فقط بعكس > الى < =================دمتم في حفظ الله و رعايته استخراج قائمة اسماء مرتبة ابجدياُ Excel4Us.com.rar

السلام عليكم و رحمة الله بخصوص موضوع الحماية اتوقع ان الحماية التقليدية مكن كسرها بكل بساطة و الدليل كما رأينا الأخوين ابو اكرم و الخالدي و خصوصا طريقة الاخ خالدي التي اتصفت بالبساطة و لذلك اقترح مراجعة موضوع الأخ و الحبيب الغائب عن المنتدى الحاضر في قلوبنا أبو تامر فرج الله همه و هي تشفير الملفات و لمراجعة موضوعه من خلال هذا الرابط http://www.officena.net/ib/index.php?showtopic=25523 حيث يمكننا العمل على ملفه و تطوير بعض الأفكار عليه ============= دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي محمد حل الأخ هشام يعطي طلبك أليس كذلك

السلام عليكم و رحمة الله أخي محمد طلبك غير واضح هل تريد ان يظهر النتيجة لكل مادة بجانبها ام في خانة الحالة ==== ارجو التوضيح اكثر === و لي سؤال: لفت انتباهي ان المواد كلها تتحدث عن الخط العربي هل هي مواد دراسية ام معهد تعليم خط عربي لأني بصراحة من عشاق الخط العربي و أكتب بعدة خطوط و لله الحمد === و دمت في حفظ الله

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

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

السلام عليكم و رحمة الله عذراً على العودة خطوة للوراء بخصوص الحالة الثانية Sub Excel4Us() Dim LastR As Long, cll As Range LastR = Range("a" & Rows.Count).End(xlUp).Row For Each cll In Range("a1:a" & LastR) Range("b1").Value = Range("b1").Value & " " & cll.Value Next cll End Sub أتمنى أن يفي هذا الكود بالغرض ============== دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته فكرة رائعة اخي هشام و بخصوص القائمة المنسدلة و على نفس ملف أخي ابو عبدالله أتمنى أن تكون هذه الأكواد جزء من طلبكم للحصول على النتائج بصورة افقية في الصف رقم 1 Private Sub Worksheet_Change(ByVal Target As Range) Dim LastC As Long If Target.Address <> "$A$1" Then Exit Sub LastC = Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, LastC + 1).Value = Range("a1").Value End Sub و للحصول على القيم بشكل عامودي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim LastR As Long If Target.Address <> "$A$1" Then Exit Sub LastR = Range("b" & Rows.Count).End(xlUp).Row Range("b" & LastR + 1).Value = Range("a1").Value End Sub و للحصول على القيم بشكل مدمج في الخلية المجاورة للقائمة المنسدلة هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim LastC As Long If Target.Address <> "$A$1" Then Exit Sub Target.Offset(0, 1).Value = Target.Offset(0, 1).Value & " , " & Target.Value End Sub =============== و دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته ما شاء الله عليك اخي ابو عبدالله مبدع دائماً في المرفق حل اخر دمجت فيه بين الكود و معادلات الصفيف لإستخراج عناوين الخلايا المكرره ====================== دمتم في حفظ الله www.Excel4Us.com يحيى حسين.rar

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

السلام عليكم و رحمة الله أخي ابو علاء هل شاهدت الرابط الذي وضعته لك

السلام عليكم و رحمة الله أخي عماد هذه الأقواس هي نمط خاص من المعادلات في الإكسيل تعرف بدوال الصفيف Array Formula و هذا رابط شركة مايكروسوفت لشرحها http://office.microsoft.com/ar-sa/excel/HA102284581025.aspx?pid=CH100648411025 ===== و دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته إضافة لحلول الأخوة الجميلة و الرائعة جرب هذا الكود أخي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LastR As Long LastR = Range("A" & Rows.Count).End(xlUp).Row Range("a4:a" & LastR).AdvancedFilter xlFilterCopy, , Range("b4"), True End Sub إضافة لذلك أخي على هذا الرابط يوجد طريقة إستخراج كشف غير مكرر بالمعادلات http://excel4us.com/vb/showthread.php?t=59 ============= و دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي ابو علاء شاهد هذا الرابط ففيه موضوع شبيه لموضوعك عسى أن تستفيد منه http://www.officena.net/ib/index.php?showtopic=30373

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

السلام عليكم و رحمة الله و بركاته إضافة لحل الأخويين الحبيبين عماد و ياسر هذا حل بالمعادلات يحيى حسين 1.rar

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

السلام عليكم و رحمة الله و بركاته جزيت خيراً أخي خالدي جل من لا يسهو جميل جدا و أشكرك على قدرتك الرائعة و المميزة في إكتشاف الأخطاء و أشكر الأخ magodey على لفت انتباهه لنا في هذا الخطأ و أشكر أخي و حبيبي في الله خالدي على ما قدمه و يقدمه و ما سيقدمه نسأل الله له التوفيق و السداد

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

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

السلام عليكم و رحمة الله و بركاته جرب هذه المعادلة أخي على فرض ان قيمة الراتب موجودة في الخلية A1 =IF(A1>=1500,A1*8%,IF(A1>=1000,A1*6%))

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

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

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

السلام عليكم و رحمة الله أخي هشام حياك الله و اخي ياسر حياك الله و اخي عماد فكره رائعة بالحل جزاك الله كل خير