حمادة باشا
-
Posts
571 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
4
Community Answers
-
حمادة باشا's post in مطلوب كود يقوم بمسح بيانات مدخله ومعادلات بعد تاريخ محدد ؟ was marked as the answer
الأخ الفاضل/ ابو اياد ( الاسيوطى )
السلام عليكم ورحمة الله وبركاته
1- تم إضافة تفعيل الخلية A1 عند الإنتقال بين الصفحات
2- رسالة الخطأ تظهر لأن الكود يقوم بالكتابة والتعديل علي الخلايا بشكل دائم فيجب أن تكون الورقة غير محمية
أو يتم فك الحماية حين التعديل تم إرجاعها مرة ثانية بعد التعديل - وهذا يتطلب كود إضافي وعبء علي سرعة وأداء الملف
تقبل تحياتي
اليوميات2.rar
-
حمادة باشا's post in كود مسح خلايا بعد تاريخ was marked as the answer
الأخ الكريم/ ۩◊۩ أبو حنين ۩◊۩
السلام عليكم ورحمة الله وبركاته
المطلوب في المرفق - تقبل تحياتي
TIME SHEET KAL.A.rar
-
حمادة باشا's post in هل من طريقة لجعل زر طباعه يقوم بوظيفتين was marked as the answer
الأخ الكريم/ الجموعي
السلام عليكم ورحمة الله وبركاته
تفضل المطلوب - تقبل تحياتي
print.rar
-
حمادة باشا's post in قائمة مسندلة was marked as the answer
الأخ الكريم/ محمدنت912
السلام عليكم ورحمة الله وبركاته
لم أستوعب المطلوب بشكل كامل من حيث كيفية ظهور الباب الأول والباب الثاني
قائمة مثلا - ثم ماذا بعد ذلك ؟ أين ستذهب بنا هذة القائمة ؟
علي أية حال - أرفقت تصور للحل - فإن نال إستحسانك يمكن التعديل عليه
بما يتوافق مع المطلوب - تقبل تحياتي .
استمارات.rar
-
حمادة باشا's post in مساعدة في كتابة معادلة was marked as the answer
الأخت الكريمة/نازك منير
السلام عليكم ورحمة الله وبركاته
أبدأ بتحية أخي الحبيب الأستاذ/ حمادة عمر
أفتقدنا مشاركاتك القيمة - حمدا لله علي سلامتكم
الأخت/ نازك - في المرفق الصفحة الأولي ( مثال )
به طلبكم تماما - كان طلب لأحد الأعضاء في موضوع مشابه
يمكن الإطلاع عليه - والشرح داخله
تقبلي تحياتي
8-Prevent Closed Trades Recalculation.rar
-
حمادة باشا's post in طلب عمل قائمة منسدلة بالماكرو was marked as the answer
Book1-List All Macros-2.rar
-
حمادة باشا's post in ملاحظة مجموعة بجوار إسم الملف كيف تلغى was marked as the answer
الأخ الفاضل/ ريان أحمد
السلام عليكم ورحمة الله وبركاته
هذة الكلمة تظهر حين تقوم بتحديد أكثر من ورقة بإستخدام Ctrl+Click ناحية أسم الورقة Sheet Tab
والإلغاء يتم إما بإختيار والضغط علي ورقة واحدة فقط - أو عن طريق قائمة الزر الأيمن للماوس
الخيار الأخير بالأسفل Ungroup
تقبل تحياتي
-
حمادة باشا's post in طلب في ترحيل البيانات was marked as the answer
الأخ الكريم/ ابراهيم23
السلام عليكم ورحمة الله وبركاته
تم التعديل بوضع البيانات الأحدث في الأعلي تليها الأقدم - حسب الطلب
كما يمكنك فعل ذلك عن طريق خيار الفرز - Sort - القائمة الرئيسية للبرنامج تحت البيانات - Data
سيقوم بترتيب التاريخ تصاعديا أو تنازليا حسب الرغبة .
تقبل تحياتي
11111-Update Stock Data-2.rar
-
حمادة باشا's post in كود لنسخ صفوف معينة بشروط معينة مع اضافة صفوف باسماء ثابتة بين الصفوف المنسوخة was marked as the answer
الأخ الكريم/ mka1761975
السلام عليكم ورحمة الله وبركاته
السؤال الأول - تم بعض التعديلات البسيطة وإحضار البيانات يعمل من الفورم
السؤال الثاني - المعادلة المذكورة تكتب هكذا ( حيث i = رقم السطر )
Sheet1.Range("D" & i).Formula = "=$C" & i & "+$D$1*$B" & i تقبل تحياتي
Book1-Copy Table & Format-5.rar
-
حمادة باشا's post in جلب الصور من ملف الى ملف اخر was marked as the answer
الأخت الكريمة/ الروضة الشريفة
السلام عليكم ورحمة الله وبركاته
أرجو أن يكون المرفق حسب المطلوب - والشرح داخل الملف
والسلام عليكم ورحمة الله وبركاته
Book1-Add Picture to Table.rar
-
حمادة باشا's post in ByRef - ByVal was marked as the answer
الأخ الكريم/احمد مجدى
السلام عليكم ورحمة الله وبركاته
جمعة مباركة
الصبر طيب - ليس كل من شاهد يملك أو يرغب بالرد - ومن رغب بالرد قد لا يملك الوقت - فإلتمس لإخوانك العذر
أعود لسؤال حضرتكم الفرق بين العبارتين بإختصار :
1- تستخدم ByVal عندما تريد تمرير متغير إلي إجراء Sub ولا تريد أن يغير هذا الإجراء من قيمة المتغير
2- تستخدم ByRef عندما تريد تمرير متغير إلي إجراء وتريد أن يغير هذا الإجراء من قيمة المتغير
3- الأصل Default في آلية تمرير المتغير داخل الإجراء - عند عدم تحديد طريقة التمرير - هو ByRef .
في المرفق مثال يوضح الشرح بالأعلي - تقبل تحياتي
Book1-ByVal-vs-ByRef.rar
-
حمادة باشا's post in مطلوب تحويل اجمالى دقائق الاضافى الى ساعات was marked as the answer
أخي/ mola123
مكتوب في المعادلة
=SUM(J10:J38) والناتج الظاهر = 06:22
وعليه قم بتغيير تنسيق الخلية إلي مخصص ثم أكتب التالي
[h]:mm يصبح الناتج = 30:22
تقبل تحياتي
-
حمادة باشا's post in ماهو المقصود بـ Option Base 1 في بداية الكود ؟؟ was marked as the answer
الأخ الفاضل/ حسام مصطفي
السلام عليكم ورحمة الله وبركاته
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" لأن سطر الأطباء ( رقم صفر في المصفوفة ) أصبح غير معروف لدي البرنامج .
أرجو أنه قد أتضحت الصورة - تقبل تحياتي
-
حمادة باشا's post in مساعدة في رسم بياني was marked as the answer
الأخ الكريم/shinarix
السلام عليكم ورحمة الله وبركاته
بداية أرحب بك في منتدانا العامر
ما المانع أن تضع له الأرقام حيثما يريد...؟ سؤال إختياري
يمكنك تجربة التالي :
1- تحديد صف الأرقام فقط ثم إدراج الرسم البياني - سيظهر الرسم ومحور المعطيات الأفقي به ( 1-2-3 )
2- قف بالماوس علي أي نقطة داخل الرسم البياني - وأستخدم الزر الأيمن - من القائمة إختار Select Data
3- علي اليمين داخل مربع الحوار - Horizontal Axis Labels -> Edit
4- من Axis Labels Range أختار صف المعطيات في الجدول - OK - OK
سيظهر الرسم البياني كما تريده بإذن الله
تقبل تحياتي
-
حمادة باشا's post in جمع خلايا بها خطا #N\A was marked as the answer
الأخ الكريم/ w7dani_hs
السلام عليكم ورحمة الله وبركاته
إستخدم دالة IFERROR قبل VLOOKUP لتلافي الخطأ حال عدم وجود ما تبحث عنه
تقبل تحياتي
استفسار.rar
-
حمادة باشا's post in حجم الخط في القائمة المنسدلة was marked as the answer
الأخ الكريم/أبو ليمونه
السلام عليكم ورحمة الله وبركاته
إذا كانت القائمة المنسدلة من أدوات الفورم Form Control لا يمكن تكبير الخط بها
وإذا كانت من نوع AciveX Control يمكن التحكم بحجم الخط من خلال الخصائص
النوع الأول قصاري ما يمكن فعله تكبير حجم الصفحة Zoom
تقبل تحياتي
-
حمادة باشا's post in كيف يمكن كتابه المعادلات بهذا الترتيب was marked as the answer
الأخ الكريم/ ۩◊۩ أبو حنين ۩◊۩
السلام عليكم ورحمة الله وبركاته
بعد إستئذان الأخوة الأفاضل - وحسب ما فهمت حيث لا يوجد مثال
تقبل تحياتي
Book1-Cell Address Increment.rar
-
حمادة باشا's post in سؤال في الاكواد ... ما معني هذه العبارات او الارقام ؟ was marked as the answer
الأخ الكريم/ عبد الرحمن شفيق
السلام عليكم ورحمة الله وبركاته
KeyCode هي قيمة ثابتة تمثل ضغطة علي الكيبورد - ولكل مفتاح فيمة متفردة لا تتكرر
وتستخدم KeyCode في البرامج لمعرفة آخر زر قام المستخدم بضغطه وذلك بغرض تمرير المهمة المناسبة لكل حالة
في مثالك المرفق رقم 13 = مفتاح Enter ( ما يعني الموافقة والإستكمال ) ورقم 27 = Esc ( ما يعني رغبة المستخدم الإنسحاب والخروج )
نعم هناك جدول بقيم هذة الأرقام - تفضل :
http://msdn.microsoft.com/en-us/library/aa243025%28v=vs.60%29.aspx
تقبل تحياتي
-
حمادة باشا's post in كود لا ينفذ إلا الخطوة الأولى was marked as the answer
الأخ/ نايف
السلام عليكم ورحمة الله وبركاته
الكود الذي وضعته حضرتكم سليم وينفذ المطلوب ولاحاجة لتعديله
ولكن تأكد من أمرين :
1- أن تقف علي الخلية المطلوبة وتفتح الفورم ( لا أعرف طريقة عمل الفورم لديك ) لأنها المرجع المكاني في كودك .
2- أن تكون الخلية المشار إليها في صفحة "main" غير فارغة لأنها لن تظهر شيء في texbox7 وهذا ما حدث معي عند التجربة
ولم ألحظ ذلك وظللت أدور حول نفسي فترة من الوقت حتي أكتشفت الأمر .
والتطبيق العملي لما ذكرته ضمن المرفق - ولم أضف علي كودك سوي textbox8 يعرض أسم الصفحة الحالية .
تقبل تحياتي
Book1-test.rar