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

هذه الصفحة تحدث تلقائياً   

  1. الساعة الأخيرة
  2. السلام عليكم ورحمة الله اول زي بدء اتقدم بخالص الشكر والتقدير لكل الاخوة المشرفين والاعضاء في المنتدى لما يقوموا به من اسهامات عبقرية لحلول مشاكل المشتركين وارجوا ان اجد حلا لهذا الامر طرف عباقرة الاوفيس في اوفيسنا مرفق شيت كروت العملاء في ورقة العمل كروت العملاء يتم التعامل برقم العميل ونظرا لطول الصفحة فاتمنى كود إخفاء ما تحت خلية البحث حتى الكود الذي يتم البحث عنه في خلية البحث في الملف المرفق العميل رقم 0405 يبدأ من الصف 120 وهو مدى متغير وغير ثابت في حال الحث في خلية البحث عن 0405 يتم اخفاء الصفوف من 3 حتى 119 في الملف المرفق العميل رقم 0406 يبدأ من الصف 240 وهو مدى متغير وغير ثابت في حال الحث في خلية البحث عن 0405 يتم اخفاء الصفوف من 3 حتى 239 وفي حال البحث عن اول كود 0401 يتم اظهار كل ورقة العمل برجاء اقتصار العمل على ورقة العمل ( كروت العملاء فقط ) وتقبلوا كل التقدير والاحترام كروت عملاء.rar
  3. بسم الله الرحمن الرحيم استخراج القيم الفريده بطريقة العلامه عبد الله باقشير .. حفظه الله ورعاه مع شرح الكود جزى الله كل من ساهم في اخراج هذا العمل الى النور بكل خير Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False 'مسح عمود القيم الفريده [V5:V500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [V5:V500] 'اسم شيت المصدرورقم صف البدايه في شيت المصدر For U = 7 To Sheets("رصد الترم الثانى").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدر Cells(U, 22) = Sheets("رصد الترم الثانى").Cells(U, 4) 'رقم عمودالبيانات الفريدهفي الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 22)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 22).ClearContents End If Next 'فرز عمود القيم الفريده [V5:V500].Sort [V5], xlAscending Application.ScreenUpdating = True End Sub استخراج القيم الفريده.rar
  4. الف شكر وشكرا لك اخوي @kamel2711 @moham_q @Rebaz Bahram شكرا لك استاذي الحبيب رمهان الله ينور طريقك ...
  5. بسم الله الرحمن الرحيم استخراج القيم الفريده بطريقة العلامه عبد الله باقشير .. حفظه الله ورعاه مع شرح الكود جزى الله كل من ساهم في اخراج هذا العمل الى النور بكل خير Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False 'مسح عمود القيم الفريده [V5:V500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [V5:V500] 'اسم شيت المصدرورقم صف البدايه في شيت المصدر For U = 7 To Sheets("رصد الترم الثانى").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدر Cells(U, 22) = Sheets("رصد الترم الثانى").Cells(U, 4) 'رقم عمودالبيانات الفريدهفي الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 22)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 22).ClearContents End If Next 'فرز عمود القيم الفريده [V5:V500].Sort [V5], xlAscending Application.ScreenUpdating = True End Sub استخراج القيم الفريده.rar
  6. عليكم السلام تم التعديل على النموذج الفرعي ومطلوبك تجده في استعلام1 يغنيك عن الاضافة الى الجداول وكما تعلم الاستعلام هو جدول ويزيد عليه ايضا Database122.rar
  7. السلام عليكم وحمة الله تعالى وبركاته اساتذتى الكرام من فضلكم هل يوجد كود او طريقة لتحويل اى عدد من الصور مهما كان داخل مسا محدد الى ملف pdf من خلال بحثى على الانترنت وجد هذه الطريقة ولكن لم تعمل معى Convert image directly to PDF https://examples.activepdf.com/Toolkit/2017/Convert_image_directly_to_PDF.vbs
  8. اليوم
  9. لا تعمل على التخمين اخي ولكن لا اريد المساعده في الملف اريد معلومه بشكل عام هل يمكن اخفاء قيم خلايا في الاكسل ويكون اظهارها بكود سري او كلمة سر ؟ وشكرا جزيلا
  10. السلام عليكم بسم الله نبدأ: لدينا في مؤسسة ما عدة مكاتب لإدخال البيانات لفئة ما من المراجعين نود تنظيم عملية استقبال المراجعين بشكل لائق وحضاري بعيداً عن الفوضى وذلك بطباعة رقم لكل مراجع ومن ثم استدعاء رقم المراجع للبدء في معاملته من خلال برنامج يتم تصميمة لاستدعاء أرقام المراجعين .. لدينا غرفة لاستقبال وانتظار المراجعين يوجد فيها جهاز كمبيوتر موصول على الشبكة وموصول بشاشة من الحجم الكبير بالإضافة إلى مكبرات صوت لاستدعاء رقم المراجع لدينا طابعة تقوم بوظيفتها بطباعة أرقام متسلسلة لجميع فئات المراجعين في غرفة الانتظار لدينا أجهزة كمبيوتر للموظفين موصولة بشبكة حاسوبية على عدة مكاتب مرقمة ابجدياً A-B-C-D-E............... نود من خلال ضغطة زر موجود في البرنامج على كمبيوتر الموظف باستدعاء الرقم (الرقم التالي) للمراجع ويظهر الرقم مع رقم الكاونتر ومراعاة استدعاء الرقم الجديد عند ضغط الزر من عدة كاونترات سوية على الشاشة الكبيرة الموجودة في غرفة الانتظار يتألف برنامج الطابور من 3 واجهات رئيسية: 1-واجهة طلب الخدمة للعميل 2-واجهة استدعاء الخدمة للموظفين 3-واجهة عرض الخدمة أولاً.. سأبدأ في بناء الجداول فيرجى منكم مشاركتنا بردودكم الشيقة وأفكاركم النيرة ولو بأدنى فكرة عن آلية البرمجة لقاعدة بيانات إدارة الطابور للمؤسسات والمكاتب QSystem.rar
  11. تفضل سوف ينتقل بمجرد كتابة تاريخ المباشرة الملاكات3.rar
  12. الله يصبحك /يمسيك بالخير ممكن تزودنا بالبرنامج من دون أجزاء مجمده شاكرين ومقدرين
  13. السلام عليكم ورحمه الله وبركاته أريد كود أو أى طريقه أخرى تقوم بنسخ قيمه من فورم إلى فورم آخر تلقائيا يربط بينهم اسم الموظف والتاريخ مرفق مثال للتوضيح وجزاكم الله خيرا Database111.rar
  14. وإياكم أستاذ ناصر وفقنا الله جميعا للخير في الدنيا و الآخرة أرجو أن أكون قد وفقت في إفادة أحد من الأعضاء ولو بمعلومة بسيطة لم يكن يعلمها أو تذكر معلومة قد نسيها
  15. السلام عليكم ورحمة الله وبركاته ربما بسبب انشغال الزملاء أو عدم وضوح المطلوب بصورة كافية وربما لمخالفة حضرتك لقوانين المنتدى في اسم الظهور وكتابة العنوان الذي لا يدل على المضمون ألقاكم على خير
  16. علشان حدث التنشيط يشتغل ممكن تضغط على أي شيت تاني وبعدين تضغط على الشيت المطلوب وزيادة في التأكيد ممكن تحط الكود في حدث فتح المصنف Private Sub Workbook_Open() وإذا كان الملف أكثر من شيت يجب تحديد شيت العمل المطلوب With Worksheets("Sheet1") ووضع الكود هنا ثم إنهاء التعامل مع الشيت المطلوب End With
  17. السلام عليكم شكرا استاذ ابو خليل الله يديم عليك الصحة والعافية جدول Movement يعمل بشكل صحيح ولكن اريد ان ينتقل الموظف الى الروضة الجديدة ولن يبقى في الروضة القديمة عند البحث عن اسمه
  18. السلام عليكم استاذ ابو عبدالله الحلواني بعد التحية والله استاذ دوختني العلاقه الي عاملها بين الجدولين بما يلي الجدولين حين عرضهما بطريقة التصميم اجد احد الجدولين به مفاح اساسي والاخر لا وحين عرض العلاقة بين الجدولين اجد الجدولين اثنينهم بهن مفتاح اساس ؟ اسماء الحقول الموجودة في الجداول التي بينها علاقة تختلف من ناحية اللغة وكذلك عددها عند الرجوع للجداول الاصلية؟ اين تم الربط بين اي حقلين ؟ اعذرني كوني لست خبيرا بالاكسس ولكن قمت بما يلي انشات جدول اخر ووضعت فيةه حقلين الاول اسمه (ت) البيانات فيه نوع رقم والاخر اسمه التحصيل الدراسي نوع البيانات نص وقمت ربط الجدولين بين حقلي (ت) ولم تنجح واعدت المحاولة بين حقلي التحصيل الدراسي ولم تنجح ومره اخري عكست بكلا الاتجاهين ولم تنجح مع العلم اني عملت بتعليمات التي قلتها ان اجعل حقل الشهادة في الجدول الاساس combobox لو تفضلتم وحل هذا الاشكال وشكرا
  19. بارك الله فيك وجزاك الله خير ا اخي الكريم على جهازي الاول شغال تمام والاوفيس 2013 بجرب ان شاء الله
  20. ارفع نموذج عما تريد لا احد يعمل على التخمين
  21. برجاء من اساتذتى الكرام عمل معادلة لجمع مواد الرسوب فى الملف المرفق ولكم منا جزيل الشكر Microsoft Excel Worksheet جديد.rar
  22. أخى الكريم الكود راح يكون هكذا ولاحظ التغيير فيه مع تغيير أماكن خلايا الشرط أصبحت ( T9 و U9 ) وتغيير النطاق بشيت الاستعلام مرفق مثال توضيحي على الملف الخاص بكم Sub Work() Sheet2.Range("S13:V5000").ClearContents r = 13 For i = 11 To Sheet1.Range("E10000").End(xlUp).Row + 1 If Sheet2.Range("T9").Value = "" Then GoTo a If Sheet2.Range("T9").Value <= Sheet1.Cells(i, "E") Then a: If Sheet2.Range("U9").Value = "" Then GoTo a1 If Sheet2.Range("U9").Value >= Sheet1.Cells(i, "E") Then a1: Sheet2.Cells(r, 19) = Sheet1.Cells(i, 2) Sheet2.Cells(r, 20) = Sheet1.Cells(i, 3) Sheet2.Cells(r, 21) = Sheet1.Cells(i, 4) Sheet2.Cells(r, 22) = Sheet1.Cells(i, 5) r = r + 1 End If End If Next i End Sub جلب بيانات بين تاريخين_2.rar
  23. أشكرك أخى الكريم ولا داعى للإعتذار فكلنا هنا اخوة ويرجي إيضاح الطلب الذى ذكرته فى ردى والخاص بالنقطة خامسا والمرتبط بطلبك بالنقطة ثالثا
  24. ما هذا أترككم ساعات فأعود لأجد كل هذه المناقشات وفقك الله أستاذ رمهان لم أجرب شيئا من هذا أبدا لك مطلق الحرية فى التعديل و التضبيط و نحن نستفيد منك و نحصل على الملف النهائى شكرا لكم
  25. Yesterday
  26. هذا الكود عمل معى Forms!test1!ID.SetFocus DoCmd.FindRecord Me.ID الاسم الذى ضغط عليه ظهر فى النموذج الرئيسي ولكن فى نفس الوقت جميع الاسماء مازالت فى النموذج الفرعى اريد ظهور الاسم الذى ضغط عليه فقط
  1. Load more activity