حمادة باشا

أستاذنا الكبير/ جمال عبدالسميع السلام عليكم ورحمة الله وبركاته في نقاط : الفرع لا يغني عن الأصل المنتدي بكم وبأمثالكم من أساتذة لا يألون جهدا في تلبية من سأل لا يمكن المجادلة في أوامر الطبيب فالصحة رقم 1 والباقي 2-3-... الترشيد لا يعني الإنقطاع فشتان بينهما - ولن تستطيع الثانية وأتحداك حضرتكم قدوة لنا في العطاء وإيثار الآخرين أسأل الله أن يمتعكم بدوام الصحة والعافية والشكر موصول لأستاذنا الفاضل/ دغيدي تقبل تحياتي

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

الأخ الكريم/ MJDO السلام عليكم ورحمة الله وبركاته أتفق تماما مع أستاذي/ حمادة عمر فيما ذكر - وأضيف بأن معظم البرامج وليس إكسل تفتقد الحماية الكاملة ( ولنا في إصدارات مايكروسوفت عظة وعبرة ) لا أعلم مستوي الحماية الذي تقصده وممن ( مستخدم - متطفل - هاكر - إلخ ) - الحماية كما يقال Come at a cost أي لها مساويء من التعقيد وبطء التنفيذ وعدم المرونة وكثرة الأخطاء وغيره - أفضل توجيه الجهد لتحسين أداء البرنامج وسرعة تنفيذ الأوامر وحفظ البيانات . أرجو ألا يكون كلامي محبطا لكم - ولكنه واقعي وعن تجربة وإحتكاك . خلاصة القول إن كان المتلقي مبتديء وحتي متوسط - حماية المصنف بكلمة سر طويلة تكفي - وإن كان مستواه أعلي من ذلك - الله يعينك - خياراتك محدودة تقبل تحياتي

الأستاذ الفاضل/ جمال الفار السلام عليكم ورحمة الله وبركاته ترقية مستحقة وتقدير في محله فحضرتكم أهل له . إلي الأمام بإذن الله ووفقكم الله تقبل تحياتي

الأخ الفاضل/ الســـــــاهر السلام عليكم ورحمة الله وبركاته لابد من إعادة تعيين الماكرو في Drop Down 2 إلي أسم الماكرو الجديد تقبل تحياتي

الأخ الكريم/ محمود_الشريف السلام عليكم ورحمة الله وبركاته تحديد مسار ثابت لملف داخل الكود يفقد البرنامج المرونة قم بإستبدال السطور التالية حسب الموضح : التغيير الأول SndFile = "C:\Warning.wav" كالتالي SndFile = ActiveWorkbook.Path & "\" & "Warning.wav" التغيير الثاني reminderFile = "c:\reminder.txt" كالتالي reminderFile = ActiveWorkbook.Path & "\" & "reminder.txt" مع الحرص علي نقل ملف النص وملف الصوت في نفس مجلد ملف الإكسل حيثما نقلته جربت ووجدت الكود يعمل وفق المفترض - تقبل تحياتي

الأخ الفاضل/ الســـــــاهر السلام عليكم ورحمة الله وبركاته تم التعديل - حسب فهمي للطلب تقبل تحياتي Worksheet.rar

الأخت الفاضلة/ أم عبد الله السلام عليكم ورحمة الله وبركاته حضرتكم لكم الشكر علي المساعدة وإيجاد الحل المناسب للطلب ولكن تعجبت أن الأخ السائل لم يقرأ المشاركة كاملة علي الرغم من كون الحل مفصل داخلها والشكر موصول للأخ الكريم/ edkawy والسلام عليكم ورحمة الله وبركاته

الأخ الكريم/shinarix السلام عليكم ورحمة الله وبركاته علي ما يبدو حضرتكم أكتفيت بقراءة أول سطرين من المشاركة وذهبت علما بأنني لم أطلب منكم تغيير المحاذاة - أو تغيير أي شيء في الجدول إن كان لديك الوقت ومازلت تبحث عن الحل - يمكنك قراءة مشاركتي مرة ثانية ولكن من خلال الملف المرفق . تقبل تحياتي Book1-Right-to-Left Table Chart.rar

