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

السلام عليكم لست أدري إن كنت قد فهمت المطلوب جيدا، أقدم لك حلين أحدهما بالدالة SUMPRODUCT (استعمالها أسهل) والآخر بالدالة BDSUM (بالاستعانة بصفّي الشرط Criteria الملونين بالأزرق) ... بن علية حاجي المصنف1.rar

ادراج رزنامة شهرية لسنة معينة و شهر معين (باختيارك) بدون يوم او يومين تحددهما بنفسك و اذا لم تحدد الايام (بمسح الخلايا المناسبة) يتم ادراج كامل الشهر Sub Give_date_without_same_days() With CommandButton1 .Left = 469: .Top = 18.5: .Width = 154.5 End With If Not IsNumeric([a2]) Or Not IsNumeric([b2]) _ Or [b2] < 1 Or [b2] > 12 _ Or IsEmpty([a2]) Or IsEmpty([b2]) Then MsgBox "أدخل أرقاماً صحيحة في الخلايا " & Chr(10) & "$ِِِA$2 and $B$2 " & Chr(10) _ & "وأعد المحاولة", vbOKOnly + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "!...ٍSalim" Range("c4:Ag5").ClearContents Range("c4:Ag5").Borders.LineStyle = 0 GoTo Exit_Me End If With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlManual End With Dim Array_Days(), My_Days_Arabic() Dim Arab_Day(), My_Date_For_Print() Dim Array_Numbers() Dim t As Date, i%, k%, m%, x%, last_col% Dim y$ '============================== Array_Days = Array("sun", "mon", "tue", "wed", "thu", "fri", "sat") Arab_Day = Array("الأحد", "الإثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السّبت") Array_Numbers = Array(1, 2, 3, 4, 5, 6, 7) last_col = Cells(5, Columns.Count).End(1).Column Range("c4").Resize(2, last_col).ClearContents Range("c4").Resize(2, last_col).Borders.LineStyle = 0 '================================= [a2] = Int([a2]): [b2] = Int([b2]) t = DateSerial([a2], [b2], 1) x = Day(Application.EoMonth(t, 0)) k = 1 For i = 1 To x y = Application.Index(Arab_Day, Application.Match(Weekday(t), Array_Numbers, 0)) If Trim(y) = Trim([d2].Value) Or _ Trim(y) = Trim([e2].Value) Then GoTo 2 ReDim Preserve My_Days_Arabic(1 To k): My_Days_Arabic(k) = y ReDim Preserve My_Date_For_Print(1 To k): My_Date_For_Print(k) = t k = k + 1 ' End If 2: t = t + 1 Next Range("C4").Resize(1, UBound(My_Days_Arabic)) = My_Days_Arabic Range("C5").Resize(1, UBound(My_Date_For_Print)) = My_Date_For_Print Range("C4").Resize(2, UBound(My_Days_Arabic)).Borders.LineStyle = 1 ActiveSheet.PageSetup.PrintArea = "" ActiveSheet.PageSetup.PrintArea = Range("a1").Resize(6, UBound(My_Days_Arabic) + 2).Address Exit_Me: Erase Array_Days: Erase Arab_Day: Erase Array_Numbers With Application .ScreenUpdating = True .Calculation = xlAutomatic .EnableEvents = True End With End Sub Private Sub CommandButton1_Click() Give_date_without_same_days End Sub Private Sub Worksheet_Activate() With CommandButton1 .Left = 469: .Top = 18.5: .Width = 154.5 End With End Sub الكود موجود ضمن الملف Date_sans_deux_jours.xlsm

بارك الله فيك ربنا يزيدك من علمه-فكرة جميلة جداً ومطلوبة فى عمليات كتير ربنا يوفقك ودائما إلى الأمام أستاذنا العزيز

