اذهب الي المحتوي
أوفيسنا

عبدالرحمن بدوى

03 عضو مميز
  • Posts

    167
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

13 Good

عن العضو عبدالرحمن بدوى

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس
  • البلد
    cairo
  • الإهتمامات
    internet surfing
    programming

اخر الزوار

1,291 زياره للملف الشخصي
  1. بص هو إلي اعرفه إن الثغرة المشهورة بتاعة تحويل الملف إلي مضغوط وفتحه والتحكم في ملفات xml الخاصة باللف يمكن التغلب عليها بتحويل الملف xlsb لأن الملفات جواه بتكون binary ودي صعب شوية علي العامة فتحها
  2. السلام عليكم ورحمة الله وبركاته كل عام وانتم من الله أقرب. علي طاعته أدوم والي الجنة أقرب وعن النار ابعد واسأل الله إن يجعلنا من عتقائه من النار في رمضان وإن يجعلنا من المقبولين وإن يبلغنا فضل ليلة القدر عندي طلب مساعدة في دالة select case الملف المرفق يحتوي علي 2 شيت الأول data وفيه جدول لتسجيل بينات للمنتجات products بمواصفاتها p1, 2,3,4&5 الشيت الثاني specification وفيه 3 منتجات product 1,2 &3 وفيه كل منتج فيه مجموعة من المتطلبات أو المواصفات p1, 2,3,4&5 وعندنا user form 1 فى الماكرو فيها (compobox (product 1,2,3 والمواصفات أو المتطلبات إلي قلنا عليها p, 2,3,4,5 المطلوب هو إنه عندما يتم اختيار product 1 فى الكومبوبوكس يتم أوتوماتيكيا استدعاء قيمة p1, p2, p3, p4, p4 من جدول product 1 الموجود في شيت specification وكذلك حين اختيار product 2 يتم استدعاء مواصفاته من الشيت وهكذا أنا حاولت أعمل دالة select case لكنها لآسف لا تعمل أريد المساعدة من أحد الاخوة الافاضل فى المنتدي إما بتصحيح الكود الخاص بي أو المساعدة بكود أخر وجزاكم الله خيرا
  3. السلام عليكم ورحمة الله وبركاته كل عام وانتم من الله أقرب. علي طاعته أدوم والي الجنة أقرب وعن النار ابعد واسأل الله إن يجعلنا من عتقائه من النار في رمضان وإن يجعلنا من المقبولين وإن يبلغنا فضل ليلة القدر عندي طلب مساعدة في دالة select case الملف المرفق يحتوي علي 2 شيت الأول data وفيه جدول لتسجيل بينات للمنتجات products بمواصفاتها p1, 2,3,4&5 الشيت الثاني specification وفيه 3 منتجات product 1,2 &3 وفيه كل منتج فيه مجموعة من المتطلبات أو المواصفات p1, 2,3,4&5 وعندنا user form 1 فى الماكرو فيها (compobox (product 1,2,3 والمواصفات أو المتطلبات إلي قلنا عليها p, 2,3,4,5 المطلوب هو إنه عندما يتم اختيار product 1 فى الكومبوبوكس يتم أوتوماتيكيا استدعاء قيمة p1, p2, p3, p4, p4 من جدول product 1 الموجود في شيت specification وكذلك حين اختيار product 2 يتم استدعاء مواصفاته من الشيت وهكذا أنا حاولت أعمل دالة select case لكنها لآسف لا تعمل أريد المساعدة من أحد الاخوة الافاضل فى المنتدي إما بتصحيح الكود الخاص بي أو المساعدة بكود أخر وجزاكم الله خيرا case.xlsm
  4. السلام عليكم ورحمة الله وبركاته أولا تحية الى احبتى الافاضل في منتدانا الجميل كل عام وانتم من الله اقرب وعلى طاعته ادوم والى الجنة اقرب وعن النار ابعد اخوانى الافاضل في الشيت المرفق ملف لعمل مواصفات لمنتج معين اريد منكم مساعدة في اختصار كود لعمل تنسيق شرطي ل textbox عندى مواصفة لمنتج معين الحد الأدنى في الشيت ممثل في b4 و textbox2 والحد الأقصى لمواصفة المنتج ممثلة في c4 , textbox3 المطلوب هو انه عندما أقوم بإدخال النتيجة في textbox1 يتحقق الاتى 1- اذا كانت النتيجة ما بين الحد الأدنى والاقصى (داخل المواصفة) يتلون textbox1 بالاخضر 2- اذا كانت النتيجة اكبر من c4 يتلون باللون الاصفر 3- اذا كانت النتيجة اقل من b4 يتلون بالاحمر انا قمت بكتابة هذا الكود ونجح معى في تحقيق ما اريد Private Sub TextBox1_Change() Dim a As Double Dim b As Double a = Sheets("data").Range("B4").Value b = Sheets("data").Range("c4").Value On Error Resume Next Select Case TextBox1.Value Case a To b TextBox1.BackColor = vbGreen Case 0 To a TextBox1.BackColor = vbRed Case Is > b TextBox1.BackColor = vbYellow End Select End Sub ولكن المطلوب لو احد الافاضل يساعدنى بكود اصغر لتحقيق نفس الهدف لأن الفورم عندى سوف تحتوى على 15 منتج وكل منتج به 27 عنصر (parameter) يعنى هحتاج لكتابة الكود 405 مرة فلو امكن تصغير الكود او يكون هناك كود مختصر يكون افضل وشكرا لكم conditional formating.xlsm
  5. أشكرك اخى الفاضل على المساعدة انا اخترت الكود الثانى لانى شعرت انه اخف واسهل ولكن مع بعض التعديلات الشيت كان بيقفل الجهاز اصلا ولغيتها وكان بيقفل الاكسل كله عدلته انه يقفل الشيت المطلوب فقط الكود كما يلي Option Explicit Public vartimer As Variant Sub Timer() Call Stop_timer vartimer = Format(Now + TimeSerial(0, 0, 10), "hh:mm:ss") If vartimer = "" Then Exit Sub Application.OnTime TimeValue(vartimer), "autimatic_close" End Sub Private Sub autimatic_close() Workbooks("close automatic.xlsm").Activate Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.Close 'Shell "shutdown -s -t 02", vbHide End Sub Sub Stop_timer() On Error Resume Next Application.OnTime earliesttime:=vartimer, _ procedure:="autimatic_close", schedule:=False On Error GoTo 0 End Sub
  6. السلام عليكم ورحمة الله وبركاته تحية طيبة الاساتذة الافاضل في هذا المنتدي الراقي مرفق صورة لكود وظيفته كالتالي Timer & reset time وظيفتهم عمل عدادوبعد الانتهاء حفظ الملف واغلاقه Add time وظيفته انه يضيف 5 دقائق في الخلية a1 Stop timer وظيفته ايقاف العداد الهدف من الملف هو اني عايز الملف يقفل بعد وقت معين من ترك الملف بدون اي تعديل الفكرة انه بيضيف العداد ولما يوصل صفر يحفظ ويقفل الملف فعلا شغال معايا كويس جدا لكن فيه مشكلة انه لازم يبقي الفايل مفتوح ومفعل عشان الكود يشتغل اظن عشان الجزء ده من الكود Application. Activesheet.range انه هنا لازم الشيت يكون فعال لكن لو فتحت ملف تاني وفعلته واشتعلت عليه الكود ده بيطلع error ويقف عمله المطلوب مساعدة في ان الكود يشتغل ايا كان الملف مفعل او لأ يعني لو معمول minimize او ملف تاني هو الي فعال بيحصل error والكود يتوقف عن العمل ومعذرة اني ارفقت صورة بس لأني بكتب من الموبايل لان الملف في الشغل وماينفعش اخذه وشكرا مقدما
  7. تم حل المشكلة Sub selectdate() Range("b8").Select seldate = Format(ActiveCell.Value, "mm/dd/yyyy") Selection.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, seldate) End Sub test2.xlsm
  8. السلام عليكم ورحمة الله وبركاته تحية طيبة ويعد الرجاء المساعدة فى كود لعمل فلترة فى الجدول بناء على الخلية b8 الملونة باللون الاصفر وبعد ذلك نسخ البيانات الملونة باللون الاخضر امام التارخ الذى تمت فلترته فى الجدول الرجاء كتابة الكود فى الرد لأنى غالبا اتابع الموقع من هاتف اندرويد ولن استطيع تشغيل الماكرو على الاندرويد test2.xlsm
  9. السلام عليكم ورحمة الله وبركاته لو سمحت محتاج كود ماكرو يكون دوره ان اي تغيير في في الخلية الموجودة في العمود10 (وهو العمود j) يقوم بنسخ قيمة الخلية الموجودة في العمود 2 (وهو العمود b) ولصقها في الخلية الموجودة في العمود 15 (وهو العمود o) وذلك في نفس الصف مثال حين تغيير قيمة الخلية j5 يقوم بنسخ قيمة الخلية الموجودة في b5 ولصقها في الخلية 05 وهكذا في اي صف
×
×
  • اضف...

Important Information