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

نجوم المشاركات

  1. محمد ايمن

    محمد ايمن

    الخبراء


    • نقاط

      5

    • Posts

      1,663


  2. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      4

    • Posts

      8,723


  3. طلعت محمد حسن

    طلعت محمد حسن

    الخبراء


    • نقاط

      4

    • Posts

      774


  4. عبد الله قدور

    عبد الله قدور

    الخبراء


    • نقاط

      2

    • Posts

      1,165


Popular Content

Showing content with the highest reputation on 04 نوف, 2016 in all areas

  1. تحية طيبة اخي الكريم اذا احسنت الفهم منك فانت تريد تنفيذ الكود السابق لكافة السجلات DatterrII2.rar
    2 points
  2. تفضل PLEASE HELP MEEE salim.rar
    2 points
  3. اقتراح قدمته لمجتمع مايكروسوفت بخصوص تطوير فى دوال الاهلاك وملخص الاقتراح هو . دوال الاكسيل الخاصه بالاهلاك 5 دول هم (SLN,DB,DDB,VDB,SYD) هذه الدول تحسب الاهلاك لفترة كاملة عادة سنه . ولا تحسب الفترات الجزئية بشكل مباشر مثلا اصل تم شراؤه فى شهر 7 سيتم ادخال دوال مساعده كثيره لحساب الفرق بين التواريخ .......الخ وستكون المعادلة ضخمه. فيما عدا الدالة (VDB) فقط تحسب الفترات الجزئية -------------- والمقترح هو اضافة وسيطين 2argument هما فترة البداية Starting وفترة النهاية End date وهكذا تحسب هذه الدوال الاهلاك بدقة وبسهولة تامه ----------- اللى موافق على اقتراحى يدخل الرابط ويعمل لايك ااى تفاعل . واكيد الاهلاك لازم هتحتاج ليه عاجلا ام اجلا https://techcommunity.microsoft.com/t5/Formulas-and-Functions/Suggestion-and-the-recommendation-of-special-functions/m-p/13884#M18 ------- نسال الله التوفيق لى ولكم اجمل تحياتى لكم محمد الريفى
    1 point
  4. كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس باستخدام دالة dateserial دالة mod حلقة التكرار for...next رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfUkt5VjZCejhvNDg/view?usp=sharing الكود Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo 1 Dim i As Integer For i = 1 To 31 Me.Controls("j" & i) = Format(DateSerial([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("no" & i) = Format(DateSerial([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("de" & i) = Format(DateSerial([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("oc" & i) = Format(DateSerial([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("se" & i) = Format(DateSerial([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 29 Me.Controls("f" & i) = Format(DateSerial([Forms]![mf1]![mmm], 2, Me.Controls("d" & i)), "ddd") Next i Dim ss As Integer ss = [Forms]![mf1]![mmm] Mod 4 Me.f29.Visible = ss = 0 For i = 1 To 31 Me.Controls("ma" & i) = Format(DateSerial([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("ap" & i) = Format(DateSerial([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("may" & i) = Format(DateSerial([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("yo" & i) = Format(DateSerial([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("yl" & i) = Format(DateSerial([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("og" & i) = Format(DateSerial([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd") Next i 1: End Subالفيديو https://www.youtube.com/watch?v=xwpO5KD-8wc
    1 point
  5. اذا كان هذا مطلوبك انظر التعديل تم في الاستعلام الفرعي داخل التقرير Print2.rar
    1 point
  6. اليك التعديل الذي طلبه اخي ضع بدل مربع النص بدن النموذج BackColor.rar
    1 point
  7. أين الاعجاب؟؟!! او ان كبسة زر صعبة قوي
    1 point
  8. 1 point
  9. اختي الكريمة علينا ان نرجع خطوة للوراء الى تصميم الجداول في قاعدة البيانات جدول الموظفين - حقل رقم الموظف - هذا الحقل يمكن ان يكون رقم تلقائي و لكن يفضل ان نقوم نحن بعلمية الترقيم برمجيا جدول الاجازات - حقل رقم الموظف - هذا الحقل لا يصح ابدا ان يكون ترقيم تلقائي و الاسباب على سبيل المثال الموظف رقم 1 في جدول الموظفين اسمه محمود الموظف رقم 2 في جدول الموظفين اسمه احمد اذا قام احمد بتقديم طلب اجازة سيتم تسجيل اجازته في جدول الاجازات تحت رقم (1) وهذا خطا فالموظف احمد رقمه 2 و ليس 1 الترقيم التلقائي لا يقبل التكرار ومن الممكن ان يقدم الموظف اكثر من اجازة ويجب ان تسجل اجازته بنفس رقمه ولكن في هذه الحالة ستجل كل اجازة برقم جديد اذا كيف يمكن حل هذه المشكلة ؟؟ يجب تحويل الحقل الى رقم و ان يقبل التكرار ( من اجل عملية الربط في العلاقات ) نعود الى الطلب الاساسي وهو البيانات المراد ادخالها الى الموظفين اذا احسنت الفهم منك فانتي تريدين ادخال البيانات لموظفين محددين وهنا يوجد سؤالين السؤال الاول لماذا تريدين ادخال البيانات لموظفين محددين ؟؟ المفترض عند ادخال الاجازة لموظف ان تدخل هذه البيانات الى جدول الاجازات و بالتالي لا يوجد داعي من تكرارها السؤال الثاني اذا كان لابد من تكرار هذه البيانات او ادخالها لمجموعة موظفين فلا بد من تواجد شروط معينة ماهي هذه الشروط ؟؟؟؟ اعتذر على الاطالة و لكن انظري في المرفق ووافيني بالرد اضافة اكثر من موظف في ان واحد1.rar
    1 point
  10. تحية طيبة اختي الكريمة ماهي البيانات المراد اضافتها الى الجدول ؟؟ ارجو منك التوضيح اكثر
    1 point
  11. جرب هذا الماكرو يعمل فقط في العامودين A & B Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Count = 1 Then If IsDate(Target.Offset(0, 1)) = False Then MsgBox "Please Enter Only a Date In: " & Target.Offset(0, 1).Address, , "Salim tell you" Target = "" End If Application.EnableEvents = True End If Application.EnableEvents = True End Sub
    1 point
  12. اخي محمد سوف تتم معالجة هذا في اقرب وقت ممكن ان شاء الله تعالى اقبل تحياتي واحترامي
    1 point
  13. لك مثل ما دعوت لي اولا اخي محمد تذهب الى امر التأكد من الصحة في الاكسل وتفتح النافذه وتختار مخصص قبل ذالك تكون قد حددت المدى المراد عدم وجود تكرار فية وتضع المعادلة التالية ومن ثم كتابة الرسالة التوضيحية countif($A$4:$A$10;A4)=1= ومعناه لو المدى المحدد تكرر الرقم فية اكثر من مرة لا تقبل هذا واظهر لي رسالة بالخطأ هذا شرح مبسط للاجراء الذي تم اقبل تحياتي واحترامي
    1 point
  14. وعليكم السلام جربتة شغال كويس بس هناك مشكلة فى البحث خلال الشهر عند اختيار شهر يناير تظهر كل الرواتب فى شهر يناير وهذا تمام ولكن عند تحديد فرع لمعرفة اجمالى راتبة خلال شهر يناير لا تتم التصفية ويظهر كل رواتب الفرع فى كل الشهور حيث لايوجد ربط بين البحث بالشهر والبحث بالفرع والبحث بالحالة والكفالة فيجب ان يكون هناك ربط بينهم وتتم تصفية البيانات . وشكرا لك اخى العزيز
    1 point
  15. السلام عليكم استاذي الفاضل عبد الله ورحمة الله وبركاته كلمة شكرا قليلة في حقك لايسعني الا ان اقول اللهم ربي يحميك من كل سوء سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب نعم هذا هو المطلوب
    1 point
  16. السلام عليكم اليك التعديل في المرفق اخي الكريم وضعت الكود في حدث بعد التحديث للوزن المحمل والوزن الفارغ compny.rar
    1 point
  17. السلام عليكم اخي الكريم شاهد المرفق لعة يكون هو المطلوب تنبيه عند وجود تكرار.rar
    1 point
  18. السلام عليكم كيفك اخي محمد ان شاء الله تكون بصحة ممتازة اما بالنسبة للعمل طلباتك واضحة بالنسبة لي ولكن المشكلة بالبناء الذي تم الا اذا قمنا بعملية الهدم والبناء من اول وجديد طلباتك تذكرني اول ما عملت بالمحاسبة كنا نعمل بنظام الدفاتر حيث كان لا يوجد حاسوب في ذالك الوقت ولا برامج محاسبية وكنا نفتح لكل عميل او حساب صفحة مستقلة في الدفاتر المتعددة وتقوم بعملية الترحيل والتجميع لاستخراج البيانات اما الان مع ظهور الكمبيوتر فلا حاجة لتضيع الوقت بالعمل القديم فالكمبيوتر يقوم بعمل كل شيئ بسرعة ودقة متناهية طبعا اذا كانت المدخلات صحيحة. فالجدول الذي قمنا بأنشاءه في العمل بأمكانك ترحيل كل الاشهر بداخلة وبعملية الاستعلام عن اي شهر تخرج لك النتائج بسرعة متناهية وبدقة كذالك فلا حاجة لكي نعمل لكل شهر صفحة والرجوع الى الوراء اما بخصوص الاستعلام من خلال الرقم القومي فهو بالعمل عملية اختيار من الكمبوبكس بحيث لا يتم الكتابة منك للرقم القومي بل عملية اختيار اما بخصوص البحث من خلال اي حرف بالاسم فهي موجودة من الناحية البرمجية ولكني ابحث في هذا الموضوع فانا ما زلت اتعلم وابحث عن المعلومة الصحيحة ما تفكر من كلامي هذا اني متضايق بالعكس ان كثير سعيد بالاسئلة التي طرحتها والنتائج التي توصلنا بها وسعيد اكثر بمعرفتك لاني شعرت بالقرب منك اخ عزيز على قلبي ارجوا ان تكون الصورة اصبحت واضحة واليك وانا بأنتظار تبادل الافكار بيني وبينك اقبل تحياتي واحترمي لشخصك الكريم
    1 point
  19. السلام عليكم و رحمة الله تعالى و بركاته: بعد إذنك أستاذي محمد أيمن هذا مثال يوضح طلب السائل استعمال الدالة for.rar
    1 point
  20. 1 point
  21. السلام عليكم ======== اخى العزيز يمكنك بطريقة ما ان تزيد العدد الى ما تشاء اليك شرح فيديو للطريقة الى ان نكتشف طريقة اخرى hh.rar
    1 point
  22. من حسن حظي ان اكون اول واحد يرد جزاك الله كل خير عمل متقن
    1 point
×
×
  • اضف...

Important Information