الأخ الكريم/ خطاب عبده السلام عليكم ورحمة الله وبركاته أهلا وسهلا بك في منتدانا العامر بعد إستئذان أخي الفاضل/ ؛ أحمد النجار ؛ كرد سريع وحل أسرع - قم بتنزيل VMPlayer نظام التشغيل الإفتراضي - ثبت عليه إصدار ويندوز 32 ومن ثم الفيجوال بيسك جوجل عن التالي "vmware" وستجد تعريف ومعلومات عن الأمر وعدد من البرامج التي تقوم بذلك تقبل تحياتي

الأخ الكريم/ tvjbs السلام عليكم ورحمة الله وبركاته المرفق حسب طلب التخصيص - لا حاجة للكتابة في الرأس والتذييل - يقوم الكود بذلك بطبيعة الحال سطر المجموع يطبع في الصفحة الأخيرة فقط . أما ما يتعلق بالطلب الأخير الخاص بفورم إدراج سطر جديد - تفضل بإرفاق الملف في موضوع جديد لغرض إفادة الجميع من الحل - وأخوك و الشباب لن يقصروا بإذن الله حسب سعة الوقت . وقبلها يمكنك البحث في مواضيع المنتدي فستجد الكثير من المواضيع المشابهة بإذن الله تقبل تحياتي شيت التوزيع طباعة-Custom header & Footer.rar

الأخ والأستاذ الفاضل/ إبراهيم ابوليله السلام عليكم ورحمة الله وبركاته شاكر لكم وجزاكم الله كل خير تقبل تحياتي

الأستاذ الفاضل/ محمود_الشريف السلام عليكم ورحمة الله وبركاته شاكر لكم وجزاكم الله كل خير تقبل تحياتي

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

الأخ الفاضل/ حسام مصطفي السلام عليكم ورحمة الله وبركاته Option Explicit تعني النص صراحة علي أي متغيرتقوم بإدارجه في كود الموديول قبل إستخدامه فإن لم تفعل ذلك سيولد الكود رسالة خطأ - مثال : For i = 1 To 10 x = x + 1 Next MsgBox x الكود السابق سيظهر رسالة بالرقم 10 وهي قيمة X لو وضعنا قبله في أول سطر بالموديول Option Explicit ستظهر لنا رسالة خطا ولن نعرف قيمة x - ولحل الأمر لابد من إدارج السطر التالي قبل الكود السابق Dim i, x As Integer من فوائد Option Explicit عدم الخلط بين المتغيرات وبعضها ( الرقمي - التاريخ - إلخ ) + كذا تفعيل خاصية Scope أي نطاق عمل المتغير داخل ال Sub ولا يتعداها إلي إجراءات أخري + التحكم في أسماء المتغيرات دائمة الإستخدام والتأكد من كتابة حروفها صحيحة + أيضا تفيد في الإخطار بشكل مسبق عن أخطاء المتغيرات داخل إجراءات فرعية غير مستخدمة ستولد خطأ حال إستخدامها . Option Base 1 تنص علي أن عد المصفوفة Array يبدأ من الرقم 1 وليس صفر الإعداد الأولي Default هو أن يبدأ العد من الرقم صفر - مثال : Dim hospital(3) As Integer Dim doctors As Integer doctors = hospital(0) Dim nurses As Integer nurses = hospital(1) Dim patients As Integer patients = hospital(2) MsgBox "Doctors in Hospital: " & doctors MsgBox "Nurses in Hospital: " & nurses MsgBox "Patients in Hospital: " & patients الكود السابق سيجلب عدد الأطباء والممرضات والمرضي في المستشفي ( القيم = صفر في المثال ) لو وضعنا في أول سطر بالموديول Option Base 1 - أي إبدأ العد من الرقم 1 وأعدنا تنفيذ المثال سيتولد خطأ "Subscript out of range" لأن سطر الأطباء ( رقم صفر في المصفوفة ) أصبح غير معروف لدي البرنامج . أرجو أنه قد أتضحت الصورة - تقبل تحياتي

الأخ الكريم/shinarix السلام عليكم ورحمة الله وبركاته بداية أرحب بك في منتدانا العامر ما المانع أن تضع له الأرقام حيثما يريد...؟ سؤال إختياري يمكنك تجربة التالي : 1- تحديد صف الأرقام فقط ثم إدراج الرسم البياني - سيظهر الرسم ومحور المعطيات الأفقي به ( 1-2-3 ) 2- قف بالماوس علي أي نقطة داخل الرسم البياني - وأستخدم الزر الأيمن - من القائمة إختار Select Data 3- علي اليمين داخل مربع الحوار - Horizontal Axis Labels -> Edit 4- من Axis Labels Range أختار صف المعطيات في الجدول - OK - OK سيظهر الرسم البياني كما تريده بإذن الله تقبل تحياتي

