كل الانشطه

السلام عليكم الرجاء المساعدة فى التصفية بمجر الكتابة فى الخلية الفلترة.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

وعليكم السلام ورحمة الله تعالى وبركاته بعد معاينة آخر مشاركاتك على المنتدى إليك الكود ليتوافق مع جميع الإصدارات سواءا 32bit أو 64bit جرب هدا ربما يناسبك Option Explicit #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long #End If Private Const Style As Long = -16 Private Const Menu As Long = &H80000 Private Const MIN As Long = &H20000 Private Const MAX As Long = &H10000 Private Sub UserForm_Activate() Dim xForm As LongPtr, tmps As Long xForm = FindWindow("ThunderDFrame", Me.Caption) If xForm <> 0 Then tmps = GetWindowLong(xForm, Style) tmps = tmps Or Menu Or MIN Or MAX SetWindowLong xForm, Style, tmps DrawMenuBar xForm End If End Sub TEST Minimize.xlsb

تحسينات جديدة ، وإضافات جديدة في التحديث الجديد لجعل المشروع كاملاً متكاملاً

وإياكم أخي الكريم .. شكراً لك