السلام عليكم بالنسبة للنتيجة الملونة بالأخضر فهي تمثل عدد الذين تحصلوا على نتيجة أقل تماما من 50 دون الغياب، وإذا أردت احتساب حالات الغياب في هذه الحالة (أقل من 50) يمكنك حذف من المعادلات الجزئية التي بعد الإشارة (-) (عناوين خلايا العمود B)... أما بالنسبة للقسمة على 30 فقد وجدت في معادلاتك الأصلية هذا العدد فتركته كما هو... إذا كنت تريد أن تكون القسمة على تعداد كل فصل يمكنك استبدال العدد 30 في كل معادلات النسب لكل المواد بعنوان خلية تحوي تعداد الفصل المحدد (مثلا عنوان الخلية الملونة بالأصفر في صورة مشاركتك الأخيرة)... كل هذه الاقتراحات تجدها في الملف المرفق... بن علية حاجي تحليل النتيجة.xls

اصدقائى وانا ابحث فى مواقع الاكسيل العالمية وجدت جدول لكاس العالم http://www.mediafire.com/file/c64no571bm6uamu/World_Cup_Russia_2018_Chart_-_LITE_Distribution_File_Ver._B5.01.xlsm

الف الف شكر اليك استاذي ابو ياسين نعم هو المطلوب شكر اليك اخي الله يعطيك العافيه يبارك فيك تحياتي اليك المعذره تاخرت بالرد عليك كنت مشغول

السلام عليكم تم التعديل على المعادلات وتصحيحها (لم يتم تغييرها إلى أكواد)... بالنسبة لمشكلة ظهور الرسالة عند غلق الملف أعتقد أنه تم تصحيحها... جرب الملف المرفق وأعلمني بالنتيجة... بن علية حاجي تحليل النتيجة.xls

السلام عليكم إليك الملف المرفق وبه التعديل الذي اقترحته وهو يعمل بالشكل الذي تريد... بن علية حاجي رصد الإتقان.rar

اتفضل اتمنا يكون المطلوب حفظ التاريخ بجدول الاصناف.rar

بعد اذن استاذي ومعلمي الفاضل صالح حمادي اضافة بسيطه تم اضافة التصدير الي EXCEL والتعديل علي المظهر العام للشريط شريط طباعة.rar

السلام عليكم اريد ان اسأل على شئ محيرني ممكن تفيدوني علما ان قاعدة بيانات اكسس حدها اقصى 2 جيجا نفترض انا الجدول تعبئ هل هناك مثلا كود سورس او شئ مثلا لو تعبئ الجدول وصار 2 جيجا اتوماتيك كود ينشئ جدول جديد بنفس اسم وجدول اول يتم ارشفته لكن يمكن البحث فيه يعني يبقي مرتبط مع الجدول الجديد كأنهم جدول واحد

السلام عليكم تفضل اخي https://www.officena.net/ib/search/ بالتوفيق

السلام عليكم كل مبرمج وضع لنفسه حل خاص بيه وفق تجربته مع قواعد البيانات احد هذه الحلول ---- فصل الجداول عن بقية مفرداة قاعدة البيانات ----- نسخ احتياطي لقاعدة بيانات الجداول بعد ان تصل الى حجم كبير --- تصفير قاعدة البيانات المرتبطة مع ترحيل البيانات الختاميه فاذا دعتنا الحاجه لبيانات تفصيليه قديمة نقوم باعادة الربط بجداول النسخة الاحتياطيه ---- ويمكننا ان هذه نعيد العملية لاكثر من مره بالتوفيق

السلام عليكم الكود يحتاج لتعديل . و لكن الهدف آلان هو مشكلة اللغة العربية فان حلت تعدل الكود بإذن الله و اعتقد ان المشكلة مشكلة اوفيس او ويندوز و ليس كود و صراحة لم انتبه الي الاكواد الموجودة فى الضفحة الاولى من الموضوع الا الان ،ويبدو لي انها افضل من هذا و لم اجربها بعد احد الحلول هو ان تعيد تحميل الاوفيس او على الاقل ال Proofing Tool https://support.office.com/en-us/article/language-accessory-pack-for-office-82ee1236-0f9a-45ee-9c72-05b026ee809f?ui=en-US&rs=en-US&ad=US