كل الانشطه

وعليكم السلام ورحمة الله تعالى وبركاته يمكنك تعديل هدا بما يناسبك Option Explicit Sub Sauvegarde_WB() Dim WS As Worksheet, CrWS As Workbook, newWs As Worksheet, f As Worksheet Dim chemin$, sNom$, dossier$, sPath$, n As Boolean On Error GoTo EndClear SetApp False Set CrWS = Workbooks.Add(xlWBATWorksheet) Set f = CrWS.Sheets(1): f.Name = "Temp" n = True For Each WS In ThisWorkbook.Worksheets WS.Copy After:=CrWS.Sheets(CrWS.Sheets.Count) Set newWs = CrWS.Sheets(CrWS.Sheets.Count) newWs.UsedRange.Value = newWs.UsedRange.Value On Error Resume Next: newWs.Buttons(1).Delete: On Error GoTo 0 newWs.Name = Left(WS.Name, 31) If n Then: f.Delete: n = False Next WS dossier = ThisWorkbook.Path & "\Workbook_Copy" If Dir(dossier, vbDirectory) = "" Then MkDir dossier sPath = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) sNom = sPath & "_" & Format(Now, "dd-mm-yyyy") & ".xlsx" chemin = dossier & "\" & sNom CrWS.SaveAs Filename:=chemin, FileFormat:=xlOpenXMLWorkbook CrWS.Close False SetApp True Exit Sub EndClear: SetApp True End Sub Private Sub SetApp(ByVal enable As Boolean) With Application .ScreenUpdating = enable: .EnableEvents = enable: .DisplayAlerts = enable .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End With End Sub TEST.xlsb

تفضل فقط تحديث JO 2027_new.rar

هذا شيء جديد سوف انظر في امره ولكن طلبك السابق عبارة عن : 1- اخفاء الصفحات الفارغة 2- عرض جميع التحاليل .. لأنك قلت يعرض تحليل ولا يعرض الآخر كان المفترض ان تراعي في ردودك .. ما تم انجازه فتذكره ثم تذكر ما استجد

تفضل رأيت افراده بنموذج افضل تم حذف استعلام زائد .. الاستعلام الزائد يخص طريقة توزيع مختلفة سابقة واضافة استعلامين واحد يحصر المكملين والثاني يتم عليه التوزيع آمل ان يفي بحاجتك Data123.rar

السلام عليكم الرجاء المساعدة فى التصفية بمجر الكتابة فى الخلية الفلترة.xlsx

السادة زملاء و اعضاء المنتدى . عيد اضحى مبارك .. ** - المعطيات // لدي ملف اكسيل به اكثر 20 شيت بالمعادلات و الاكواد . السؤال / اريد ارسال الملف و نسخه الى طرف آخر كما هو بكافة التنسيقات على الملف ))) بدون المعادلات و الاكواد - دفعة واحدة و ليس - شيت شيت ((( هل من سبيل لذلك .. مشكور جدا .

حبيبي عملتها لكن الأكواد لا تعمل والبيانات لا تظهر بالنموذج

اغلق قاعدة البيانات التي ارفقها معلمي أبو خليل ، وانقر زر يمين بالماوس عليها واختر آخر أمر = خصائص = وعلى الأغلب ستجد في مكان المستطيل الأحمر الموضح في الصورة أدناه خيار ثالث = Unblock ، فقط قم بالتعليم عليه ، ثم انقر موافق

بارك الله فيك معلمنا الفاضل على هذه المعلومة التي قد يكون الكثيرين ومن بينهم أخوك الصغير الي لا يعلمها فعلاً ، وقد اكون لم أستخدمها ابداً في تطبيقاتي ... شكراً لك مراراً وتكراراً على هذه المدرسة التي نتعلم منها الكثير دائماً

شكرا أخي الفاضل تفضل المرفق زر نموذج اعداد السري والجلوس في الفورم عند فتح الملفData122.rar

والله ياغالي جميع المحاولات لم تنجح

امان الماكرو عالي عندك خفض أمان الماكرو

للأسف البرنامج مايفتح والأكواد ما اشتغلت

يمكن استيراد درجات الطلاب عند تحقق شروط في المصنف وهي وجود هذه الحقول ضمن المصنف في سطر واحد : 1- معرف الطالب ... واعتقد عندكم في العراق يعتمد الرقم الموحد او الرقم الاحصائي 2- المرحلة 3- المادة 4- الفترة ( الاول /المنتصف/الثاني / المعدل/ درجة الاختبار ) 5- الدرجة ( بالضبط كما هو الحال في جدول الدرجات الموجود في مثالنا )

عليكم السلام سبق وان عملنا هذا للاختبارات الفصلية لو ارفقته قد نتمكن من التعديل عليه ليخدم الدور الثاني بدلا من تكرار النماذج وتزاحمها في مشروعك

تفضل ‏‏القرآن 4 .rar

شهادة اعتز بها خاصة اذا كانت من أستاذي الذي نهلت من علمه شكرا جزيلا على المرور والتقييم

بعد اذن اخي @Foksh مشكلتك الأساسية في العلاقات .. لأنك تتعامل مع 3 جداول تم ضبط العلاقات بين الجداول وايضا تم معالجة الصفحات الخالية في التقرير بدون اكواد .. الحقيقة لم افهم طريقة عملك في البرنامج لذا اخترت مريضة اسمها ( كنز ) واكملت بياناتها عشوائيا في الجدول جرب ووفنا بالنتيجة . JO 2026_new.rar

المطلوب عند اختيار اسم السورة من زر الأمر يفتح مباشرة على السورة المطلوبة سواء كان بهذه الطريقة أو الاختيار من قائمة منسدلة من اسماء السور سيتم ارفاق البرنامج ‏‏القرآن قبل النهائي3 - SurahID.rar

السلام عليكم ورحمة الله وبركاته حبيبي عندي استفسار بسيط مستعجل جدا بخصوص برنامج القرآن الكريم *فيه أزرار أمر لفتح كل سورة لوحدها حسب الطلب* *عند تنفيذ الكود يفتح النموذج فارغا* عند فتح النموذج كاملا بزر أمر مستقل يفتح عادي بدون أي مشكلة.

الأخوة الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته محتاج عمل أرقام جلوس وأرقام سرية للتلاميذ الذين لديهم مواد رسوب لجميع الفرق في الفصل الدراسي الثاني الملف المرفق Data122.rar

وإياكم مثلما دعيتم وأكثر في هذا اليوم الطيب .. العفو يا صديقي ..

استاذي الفاضل Foksh كل الشكر والتقدير لجنابك الكريم على سرعة الاستجابه . ادعو من الله ان يجعل لك في كل خطوة حسنه . وجزاك الله عنا خير الجزاء

الخبير الفاضل الذى لايبخل بعلمة على احد قمت بعمل بموذج لادخال بيانات مريض جديد او اضافة تحاليل لمريض قديم ممكن حضرتك تضغط على مفتاح اضغط هنا الموجود بالنموذج وتخنار تحليل معين سيظهر امامك اسماء الاشخاص اللى لهم هذا التحليل اليك نسخة جديدة من البرنامج بعد اضافة نموذج الادخال JO 2025_new.rar