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

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

  1. الـعيدروس

    الـعيدروس

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


    • نقاط

      6

    • Posts

      3,277


  2. محمد أبوعبدالله

    • نقاط

      5

    • Posts

      1,998


  3. kha9009lid

    kha9009lid

    الخبراء


    • نقاط

      4

    • Posts

      1,347


  4. sandanet

    sandanet

    الخبراء


    • نقاط

      3

    • Posts

      1,366


Popular Content

Showing content with the highest reputation on 27 نوف, 2019 in all areas

  1. فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو5 حذف بيان الفيديو
    2 points
  2. السبب التحديث مثلا لدي 8 اجهزة بالمنزل في البداية حصلت المشكلة في جهاز واحد وفي اليوم الثاني ثلاث اجهزة بعدها دخلت على التحديثات ووجدت ان المشكلة حصلت للاجهزة المحدثة فقط اعتقد ان المشكلة انتهت الان
    2 points
  3. الاخ idriss idrissou تفضل جرب المرفق CONSULTATION_1.rar
    2 points
  4. زيادة الى ماتفضل به الاستاذ محمد فانه يجب عليك عمل compile للكود للتأكد من عدم وجود اي أخطاء ومن ثم يمكنك بعدها تحويل الملف الى Accde
    2 points
  5. وعليكم السلام ورحمة الله وبركاته هل انت متأكد من عدم نقص في المكتبات المسجلة في البرنامج جرب احد الحلول 1 - عمل ضغط واصلاح قاعدة البيانات ثم جرب تحويل الملف 2 - انشىؤ قاعدة بيانات جديدة واستورد اليها جميع كائنات قاعدة البيانات القديمة ثم جرب تحويل الملف تحياتي
    2 points
  6. السلام عليكم تفضل اخي العزيز XLtoEXE.rar
    2 points
  7. نمودج قريب للشرح في مشاركتك اتمنى ان يساعدك في طلبك m2000.xlsm
    2 points
  8. السلام عليكم ورحمة الله وبركاته قمت بتعديل برنامج طباعة الشيكات ليتناسب مع طلبك الكويت.xls
    2 points
  9. فورم اكسل لقصص انبياء الله للاطفال والكبار الفيديو الملف باسفل فورم اكسل لقصص الانبياء.rar
    1 point
  10. وعليكم السلام ورحمة الله وبركاته اكيد مع المبدع @jjafferr ستجد الحل باذن الله تحياتي
    1 point
  11. بارك الله فيك استاذ لكن ما هو السبب ان بعض الاجهزة لا نواجه هذه المشكلة والبعض الاخر نواجهها مع الاعتبار ان الجهازين لهما نفس النسخة؟
    1 point
  12. شكرا استاذ على عندك حق المشكلة عندى انا اكرر شكرى
    1 point
  13. أخى الكريم المشكلة لديك فكل شيء يعمل معى بكفاءة وادخل بالفعل الى شيت الإكسيل
    1 point
  14. اهلا بك فى منتدانا الكريم -شرفتنا-تفضل لك ما طلبت تم عمل ايقونة على الفورم للدخول منها الى شيت الإكسيل بإستخدام هذا الكود Private Sub CommandButton2_Click() Application.Visible = True Sheet1.Activate Me.Hide UserForm1.Hide End Sub 1البواخر.xlsm
    1 point
  15. أستاذ abosam أين الضغط على الإعجاب ؟
    1 point
  16. وعليكم السلام-بالله عليكم انتبه لهذا الموضوع جدا فقد نبهنا فى العديد من المرات عليكم بإستخدام خاصية البحث فى المنتدى قبل رفع المشاركات فالمنتدى به كنوز وحتى تتفرغ الأساتذة للإجابة على اسئلة مختلفة لم ترد بالمنتدى لعدم اهدار الوقت تفضل به طلبك https://www.officena.net/ib/topic/65499-ربط-ملف-الإكسل-ب-google-map/
    1 point
  17. انا جربته فهو بالفعل يعمل ضغط واصلاح
    1 point
  18. السلام عليكم بعد اذن الاخ تومي فعلا الامر غير متاح كاملا بصورة مباشرة و لكن يمكن عمل بعض التحايل ما فهمته ان السؤال يتضمن شقين 1- ان تكون الخلايا غير قابلة للاتساع 2- تحديد الحروف لكل خلية الجزء الاول : من خصائص الجدول اختار الصفوف ثم حدد الارتفاع بعد اختيار Exactly من خصائص الجدول بعد اختياره مع ملاحظة ان ذلك لن يمنع اضافة نصوص بحجم اكبر من ارتفاع الخلية و انما هو تحديد شكلي فقط الجزء الثاني لا يمكن بصورة مباشرة ، و لكن للتحايل ، من قائمة المطورين Developers اختار هذه أداة مربع النص الظاهر فى الصورة و ادرج مربع النصوص هذا فى الخلية المراد تحديد عدد حروفها ثم اختار خصائص مريع النص ثم حدد الحد الاقصي فى الخصائص فى عند Max_Length ضع الحد المطلوب و ليكن 5 حروف ويمكن ايضا التحكم بالارتفاع و العرض و هل يتسع تلقائيا ام لا ثم بعد ذلك الغي تفعيل وضع التصميم و لن يقبل صندوق النص نصوصا اطول مما حددت
    1 point
  19. وعليكم السلام ورحمة الله وبركاته يمكنك فتح نموذج frmAbsent لاضافة الغياب مباشرة >>> ضع له زر امر في واجهة البرنامج او المكان المناسب لك ويمكنك فتح نموذج frmAbsent2 لاضافة ملاحظات الحضور مباشرة >>> ضع له زر امر في واجهة البرنامج او المكان المناسب لك تحياتي
    1 point
  20. ما هو انت الذي طلبت ذلك من خلال هذه العبارة في سؤالك: يتم فك الادماج واعادة كتابة البيانات في الخلية الثانية بحيث لا تترك فارغة
    1 point
  21. جرب هذا الكود بعد اذن الاساتذه الافاضل Dim Ar() Dim i Private Sub Merg_Ali() Dim C As Range Dim A As String Dim B Sp False Erase Ar: i = 0 For Each C In ActiveSheet.UsedRange.Cells If C.MergeCells Then If i >= 1 Then If Ar(1, i) = C.MergeArea.Address Then GoTo nx End If i = i + 1 ReDim Preserve Ar(1 To 2, 1 To i) A = C.MergeArea.Address: B = C.Value Ar(1, i) = A: Ar(2, i) = B nx: C.UnMerge End If Next Sp True If i Then Ar = Application.Transpose(Ar) End Sub Private Sub Ad(A) Sp False For x = LBound(A, 1) To UBound(A, 1) Range(A(x, 1)) = A(x, 2) Next Sp True End Sub Sub Ali_Mr() Merg_Ali If i Then Ad Ar: Erase Ar: i = 0 End Sub Private Function Sp(Bl As Boolean) With Application .ScreenUpdating = Bl .EnableEvents = Bl End With End Function
    1 point
  22. اخي الكريم الذي قمت به هو كالتالي .. قمت باستعمال الكود التالي تحت زر أمر اعادة التشغيل Application.SetOption "Auto compact", True Utilities.Restart مع إزالة الكود التالي Utilities.Restart Compact:=Nz(ckCompact, False) وكذلك قمت بإزالة الكود التالي من الوحدة النمطية If Compact Then End If مع الابقاء على الكود التالي الذي هو بداخل عبارة الـ if السابقة s = s & """%~f1"" ""%~f2.%3"" /compact" & vbCrLf الملف تمت تجربته وهو يعمل إعادة تشغيل مع الضغط والاصلاح تلقائياً بدون اي مشاكل على اوفيس 2007 تحياتي DatabaseRestartV1.2.accdb
    1 point
  23. السلام عليكم جرب المرفق ان شاء الله يفي بالغرض برنامج المعتمرين _A2.xlsm
    1 point
  24. تفضل الملف بدون ضغط HR.accdb
    1 point
  25. وعليكم السلام ارفق ملف وعليه توضيح طلبك
    1 point
  26. معذره لم يتم التعديل بالشكل الصحيح اعد تنزيل مرفق اخر مشاركة
    1 point
  27. السلام عليكم تفضل اخي المرفق غياب_A7 مع الغياب بعذر.xlsm
    1 point
  28. السلام عليكم جرب المرفق غياب_A6 مع الغياب بعذر.xlsm
    1 point
  29. السلام عليكم 🙂 سر ولازم اكشفه 🙂 في الكثير من المواضيع المهمة اللي اريد اتابعها ، ولكن بدون ان اضيف مشاركة ، اقدر اتابع هكذا : جعفر
    1 point
  30. السلام عليكم أحبائي في هذا المنتدى بداية أحب ان أعبر عن خالص شكري وتقديري لكم مشرفين وأعضاء ، فقد كانت بداياتي معكم كأي مستخدم بسيط جدا على الاكسل وقد طورت نفسي كثيرا بجهدوكم معنا ,احببت اليوم ان اضع بين أيدكم برنامج قمت بتصميمه على الاكسل للشهادات وكشوف الدرجات خاصة بمدارس وكالة الغوث في غزة البرنامج موجود كمرفق في هذه المشاركة (مرفق لكل مرحلة) نرجو منكم تحميل البرنامج من الموقع نفسه وتقديم مقترحاتكم حوله برنامج يختص بإعداد الشهادات وكشوف الدرجات لمدارس وكالة الغوث الدولية بمنطقة غزة التعليمية مخرجات البرنامج : * شهادات الفصل الأول * شهادات الفصل الثاني * مصدقة الشهادة وهي مستخرج شهادة بدل فاقد * كشف درجات الفصل الأول ( ويشتمل على المجموع ، الترتيب ، النتيجة ) * كشف درجات الفصل الثاني ( ويشتمل على مجموع الفصل الأول والثاني وترتيب الفصل الثاني والنتيجة النهائية ، ناجح ، راسب، مكمل ) * كشف عام في نهاية الفصل الثاني خاص ( بالتعليم) ويتم من خلاله تحديد مواد الإكمال وتحديد علامات الإكمال * كشف عام للمدرسة في نهاية الفصل الثاني ويشتمل على الترتيب والنتيجة النهائية * خلاصة الفصل الأول ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * خلاصة الفصل الثاني ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * الخلاصة العامة للفصلين ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) حسب النتيجة النهائية بعد التعديل * كشف المترفعين للعام الدراسي الجديد * كشف المكملين * كشف الراسبين * كشف الغائبين **** نموذج سهل لطباعة الشهادات بطريقة سهلة من خلال نفس البرنامج والتحكم في عدد الشهادات المراد طباعتها ونوعيتها بلون أسود أو بالألوان ملاحظة : تم وضع معايير للعلامات بحيث أن العلامة المدخلة من( 1-50 ) ولا يقبل الحاسوب علامة أكبرمن 50 أو أصغر من 1 ، في حالة الغياب نكتب للطالب غائب ويمكن وضع أنصاف الدرجات للطالب وخاصة في حالة الطلاب المتميزين التي تفصل بينهم نصف الدرجة عند الترتيب " shahada1_2_3_4.zip shahada5_6.zip shahada7_8_9.zip
    1 point
  31. بارك الله فيك أخي الحبيب بن عليه وجزيت خير الجزاء ولكن لي رأي عند التعامل مع الأكواد أفضل عدم الاعتماد على ورقة العمل .. فيمكن الاستغناء عن العمود المساعد كما يمكن الاستغناء عن النطاقات المسماة والتي أرى أنها من الأسباب التي تثقل من عمل الملف عند الإكثار منها .. فإليك الكود التالي عله يفي بالغرض Sub Insert_HBreaks() Dim I As Integer, Str1 As String, Str2 As String With ThisWorkbook.Worksheets("Sheet1") .ResetAllPageBreaks Str1 = .Range("B2") For I = 2 To .Range("A" & .Rows.Count).End(xlUp).Row Str2 = .Range("B" & I) If Str2 <> Str1 Then .HPageBreaks.Add Before:=.Range("A" & I) Str1 = Str2 End If Next I End With End Sub تقبل وافر تقديري واحترامي
    1 point
  32. السلام عليكم ورحمة الله أخي الكريم لست أدري إن كنت قد فهمت المطلوب جيدا ولكني أقدم العمل التالي في المرفق مع تحفظ شديد (خاصة فيما يتعلق بالانحراف المعياري لأن له قانونين مختلفين -اختلاف بسيط-)... بن علية ‫مصنف 2.rar
    1 point
  33. هذا الوصف واضح ، بينما الوصف السابق لم يكن تفضل نقوم بإعادة ترقيم [رقم المادة] كلما حدث حذف ، هكذا: Private Sub Form_AfterDelConfirm(Status As Integer) Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC rst.Edit rst![رقم المادة] = i rst.Update rst.MoveNext Next i End Sub جعفر 316.students.accdb.zip
    1 point
  34. جرب هذا الملف show_names_1_2_by letters Arrays.zip
    1 point
×
×
  • اضف...

Important Information