حمادة عمر

السلام عليكم الاخ الكريم / حمدي بارك الله فيك وبعد اذن اساتذتي الكرام ... لحين ان يقوموا بالرد عليك اخي الكريم جرب الملف المرفق ... لا يمكنك ادخال اي شئ في الخليه الخاصة بالقائمة المنسدله A1 الا من خلال القائمة نفسها واذا قمت بادخال خطأ تظهر رساله تفيد ذلك جزاك الله خيرا قائمة منسدلةAZ11.rar

برنامج جميل وبه مجهود ممتااز ... وتصميمات راائعة هنيئاً لصاحبك هذا البرنامج والاهم هنيئا لصاحبك صاحبه المبدع / مرعى السيد جزاك الله خيرا

السلام عليكم الاخ الكريم / Alalawi9 بارك الله فيك تفضل المرفق التالي به الداله في العمود A ويتم سحبها للاسفل جزاك الله خيرا الترقيم التلقائي.rar

السلام عليكم الاخ الكريم / Alalawi9 بارك الله فيك مرور طيب وكريم جزاك الله خيرا

بارك الله فيكم اساتذتنا الكرام جزاكم الله عنا خيرا

السلام عليكم الاخ الحبيب / أحمد البحيرى بارك الله فيك ابداع وتمكن من كل شئ ولكن طالت غيبتك عنا ... لعل المانع خيرا باذن الله ولقد وعدت الاستاذ العملاق / رجب جاويش .. في سلسلته ( سلسلة الفارس لشرح الدوال ) بانك ستعود الينا وسط اسرتك الثانيه ... فننتظر تنفيذ الوعد جزاك الله خيرا

برجاء ارفاق ملف بالكود الذي تريد تنفيذ ذلك الطلب عليه ليتم العمل عليه ولكن شاهد المرفق التالي عسي ان يكون به المطلوب .... جزاك الله خيرا موافق-غير موافق.rar

السلام عليكم الاستاذ والاخ الحبيب / خالد القدس بارك الله فيك تقبل خالص تحياتي وتقديري جزاك الله خيرا

السلام عليكم الاخ العزيز / ابراهيم الشال بارك الله فيك مرور طيب وكريم جزاك الله خيرا

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

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

السلام عليكم الاخ الكريم / mazen323 بارك الله فيك جزاك الله خيرا