الأخ الكريم/ tvjbs السلام عليكم ورحمة الله وبركاته وبعد إستئذان الأستاذ/ أبو حنين جهزت طلبك من أمس ولكن لم أتمكن من تجربة الطباعة في حينه أرجو أن يكون حسب الطلب تقبل تحياتي Book1-Print Header in 1st Page Only.rar

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

السلام عليكم ورحمة الله وبركاته أتقدم بالشكر للأخ الكريم/ محمد عبارة علي الإعتذار النبيل ما يدل علي الأصل الطيب وأشاركه الإعتذار لأستاذنا الفاضل/ دغيدى - ما أعاد إلي ذهني الصورة المثالية للمنتدي والسلام عليكم ورحمة الله وبركاته

الأخ الكريم/ saud133 السلام عليكم ورحمة الله وبركاته في المرفق تصور لألية تنفيذ الصفقات مع تحرك السعر - في صفحة ( مثال ) فإن كان وفق المطلوب - يمكن بعد ذلك النظر في أمر الربط مع السعر المتحرك الملاحظات داخل الملف - تقبل تحياتي ملحوظة : تم إظهار كل الصفحات - كما يمكنك ذلك من محرر الأكواد Alt+F11 ثم خصائص الورقة F4 - الخيار الأخير - تجد حالة الورقة ( Very Hidden / Hidden / Visible) 8-Prevent Closed Trades Recalculation.rar

الأخ الكريم/ mahmoud elshrief السلام عليكم ورحمة الله وبركاته عمل جميل - جزاك الله كل خير تقبل تحياتي

الأخ الكرم/ شبكة السلام عليكم ورحمة الله وبركاته يمكنك ذلك عن طريق شريط القوائم العلوي - التنسيق الشرطي - Manage Rules هناك شرطين لتلوين الخلايا الأول - اللون الأحمر إذا كان تاريخ الإستحقاق أقل من أو يساوي تاريخ اليوم الشرط الثاني اللون الأخضر ومعادلته إذا كان تاريخ الإستحقاق أكبر من تاريخ اليوم تقبل تحياتي

الأخ الكريم/ saud133 السلام عليكم ورحمة الله وبركاته أولا - بعض الإستفسارات في نقاط : 1- هل الملف المرفق هو الملف الأصلي الذي تعمل به أم نقلت المعادلة إلي ملف آخر...؟ 2- معادلة الحالة ليس بها ذكر لكلمة الشراء ( إذا مفعلة تعني الشراء - ما هي شروطه ؟ ) ولدي تحفظات علي معادلة IF - حيث تنص علي الشروط التالية : إغلاق أكبر من الوقف ( خسارة ) إغلاق أكبر من الهدف ( مفعلة ) غير ذلك ( الهدف ) فالأولي أن نقول : إغلاق أقل من أو يساوي الوقف ( خسارة ) إغلاق أكبر من أو يساوي الهدف ( الهدف ) غير ذلك ( مفعلة ) ثانيا - ما قمت بالتعديل عليه هو تثبيت الحالة بعد الوصول إما إلي الهدف أو الخسارة فقط دون التدخل في آلية عمل الملف حسب طلبك هل جربت عمل التالي لتحديث الصفقات - أختر كل خلايا الصف وأضغط Delete تستعيد المعادلات في إنتظارك للمتابعة وإيجاد حل بإذن الله - تقبل تحياتي

الأخ الكريم/ saud133 السلام عليكم ورحمة الله وبركاته علي قدر فهمي في المرفق - قمت بتعديل بسيط في حدث الورقة يمنع تعديل حالة الصفقة بعد وصولها إلي الستوب أو الهدف بطبيعة الحال ليس لدي مزود الأسعار الخاص بك - لذا قم بالتجربة أثناء حركة السوق - وبشرني النتيجة . ملحوظة : عند الرغبة في إستعادة معادلة خلية الحالة بعد إغلاق الصفقة قف علي الخلية وإضغط زر Delete . تقبل تحياتي 8-Prevent Closed Trades Recalculation.rar

أخي الكريم/ mahmoud elshrief السلام عليكم ورحمة الله وبركاته جزاك الله كل خير