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

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

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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      4

    • Posts

      8,723


  2. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      4

    • Posts

      13,165


  3. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      2

    • Posts

      12,215


  4. naderwatfa

    naderwatfa

    04 عضو فضي


    • نقاط

      2

    • Posts

      700


Popular Content

Showing content with the highest reputation on 15 أغس, 2016 in all areas

  1. 2 points
  2. السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar
    1 point
  3. السلام عليكمبتوفيق الله تم إعداد هذا الفيديوالذى هو أكثر احترافية لو أجدتم المهارات المشروحة فيهلاقترب بكم هذا من احتراف الأكسيس و إنجاز المهام به بكل سهولةتعرفون إدراج النموذج الفرعى داخل نموذج رئيسىفالنموذج الرئيسى به مثلا بيانات موظفو تحته نموذج فرعى يبين التدريبات التى حصل عليها الموظفهناك زر يفتح نموذجا يبين تفاصيل التدريب لكن فى حالة عدم وجود تدريبنحتاج لإخفاء هذا الزركيف يتم ذلك بالكودسنتعلم أيضا كيف نقرأ قيمة حقل فى نموذج فرعى و نستخدمهاأيضا فى حالة تعديل حقل فى النموذج الفرعى كيف نفتح نافذة نكتب فيها تفاصيل التدريبأرجو أن تنتفعوا بهذا الشرح وفقكم الله
    1 point
  4. السلام عليكم تعليم برنامج الاكسس 2010 الجزء الاول http://www.mediafire.com/?07u7um8n2ptwg77 الجزء الثاني http://www.mediafire.com/?tt7k8dz8j2h3tkh
    1 point
  5. تنسيق التقارير يمكنك استخدام مجموعة متنوعة من الأدوات والتقنيات لتنسيق التقرير وعناصر التحكم وغيرها من العناصرمثل الصور التي تشتمل في التقرير. على سبيل المثال، يمكنك إضافة صورة خلفية، وتطبيق سمة على التقرير، أو ترتيب البيانات في التقرير في عمودين أو أكثر. يصف هذا القسم وغيرها من مفاهيم تنسيق التقرير. حمل ملف PDF حمل ملف البوربوينت صفحتي الخاصة على الفيسبوك
    1 point
  6. لو ترفع موضوعا جديدا افضل وهل ممكن يصل الترقيم لديك الى 1699999 ؟!!
    1 point
  7. جزاك الله خيرا وزادك جمالا في قلبك وبدنك هلا اخي محمد .. الحل قريب منك جدا ... واقول جزاك الله خيرا على اثراء الموضوع آخر سطر في الكود اعلاه سيصبح : Me!ID = "S" & prtyr & Format(xNext, "00000") ولا تنسى ان تبدل نوع الحقل ID الى نصي
    1 point
  8. شكرا استاد جزاك الله خيرا الكود يعمل كما اريد الف الف شكر
    1 point
  9. رتب الجدول عي هذا الشبت ابتداءً من الخلية A وحتى الخية D مثل باقي الصفحات
    1 point
  10. ربما كان المطلوب الترحيل حسب الموقعsalim.rar
    1 point
  11. وعليكم السلام أخي الكريم للأسف جربت أكثر من 7 برامج مختلفة وكلها لا تؤدي إلى نتيجة .. أعتقد أنه لا فائدة من البكاء على اللبن المسكوب .. يا ريت لو فيه حد عنده برنامج يكون جربه وأعطى نتائج حقيقية .. يقوم بإرفاقه في مشاركة ليستفيد الجميع أو على الأقل يكتب اسم البرنامج
    1 point
  12. ان كنت تقصد مسح الاسم من مربع النص بعد الترحيل فيكون الكود كالتالي Private Sub CommandButton1_Click() x = Sheets("ورقة5").Cells(Rows.Count, "C").End(xlUp).Row + 1 Sheets("ورقة5").Range("C" & x) = TextBox1.Value TextBox1="" End Sub
    1 point
  13. شكرا يا استاذ ياسر عظمة على عظمة شكرا جزيلا اخي
    1 point
  14. جرب التعديل التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range, LR As Integer If Target.Column = 3 And Target.Row > 8 Then Application.EnableEvents = False If Not IsEmpty(Target) Then LR = Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Range(Cells(9, 1), Cells(LR, 1)) With Rng .ClearContents .Formula = "=IF(C9="""","""",SUBTOTAL(3,C$9:C9))" .Value = Rng.Value End With Target.Offset(, 3).Value = "زياد777" End If Application.EnableEvents = True End If End Sub تقبل تحياتي
    1 point
  15. اخوانى الأعزاء يشرفنى أن أقدم لكم تجربتى فى منع ادخال اسمين متشابهين فى سجل مثلاُ : اذا ادخلت فى حقل FirstName اسماً و ليكن خالد و فى الحقل LastName اسماً و ليكن العنودفهذا امر طبيعى لكن اذااضفت سجل جديد و حاولت ادخال نفس البيانات فإن البرنامج من ذلك إلا بتغيير احد الاسمين اتمنى أن ينال رضاكم Dlookup.rar
    1 point
  16. كود ممتاز وبسيط ورائع أخي الغالي عبد السلام بارك الله فيك وجزيت خيراً
    1 point
  17. تفضل اخي الكريم ،،، ومرة ثانية برجاء فتح موضوع جديد بالمطلوب كي يتسنى للجميع الفائدة :: تحياتي waz2-Copy.rar
    1 point
  18. السلام عليكم وبعد اذن اخي صالح لم افتح المرفق ولكني اعتقد ان الكود سيكون شبيه بهذا DSum("[CN]", "VA", "Sap = SA and Format(Date1,"mmyyyy")= Format(Da,"mmyyyy")")
    1 point
  19. وايضا Sub Awafi() Dim i As Integer, ii As Integer, iii As Integer Dim s1 As String, s2 As String, s3 As String, s As String For i = 4 To 1000 s1 = "": s2 = "": s3 = "" If Cells(i, "g") = "" Then Exit For iii = Len(Cells(i, "g")) For ii = 1 To iii s = Mid(Cells(i, "g"), ii, 1) If s = " " Then s1 = s1 & s: s2 = s2 & s: s3 = s3 & s If s < "A" Then s3 = s3 & s ElseIf s > "z" Then s2 = s2 & s Else s1 = s1 & s End If Next ii Cells(i, "m") = Trim(s1) Cells(i, "n") = Trim(s2) Cells(i, "o") = Trim(s3) Next i End Sub
    1 point
  20. 1 point
  21. أخي الحبيب أبو تامر موضوع قديم أول مرة أطلع عليه لكن للأسف المرفقات لا تعمل .. ويعطيني رسالة Unknown Excel ...؟ فهلا جددت لنا الموضوع ووضعت رابط لهذه الأداة التي أظنها رائعة كروعة صاحبها
    1 point
  22. الأخ الكريملعيونك بعد السلام عليكم ارجو ان يفى الملف التالى بالغرض حسب ما فهمت abo_abary_listvalues(1).rar
    1 point
  23. اللَّهُـــمَّ طَهِّـــرْ قُلُــــوبَنَــــا مِــــنَ النِّــــفَاقِ ، وَأَعْمَــالَنَـــا مِـــنَ الـــرِّيَــــاءِ وَأَلْسِـــنَتَــــنَا مِـــــــنَ الكَــــــــذِبِ ، وَأَعْــــيُنَــــنَا مِـــــــــنَ الخِـــــيَانَــــــةِ ، إَنَّـــــكَ تَعْـــــــلَمُ خَـــــــائِنَـــــــةَ الأَعْــــيُنِ وَمَــــــــــا تُخْــــــفِي الصُّـــــدُورُ الحمد لله حتى يبلغ الحمد منتهاه...الحمد لله على نصره المبين ...اللهم أتمم علينا بالخير..آمين..
    1 point
  24. لقد رفع الله قدر نبينا صلى الله عليه وسلم، وأنزله منزلة عظيمة لم تكن ولا تنبغي لأحد من خلقه سواه، وجعل حياته سيرة عطرة ضمَّنها كل إشراقة في جوانب الحياة، ثم جعله أسوة حسنة لمتبعيه يتأسون به في خصال الخير كلها، ومن جملتها تفريغ القلوب لمحبة الله تعالى، والشفقة والرحمة بالمؤمنين، ودعوة الناس إلى الله بالحكمة والموعظة الحسنة، وبيان عظمة الوقوف بين يدي الله تعالى، وزينه تعالى بكل حميد من الأعمال والأقوال والصفات الخلقية والخُلقية، فطاب صلى الله عليه وسلم حياً وميتاً.
    1 point
  25. اخي الحبيب لقد جربت وذالك والمعادلة لم تعمل رجاءا عدل في ملفي ثم اعد تحميله اخي الحبيب لقد جربت وذالك والمعادلة لم تعمل رجاءا عدل في ملفي ثم اعد تحميله
    1 point
  26. الكود المرفق يقوم بحذف الصفوف بناء على القيم المكررة في نطاق معين حدد النطاق بالماوس ثم شغل الكود سيقوم الكود بحذف الصفوف بالكامل إذا كان هناك تكرار في خلايا النطاق المحدد حذف الصفوف المكررة بناء على قيم خلايا محددة في نطاق.rar
    1 point
  27. هذا الكود يقوم بحذف الصفوف بناء على الخلايا الفارغة في نطاق محدد النطاق المحدد هو الذي تقوم بتظليله بالماوس ثم تشغل الكود جرب الملف المرفق لفهم الكود بطريقة عملية حذف صفوف بناء على خلايا فارغة في نطاق محدد.rar
    1 point
×
×
  • اضف...

Important Information