السلام عليكم بارك الله فيكم جمعة مباركة عليكم وعلي الامة الاسلاميه اجمعين هذه مجموعة اخري من مجموعة اكواد ActiveCell( 39 الموجودة بالموقع المذكور والتي تتعلق فقط باستخدامات الخليه النشطة فقط وسأقدم لكم عدد 10 اكواد الثانية منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر اليك التالي : =================== 11- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف الي نهايته ( اليمين ) اي بداية من الخليه النشطة لنهاية الصف Sub SelectToRight() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub 12- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف الي نهايته ( اليسار ) اي بداية من الخليه النشطة لنهاية الصف Sub SelectToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub 13- كود لاختيار النطاق الموجود به الخليه النشطة من خلايا مجاورة ( في الملف المرفق جرب وضع التحديد علي الخليه الحمراء ثم اضغط وشاهد النتيجة ) Sub SelectCurrentRegion() ActiveCell.CurrentRegion.Select End Sub 14- كود لتحديد النطاق الموجود به بيانات في الشيت بداية من الخليه A1 Sub SelectActiveArea() Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select End Sub 15- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس العمود ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس العمود لتصبح اول خليه فارغة بعد الخليه النشطة Sub ActivateNextBlankDown() ActiveCell.offset(1, 0).Select Do While Not IsEmpty(ActiveCell) ActiveCell.offset(1, 0).Select Loop End Sub 16- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس الصف ناحية اليمين ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس الصف يمينا لتصبح اول خليه فارغة بعد الخليه النشطة Sub ActivateNextBlankToRight() ActiveCell.offset(0, 1).Select Do While Not IsEmpty(ActiveCell) ActiveCell.offset(0, 1).Select Loop End Sub 17- كود يجعل قيمة الخليه النشطة تساوي قيمة الخليه المجاورة لها بضغطة زر Sub SwapTextWithCellOnRight() Dim CellContent CellContent = ActiveCell.Value ActiveCell.Value = ActiveCell.offset(0, 1).Value End Sub 18- كود يعمل عكس الكود السابق اي يجعل قيمة الخليه المجاورة للخليه النشطة هي التي تساوي قيمة الخليه النشطة ( جرب ذلك ) Sub SwapTextWithCellOnRight1() Dim CellContent CellContent = ActiveCell.Value ActiveCell.offset(0, 1).Value = CellContent End Sub 19- كود يعمل علي انه اذا كانت قيمة الخليه النشطة اكبر من 100 بضغطة زر يجعل الخليه النشطة تساوي 100 واذا كانت القيمة اقل من 100 يتجاهل الامر ويتركها كما هي ( في الملف المرفق حدد الخليه الصفراء G8 واضغط الزر) Sub MyMacro() If ActiveCell.Value > 100 Then ActiveCell.Value = 100 End If End Sub 20 - كود يقوم بجعل قيمة الخليه المجاورة للخليه النشطة باستخدام if, ElseIf and Else مع الخليه النشطة 1- اذا كانت قيمة الخليه النشطة اكبر 1000 يكون الناتج قيمة الخليه النشطة × 0.05 2- اذا كانت قيمة الخليه النشطة اكبر 500 يكون الناتج قيمة الخليه النشطة × 0.025 3- ان لم يتحقق الشرطان السابقان في الخليه النشطة اجعل قيمة الخليه المجاورة تساوي 5 جرب ذلك في الملف المرفق باستخدام قيم جدول 1 .. حدد خلاياه بالترتيب واضغط الزر وشاهد الفرق Sub MyMacro1() If ActiveCell.Value > 1000 Then ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.05 ElseIf ActiveCell.Value > 500 Then ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.025 Else ActiveCell.offset(0, 1).Value = 5 End If End Sub ارجو ان اكون وفقت في تقديم المطلوب جزاك الله خيرا مجموعة اكواد 10 خاصة بالخليه النشطة2.rar

السلام عليكم الاستاذ الغالي جدا / احمد فضيله بارك الله فيك مرور يشرفني ويسعدني كثيرا وبارك الله لك في ابنك الغالي ابن الغالي ( يوسف ) جزاك الله خيرا

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

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

السلام عليكم الاخ الكريم / القومي بارك الله فيك جزاك الله خيرا

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

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

السلام عليكم الاخ الكريم / مصطفى كامل بارك الله فيك بالفعل موقع به اكواد كثيرة وتفيد الجميع في حالات كثيرة ... ولكن اخي الكريم القيام بترجمه هذا الكم الكبير من الاكواد امر من الصعب تنفيذه حيث انها كثيره بالفعل وساقوم بتقديم هذه المجموعة الموجوده في الموقع باسم ActiveCell( 39 وكما تشاهد فهذه المجموعة فقط بها عدد 39 كود لكل منها وظيفة مختلفة وهذه المجموعة المذكورة تتعلق فقط باستخدامات الخليه النشطة فقط وسأقدم لكم عدد 10 اكواد الاولي منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر اليك التالي : ====================== 1- كود للانتقال لخليه اخري بعد الخليه النشطة باربعة اعمدة وصفين للاعلي Sub offset() ActiveCell.offset(RowOffset:=-2, ColumnOffset:=4).Activate End Sub 2- كود لكتابة كلمة معينة ( Hello World! ) في الخليه النشطة Sub MyMacro() ActiveCell.Value = "Hello World!" End Sub 3- كود لكتابة كلمة ( INVALID: ) في الخليه النشطة قبل قيمتها اي تأخذ قيمة الخليه النشطة ويتم كتابتها + الكلمة المحددة Sub MyMacro1() ActiveCell.Value = "INVALID: " & ActiveCell.Value End Sub 4- كود لتجميع نطاق معين في الخلية النشطة وهو هنا النطاق من A1:A5 Sub fomula() ActiveCell.Formula = "=SUM($A$1:$A$5)" End Sub 5- كود يجعل قيمة الخلية النشطة تكون كالتالي قيمة الخلية النشطة نفسها × 2 - 1 Sub MyMacro2() ActiveCell.Value = (ActiveCell.Value * 2) - 1 End Sub 6- كود يجعل قيمة الخلية النشطة تكون Top cell وقيمة الخليه اسفلها كلمة Bottom cell Sub MyMacro3() ActiveCell.Value = "Top cell" ActiveCell.offset(1, 0) = "Bottom cell" End Sub 7- كود يجعل قيمة الخلية النشطة تكون Top cell وقيمة الخليه اسفلها كلمة Bottom cell ولكن بطريقة اخري ويمكن التكرار Sub MyMacro4() ActiveCell.Value = "Top cell" ActiveCell.offset(1, 0).Select ActiveCell.Value = "Bottom cell" End Sub 8- كود لتحديد عنوان الخليه النشطة وذلك في رسالة توضح ذلك Sub selectRange() MsgBox ActiveCell.Address End Sub 9- كود ينتقل من الخلية النشطة الي الاسفل بعدد 10 صفوف اي من الصف رقم 1 الي الصف رقم 11 ثم الصف رقم 21 وهكذا .. Sub DownTen() ActiveCell.offset(10, 0).Select End Sub 10- كود يقوم بتحديد العمود بداية من الخليه النشطه الموجود بها المؤشر ويحدد لاعلي العمود اي بداية من الخليه النشطة لاعلي الصفحة Sub SelectUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub ارجو ان اكون وفقت في تقديم المطلوب جزاك الله خيرا مجموعة اكواد 10 خاصة بالخليه النشطة.rar

الاخ الكريم / fawzy elbrhany بارك الله فيك جرب استخدام الكود التالي ... فهو كود للاستاذ القدير / طارق محمود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Target.EntireColumn.Interior.ColorIndex = 8 Target.EntireRow.Interior.ColorIndex = 8 End Sub واليك ملف مرفق 2003 ... شاهد ذلك جزاك الله خيرا Row_Col_color.rar

الاخ الكريم / eng_moh201 بارك الله فيك واهلا بك في بيتك الثاني ... وستسعد كثيرا بالانضمام الي هذا الصرح العملاق والمنتدي به مواضيع كثيرة للشرح للتعرف علي طريقة تقديم هذه الحلول فعلي سبيل المثال لا الحصر سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد http://www.officena.net/ib/index.php?showtopic=47174 دورة شرح الفيجول بيسك للتطبيقات VBA http://www.officena.net/ib/index.php?showtopic=39323 طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة http://www.officena....showtopic=45232 طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل وحذف !! خطوة خطوة http://www.officena....showtopic=45637 طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة http://www.officena....showtopic=46008 طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة http://www.officena....showtopic=46420 طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة http://www.officena....showtopic=46129

السلام عليكم الاخ الكريم / محمد عسكر بارك الله فيك مرور طيب وكريم جزاك الله خيرا