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

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

  1. Foksh

    Foksh

    أوفيسنا


    • نقاط

      4

    • Posts

      4120


  2. husain alhammadi

    husain alhammadi

    03 عضو مميز


    • نقاط

      3

    • Posts

      121


  3. عبدالله بشير عبدالله
  4. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      3

    • Posts

      4344


Popular Content

Showing content with the highest reputation on 10/18/25 in all areas

  1. السلام عليكم و رحمة الله و بركاتة الزملاء الكرام وأعضاء المنتدى الموقرين، تحية طيبة وبعد، نتشرف بإبلاغكم، بفضل الله وتوفيقه، اكتمال المرحلة التطويرية النهائية لتطبيقنا المبارك: [القرآن الكريم]. نأمل أن يكون هذا العمل وقفاً رقمياً مستداماً، وأن يكتب أجره لمن ساهم في إنجازه مادياً وتقنياً. دعوة للمراجعة الفنية وضمان الجودة (Quality Assurance): قبل الإطلاق الرسمي والتعميم، ندعوكم، خاصةً من ذوي الخبرة التقنية والمستخدمين المتمرسين، لتحميل النسخة التجريبية والمشاركة في مراجعتها بدقة وعمق. إن الهدف الجوهري من هذه المرحلة هو: ضمان جودة الأداء: والتأكد من توافق التطبيق مع المعايير التقنية واحتياجات شرائح المستخدمين المتنوعة. تحديد نقاط التحسين: واكتشاف أي مواطن خلل أو قصور فني ووظيفي يتطلب تعديلاً. تحقيق التكاملية: للوصول إلى أفضل تجربة مستخدم ممكنة. نؤكد استعداد فريق العمل لدمج وتطبيق الملاحظات البنّاءة التي تصب في مصلحة الهدف العام للتطبيق، مع الالتزام التام بإعادة نشر النسخة المحسّنة والموثقة لجميع المساهمين والجمهور، تحقيقاً لمبدأ "الصدقة الجارية والمنفعة العامة". ختاماً، ندعو المولى عز وجل أن يتقبل هذا الجهد المشترك وأن يجعله في ميزان حسنات كل من شارك في بناء هذا العمل وفي تحسينه ونشره. مع خالص التقدير والامتنان، حسين الحمادي ابو يوسف القران الكريم.xlsm
    3 points
  2. السلام عليكم ورحمة الله أعتقد أن المعادلة (وهي معادلة صفيف أي يجب تأكيدها بـ CTRL+SHIFT+ENTER) تكون بالشكل التالي: =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020=TRANSPOSE({"محول إلى";"محولة إلى"})); ROW('01'!O$7:O$1020)-6); ROWS($A$1:A1))); "") أو =IFERROR(INDEX('01'!C$7:C$1020, SMALL(IF(('01'!O$7:O$1020=TRANSPOSE({"محول إلى","محولة إلى"})), ROW('01'!O$7:O$1020)-6), ROWS($A$1:A1))), "") والله أعلم
    3 points
  3. وعليكم السلام ورحمة الله وبركاته تم تعديل تعبئة الكموبكس بالعناصر منعا للتكرار وكلما اضفت لونا او مفاسا او صنفا جديد سيتم اظافته للقائمة تلقائيا جرب واعلمني بالنتائج 1فلتر.xlsm
    2 points
  4. السلام عليكم مطلوب معادلة لجمع عدد الحصص لمادة معينة ( اللغة العربية مثلا )لصف معين ( الصف الأول مثلا) المواد موجودة في العمود (E) و رقم الصف الدراسي موجود في العمود (D) و عدد الحصص المطلوبة جمعه بالشرطين موجود في العمود (I) و النتيجة المطلوبة كالتالي عدد حصص اللغة العربية للصف الأول هي عدد حصص اللغة العربية للصف الثاني هي جمع بشرطين.xlsx
    1 point
  5. أستاذنا العبقرى / عبدالله بشير عبدالله سلمت يداك وزادكم الله من فضله
    1 point
  6. وعليكم السلام ورحمة الله وبركانه بعد اذن استاذنا الفاضل عبدللرحيم الاستاذ مستر أيسم ان اردت الحل بالمعادلات فالاستاذ عبدالرحيم حله وافي وكافي اذا اردت الامر بالكود بحيت يجلب المواد والفصول تلقائيا زادات ام تقصت فاليك الملف جمع بشرطين.xlsb
    1 point
  7. جرب المرفق توجد 9 حصص دين بدون عربى OK جمع بشرطين.xlsx
    1 point
  8. 📺 قريباً.. انتظرونا في النسخة الأولى من Foksh TV - فوكش تي ڤي 2025 . الفيديو مقتطف ، لمحاولة تصغير حجم الملف نسخة تجريبية بإصدار 64 تحتوي 3 قنوات حالياً ، وهي قيد التطوير 😉 FokshTV - 64.zip
    1 point
  9. نضيف قنوات يحتاج لك قائمة قنوات من مجموعات الى قنوات مع البحث والمفضلة وتحديث الروابط بجدول بسيط تسلم الانامل استاذ @Foksh ينقصها فك سرفرات
    1 point
  10. أخي الكريم ، كان حلك بسيط جداً وهو بإضافة جملتين فقط للتفعيل وجملتين للمنع ، كود حدث في الحالي للنموذج :- Private Sub Form_Current() On Error GoTo ErrorHandler Dim frmSub As Form If Not IsNull(Me.تحليلى_البيع) Then Set frmSub = Me.تحليلى_البيع.Form If Me.NewRecord Then Me.أمر19.Caption = "إغلاق" frmSub.AllowEdits = True frmSub.AllowAdditions = True frmSub.AllowDeletions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf frmSub.RecordsetClone.RecordCount > 0 Then Me.أمر19.Caption = "تعديل" frmSub.AllowEdits = False frmSub.AllowAdditions = False frmSub.AllowDeletions = False Me.AllowEdits = False Me.AllowDeletions = False Else Me.أمر19.Caption = "إغلاق" frmSub.AllowEdits = True frmSub.AllowAdditions = True frmSub.AllowDeletions = True Me.AllowEdits = True Me.AllowDeletions = True End If End If ExitHandler: Set frmSub = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء تحميل البيانات", vbCritical + vbMsgBoxRight, "" Resume ExitHandler End Sub أو كما أشار إليك الأستاذ @منتصر الانسي ، باستعمال جملة منع و منح صلاحية التعديل فقط ( انا قمت بمنع التعديل والاضافة والحذف ) - باستعمال جملته التالية ولكن في مكانها الصحيح :- Me.AllowEdits = frmSub.AllowEdits وكود الزر لا تعديل عليه بعد التعديل.zip
    1 point
  11. السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك. 1. اضغط Ctrl + H لفتح نافذة "استبدال". 2. أدخل القيمة التي تبحث عنها في حقل "البحث عن". 3. اترك حقل "استبدال بـ" فارغًا. 4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ". 5. اختر لون التعبئة (Fill color) الذي تريده. 6. اضغط "موافق" (OK). 7. اضغط "استبدال الكل" (Replace All). سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.
    1 point
  12. وعليكم السلام ورحمة الله وبركاته.. بما ان المنتج هو العامل المشترك بين الحركات ، فهذا يعني ان لكل منتج قيم تمثل تاريخ صلاحية وسعر وضريبة وسعر شراء تخصه. لذا المفترض ان تكون الحقول في تفاصيل الفاتورة وليس في رأس الفاتورة. هذه تصوري ، ومتابعتي من الجوال
    1 point
×
×
  • اضف...

Important Information