Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search

All Activity

This stream auto-updates     

  1. Past hour
  2. أستاذي essam rabea بالمرفق مثال تطبيقي جديد علي جدول أخر به إشكال بسيط وهو توقف قائمة الفرز عن العمل ولا أدري لماذا راجعت الكود حته حته ولم اجد خطأ ويمكن أيضا تطبيق مقترح المشاركة السابقة عليه إن أردت ذلك Officna 4.accdb
  3. السلام عليكم الاخ الغالى بن علية حاجى اسال الله ان تكون بكل خير وعافيه الحمد لله بكل خير ... جزاك الله خيرا على السوال اخى الحبيب مرفق الملف الاصلى لتعزر اضافه اعمده مساعده كلمه السر ahm2191612 كلمه سر الاكواد ahm219 البرامج التدريبية للعاملين بحقول طارق 2018-2019.rar
  4. اي عزيزي هذا هو الجهاز عندي معلومات كافية عنه باذن الله اكبر اساعدك اول شي عليك تنزيل برنامج لادارة الجهاز اسمه zk middle east هذا البرنامج هو النسخه العربيه للجهاز تكدر تبحث عنه في النت موجد نصب البرنامج اولاً ضيف الجهاز الي عندك على البرنامج لكن يجب ان تكون متمكن من الوصول لاعدادات الجهاز على العموم الطريق بسيطه وسهله جداً واني راح ابقه معاك لحد ما تتمكن منه نصب البرنامج وردلي خبر حتى نستكمل للخطوات
  5. السلام عليكم ورحمة الله أهلا بك أخي الحبيب أبو حنين، لم نعد نراك كثيرا في المنتدى إن شاء تكون أحوالكم بخير... في الملف قمت ببعض الإضافات (أعمدة إضافية مساعدة لإنشاء قوائم منسدلة بالتسميات خاصة بـ "أرقام العمال" و "اسماء البرامج التدريبية للعامل المختار"، كل ذلك حسب الشيت المختار في الخلية N1)... أرجو أن تفي المطلوب... أخوك بن علية حاجي بحث بشرطين.xlsx
  6. السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير يارب عندي فرم من اول والان اضفت عليه تعديلات ارقام التواصل والايميل واريد عند البحث تظهر البيانات علما في برنامج الاكسل E رقم الهاتف و F الايميل E = TextBox10 في الفروم F =TextBox11 في الفروم -------------------------- تبع TextBox10 Private Sub CommandButton1_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets For Each f In ws.Range("a2:a1000") If f = TextBox1.Text Then ws.Select f.Select Exit For End If Next f Next ws For Each ws In ThisWorkbook.Worksheets ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 1).Value = TextBox2.Value ActiveCell.Offset(0, 2).Value = TextBox3.Value ActiveCell.Offset(0, 3).Value = TextBox4.Value ActiveCell.Offset(0, 4).Value = TextBox5.Value ActiveCell.Offset(0, 5).Value = TextBox6.Value Next ws MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ" TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox8.Value = "" End Sub Private Sub CommandButton2_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets For Each f In ws.Range("a2:a1000") If f = TextBox1.Text Then ws.Select f.Select Exit For End If Next f Next ws ActiveCell.EntireRow.Delete End Sub Private Sub CommandButton3_Click() End End Sub Private Sub CommandButton10_Click() End End Sub Private Sub CommandButton9_Click() On Error Resume Next Application.Visible = True UserForm1.Hide Sheet1.Select End Sub Private Sub Label12_Click() End Sub Private Sub Label6_Click() End Sub Private Sub Label9_Click() End Sub Private Sub ListBox1_Click() TextBox1.Value = ListBox1.Column(0) TextBox2.Value = ListBox1.Column(1) TextBox3.Value = ListBox1.Column(2) TextBox4.Value = ListBox1.Column(3) End Sub Private Sub TextBox1_Change() End Sub Private Sub TextBox10_Change() End Sub Private Sub TextBox11_Change() End Sub Private Sub TextBox2_Change() End Sub Private Sub TextBox4_Change() End Sub Private Sub TextBox8_Change() ' TextBox1.Value = "" ' TextBox2.Value = "" ' TextBox3.Value = "" ' TextBox4.Value = "" ' TextBox7.Value = "" ' If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets ss = x.Cells(Rows.Count, 1).End(xlUp).Row For Each c In x.Range("a2:a" & ss) b = InStr(c, TextBox8) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 1).Value ListBox1.List(k, 1) = x.Cells(c.Row, 2).Value ListBox1.List(k, 2) = x.Cells(c.Row, 3).Value ListBox1.List(k, 3) = x.Cells(c.Row, 4).Value ListBox1.List(k, 4) = x.Cells(c.Row, 5).Value ListBox1.List(k, 5) = x.Cells(c.Row, 6).Value ' ListBox1.List(k, 6) = x.Cells(c.Row, 7).Value k = k + 1 End If Next c Next x End Sub Private Sub TextBox9_Change() If TextBox9.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets ss = x.Cells(Rows.Count, 1).End(xlUp).Row For Each c In x.Range("b2:b" & ss) b = InStr(c, TextBox9) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 1).Value ListBox1.List(k, 1) = x.Cells(c.Row, 2).Value ListBox1.List(k, 2) = x.Cells(c.Row, 3).Value ListBox1.List(k, 3) = x.Cells(c.Row, 4).Value ListBox1.List(k, 4) = x.Cells(c.Row, 5).Value ListBox1.List(k, 5) = x.Cells(c.Row, 6).Value ' ListBox1.List(k, 6) = x.Cells(c.Row, 7).Value k = k + 1 End If Next c Next x End Sub --------------- تبع TextBox11 ------ Private Sub CommandButton1_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets For Each f In ws.Range("a2:a1000") If f = TextBox1.Text Then ws.Select f.Select Exit For End If Next f Next ws For Each ws In ThisWorkbook.Worksheets ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 1).Value = TextBox2.Value ActiveCell.Offset(0, 2).Value = TextBox3.Value ActiveCell.Offset(0, 3).Value = TextBox4.Value ActiveCell.Offset(0, 4).Value = TextBox5.Value ActiveCell.Offset(0, 5).Value = TextBox6.Value Next ws MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ" TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox8.Value = "" End Sub Private Sub CommandButton2_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets For Each f In ws.Range("a2:a1000") If f = TextBox1.Text Then ws.Select f.Select Exit For End If Next f Next ws ActiveCell.EntireRow.Delete End Sub Private Sub CommandButton3_Click() End End Sub Private Sub CommandButton10_Click() End End Sub Private Sub CommandButton9_Click() On Error Resume Next Application.Visible = True UserForm1.Hide Sheet1.Select End Sub Private Sub Label12_Click() End Sub Private Sub Label6_Click() End Sub Private Sub Label9_Click() End Sub Private Sub ListBox1_Click() TextBox1.Value = ListBox1.Column(0) TextBox2.Value = ListBox1.Column(1) TextBox3.Value = ListBox1.Column(2) TextBox4.Value = ListBox1.Column(3) End Sub Private Sub TextBox1_Change() End Sub Private Sub TextBox10_Change() End Sub Private Sub TextBox11_Change() End Sub Private Sub TextBox2_Change() End Sub Private Sub TextBox4_Change() End Sub Private Sub TextBox8_Change() ' TextBox1.Value = "" ' TextBox2.Value = "" ' TextBox3.Value = "" ' TextBox4.Value = "" ' TextBox7.Value = "" ' If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets ss = x.Cells(Rows.Count, 1).End(xlUp).Row For Each c In x.Range("a2:a" & ss) b = InStr(c, TextBox8) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 1).Value ListBox1.List(k, 1) = x.Cells(c.Row, 2).Value ListBox1.List(k, 2) = x.Cells(c.Row, 3).Value ListBox1.List(k, 3) = x.Cells(c.Row, 4).Value ListBox1.List(k, 4) = x.Cells(c.Row, 5).Value ListBox1.List(k, 5) = x.Cells(c.Row, 6).Value ' ListBox1.List(k, 6) = x.Cells(c.Row, 7).Value k = k + 1 End If Next c Next x End Sub Private Sub TextBox9_Change() If TextBox9.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets ss = x.Cells(Rows.Count, 1).End(xlUp).Row For Each c In x.Range("b2:b" & ss) b = InStr(c, TextBox9) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 1).Value ListBox1.List(k, 1) = x.Cells(c.Row, 2).Value ListBox1.List(k, 2) = x.Cells(c.Row, 3).Value ListBox1.List(k, 3) = x.Cells(c.Row, 4).Value ListBox1.List(k, 4) = x.Cells(c.Row, 5).Value ListBox1.List(k, 5) = x.Cells(c.Row, 6).Value ' ListBox1.List(k, 6) = x.Cells(c.Row, 7).Value k = k + 1 End If Next c Next x End Sub
  7. اريد دالة او نص برمجى لادراج التواريخ الناقصة فى نفس العمود بالملف المرفق saad.xlsx
  8. ضع مرفق وضع شرح مصور وبإذن لله الاعضاء لن يقصروا في افادتك ::بالتوفيق::
  9. كل التوفيق ان شاء الله منتضرين كرمك يا استاذ
  10. شكراااااااااااااااااااااااااااااااااااااااااااااااااا
  11. Today
  12. بسم الله الرحمن الرحيم يتشرف مركز العلا للتدريب بتقديم لكم دورات الشؤون الصحية لدينا نخبه من اكفاء المحاضرين شهادة معتمده من المركز+ شهاده من جامعه كامبردج (حسب الرغبه) To communicate mobile@whatsapp Ahmed kilany:00201228680200 twitter facebook linkedin ahmed@alolatraining.com عناوين باقي الدورات مؤثرات الملوثات البيئية على الصحة العامة التلوث البيئى والجو الصحى داخل إطار العمل الإدارى الطرق الحديثة فى معالجة قمامة المدن التقييم البيئي للمشروعات الهندسية التخطيط للطوارىء البيئية ادارة غرفة الطوارئ البيئية مهارات المسح البيئى الإصحاح البيئي "المباني الخضراء- المعايير وأفضل الممارسات Sustainable Buildings: Standards and Best Practice" أدارة المخلفات الصلبة قوانين وتشريعات لحماية البيئة من التلوث "التأثيرات الصحية للتلوث بالمبيدات The health effects of pesticide contamination" "برنامج كبير مراجعين معتمد لنظام إدارة البيئة 200414001 Lead Auditor ISO14001-2004" "تأهيل نظام التخطيط البيئي باستخدام مخرجات نظام المعلومات الجغرافية Using geographic information system outputs to improve Environmental planning system" "دمج نظام إدارة السلامة والصحة المهنية و نظام الإدارة البيئية Integrate occupational health and safety management systems and environmental management system" "النفايات الطبية والمواد الخطرة وطرق الوقاية الصحية منها Medical waste , hazardous substances and health prevention methods " "المفاهيم الحديثة للسلامة البيئية Modern concepts for environmental safety" "الاستخدام الآمن للمبيدات Safe use of pesticides" "مكافحة تلوث البحار والشواطئ بالزيت Combating pollution of the sea and beaches with oil " "مكافحة التلوث واستقبال المخلفات البترولية (تأهيل فني وحدة التلوث) -للعاملين بالموانيء Pollution control and waste reception (rehabilitation unit of (pollution technician " تحسين كفاءة الطاقة بالقطاع الصناعي الوقاية والسيطرة ورصد المخاطر وتحليل الحوادث "تكنولوجيا حماية البيئة ومنع الخسائر "أثر الحياة الصناعية على البيئة Industrial Impact on Environment" تخطيط السلامة والصحة والبيئة لحماية المنشآت الصناعية مكافحة الأوبئة والآفات ذات العلاقة بالثروة الحيوانية "الإعلام ونشر الوعي بالتحديات المناخية والتنمية المستدامة"" مكافحة الأمراض المعدية "تقنية معالجة المخلفات السائلة باستخدام الاغشية المسامية Processing technique dealing with Liquid wastes using membrane porosity " دورة نظم الاستفادة من المخلفات في إنتاج الغاز الحيوي دورة البيئة والطمر الصحي دورة إدارة الإنتاج الأنظف للمصانع دورة العلاقة بين البيئة والتنمية دورة كيفية تحليل نسبة البكتريا القانونية في مياه البحر "تقييم الأثر البيئي Environmental Impact Assessment (EIA) " "الاساليب الحديثة في التوازن البيئي والاستدامة Ecological Balance and Sustainable" "الممارسات الأكثر فعالية في الرقابة البيئية Effective practice in environmental supervision" " (IEMA) - ISO 14001 تدريب كبار المراجعين EMS/ISO 14001 Lead Auditor Course (IEMA)" دورة التشريعات البيئية تحليل الآثار الاقتصادية للمشكلات البيئية "ورشة عمل - EMS/ISO 14001 تنمية الوعي و اساليب التنفيذ EMS/ISO 14001 Awareness and Implementation" "حماية البيئة البحرية Marine Environment Protection" دورة صحة البيئة و سلامة الاغذية دورة حماية البيئة بالمطارات دورة نظام الإدارة البيئية المتكاملة صـحـــــة البيئـــــة Environmental Health هندسة حماية البيئة المائية من التلوث "حماية البيئة البحرية Marine Environment Protection" إدارة سلامة الغذاء ( مستوى متقدم) نظام تحليل مصادر الخطر ونقاط التحكم الحرجة (HACCP) مـــا يميزنا _البرامج التدريبية تعد وفق الاحتياجات الفعلية للمنشأة من خلال دراسة أولية. _المرونة في تنفيذ البرامج في الزمان والمكان وفي كثير من الدول العربية والأوروبية والأسيوية. _ توفير مواد وحقائب تدريبية حديثة للمتدربين. _ جميع البرامج تقدم بأكثر من لغة. _ وجود فريق عمل متكامل لتلبية حاجات العملاء. _ وجود عدد كبير من الخبراء الدائمين مع المركز تقام الدورات في الاماكن التاليه. اسطنبول_مسقط_دبي_الاردن) القاهره_الاسكندريه_اندونسيا_لندن شرم الشيخ_كوالالمبور_مدريد) كما يتوافر لدينا الكثير من المجالات : 1:برامج مجال المحاسبة و المالية. 2. :برامج البورصة وسوق المال . 3:برامج مجال الإدارة و الإشراف. 4:برامج مجال تنمية الموارد البشرية. 5:برامج مجال التسويق و المبيعات وخدمة العملاء. 6:برامج مجال السكرتارية وادارة المكاتب. 7:برامج مجال الدورات التقنية المخصصة. 8:برامج مجال الأمن والدورات الامنية المتخصصة. 9:برامج مجال القانون. 10:برامج مجال الإعلام و السياحة و الفنادق. 11:برامج مجال البيئة للإستفسار عن تفاصيل البرامج التدريبية ومعرفة المحتوى العلمى للدورات يمكنكم التواصل معنا على . mobile@whats APP Ahmed kilany:00201228680200 twitter facebook linkedin ahmed@alolatraining.com
  13. السلام عليكم اخى Kaser906 اولاً شكراً لاهتمام حضرتك بالرد على سؤالى ثانياً موضوع الجدول اللي حضرتك بعتهولي بعيد شويه عن المطلوب ولايضاح المطلوب انا عندى 10 تخصصات كل تخصص بيقبل من مجموع معين مطلوب انى لما اضع درجه الطالب يظهرلى التخصص المناسب لهذا المجموع وشكراً لسعة صدرك
  14. اتفضل ابو حنين الملف لعله يقى بالغرض بحث بشرطين.xlsx
  15. السلام عليكم ورحمة الله وبركاتة اعتذر عن التعديل الشامل الذى صار للقاعدة اولا برجاء عدم الاستخدام الحروف العربية لتسمية الجداول او الحقول مع الاخذ فى الاعتبار عدم استخدام المسافة للفصل بين الكلمات كذلك وذلك لسهولة التعامل مع الأكواد اترككم للاستمتاع بالقاعدة الجديدة اتمنى ان شاؤ الله ان تجدوا ضالتكم تقييم الطالبات 2003( الطى والتوسيع).mdb
  16. بعد اذن استاذنا الكبير الاستاذ سليم واثراء للموضوع اتفضل الملف لعله يفى بالغرض نسخة من z1.xlsx
  17. لما بعملها اقل من 91 كله بيعمل لون اصفر تقريبا حضرتك عاملها يدوي اقل من 90 انا رافع ملف كمثال عشان اطبقها على كذا ملف
  18. السلام عليكم الاخوه الكرام فى شيت EXPENSE REPORT يتم استدعاء التاريخ بناء على اسم الشيت المراد البحث فيه الموجود فى الخليه N1 (cairo و Alex. ) واسم البرنامج التدريبى الموجود فى الخليه H19 المراد ان يتم استدعاء التاريخ بناء على اسم الشيت المراد البحث فيه الموجود فى الخليهه N1 (cairo و Alex. ) واسم البرنامج التدريبى الموجود فى الخليه H19 ورقم الموظف الموجود فى الخليه K4 ارجو ان يكون المطلوب تم اضاحه بحث بشرطين.rar
  19. يسلمو فكرك وتنفيذك أستاذي والفضل ليك بعد ربنا لولا اهتمامك وتعاملك السلس يمكن مكنتش هقدر أوصل للنتيجة دي عارف ان قدامي مشوار طويل بس انا سعيد بالبداية الحلوه دي وياريت اللي جاي يكون كده علشان اداني دفعة معنوية فشكرا لك في تكتين حلوين مش عارف ممكن يتنفذوا ولا لاء لأنهم متقدمين شوية ولم أراهم من قبل؟ 1- في حقول متشابهة في البيانات مثل اسم الشهرة والاسم الكامل وده ليه حقل وده ليه حقل تاني واكيد ده ليه غرض والتاني ليه غرض مختلف والبحث بيكون بس علي حقل اسم الشهرة فبدل ما نعمل حقل تاني للبحث في الاسم الكامل هل نقدر نخلي حقل الاسم الكامل يظهر بجانب اسم الشهرة في نتائج البحث بسبب الارتباط بينهم في سجل واحد. 2- بالنسبة لتصدير ملف البي دي اف ممكن الكود ينشئ ملف جديد بعنوان (نتائج البحث) في ملف قادعة البيانات ويحفظ فيه الملفات المصدرة. يا رب تكون حضرتك فهمت قصدي بدون موشن خبط الراس في الحيط ده هههههه
  20. السلام عليكم ورحمة الله وبركاتة انا اشتغل علي اكسيل 2013 وبعض الملفات لاتفتح معي ويظهر لي الامتدات TXT مع انة XLS
  21. السلام عليكم ورحمة الله وبركاتة في الملف المرفق عايز من 90 الى 61 ينور اصفر ومن 60 الى 31 ينور اخضر ومن 30 او اقل ينور احمر z1.xlsx
  22. اخي الكريم هذا هو جهاز البصمة الذي اعمل عليه يارب يكون هو انا كل يوم مسحول بسبب نقل البيانات من البرنامج الى اكسيل
  23. الله ينور عليك يا ابو صلاح .. كان فيه بس مشكلة فى أزرار التنقل ظبطهالك.وكذلك تم ايقاف بعض عناصر الوحدة النمطية الخاصة بحذف الفواصل والمسافات لإعطاء نتائج صحيحة. Officna 3.accdb
  1. Load more activity


×
×
  • Create New...