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

من الملفات القديمة التي تمت مشاركتي لها والتي تطلب غالباً كيف نحمي الخلايا غير الفارغة بواسطة باسوورد (الباسورد في الملف / الخلية H3/ يمكن حفظة و مسحه عن عيون الفضوليين) مع حرية الغاء الجماية كما تشاء protect non empty data with Pass word.xlsm

نسخة من الملف بتنسبق 2003 protect non empty data with Pass word.xls

زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm

طلب الي أحد الأصدقاء ان أقوم بإدراج التاريخ 29 شباط في كل السنوات الكبيسة المحددة بين عامين فكان هذا الملف (ربما يكون في ذلك إفادة للبعض) Leap years.xlsx

الإخوة الأعزاء مشرفين وأعضاء السلام عليكم ورحمة الله برنامج التوزيع الآلى للجدول المدرسى من المواضيع التى تهم عدد كبير ممن يعملون بمجال التعليم والمشاركة فيه مفتوحة للجميع والآن نبدأ على بركة الله بشرح آلية عمل البرنامج قبل الشروع فى إنشاء الجداول بكل مدرسة عدد من المعلمين يقومون بالتدريس للطلاب فى صف دراسى أو أكثر وفى فصل دراسى أو أكثر من فصل وأيضا ممكن المدرس الواحد يدرس مادة واحدة أو أكثر فى الفصل الواحد أو فى أكثر من فصل من هنا نجد أن الموضوع متشابك ومتداخل (معقد حبتين) أبدا لا معقد ولا حاجه هو محتاج شوية تنظيم فى بناء الجداول وربطها تمام عشان كده هانبدأ بعمل الجداول التى نحتاج بياناتها فى عملية التوزيع فى البداية لابد من جدول يشمل الصفوف عندنا كام صف سنعمل على مدرسة ابتدائية حكومية فمثلا نجد أن لدينا عدد 6 صفوف من الصف الأول حتى الصف السادس طيب وكل صف ليه كام يوم دراسه 5 أو6 أيام طيب وكل صف ليه كام حصه فى اليوم الواحد وهل كلها متساويه لا طبعا شاهد معى الجدول بنموذج الإدخال لكل صف توزيع الجداول المدرسية.rar

ا/ سليم الف شكر على ردك وتعبك معى .... ارجو من سيادتك ان تشرح لى هذة المعادلة ان امكن

اتفضل انا استخدمت هذا Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.Lagnah_code Mod 2 = 0 Then Me.Fasil.Visible = True Else Me.Fasil.Visible = False End If End Sub مع فاصل الصفحات سجلين بتقرير.rar

بارك الله فيك استاذ سليم

بارك الله فيك استاذ خالد وجعله فى ميزان حسناتك

تفضل جرب هاي المرفق 942.جدول الحصص.accdb.zip

وعليكم السلام شوف هذا الرابط وبالذات هذه الفقرة

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

بارك الله فيك أستاذ سليم وجزاك الله كل خير

الشكر الجزيل للاستاذ القدير سليم حاصبيا وبارك اللة فيك و اعطاك كل ماتتمنى وبارك لك في علمك ومالك☺️

ممكن توضيح اكثر لو سمحت واعطاء نتيجة لما تريد

هل يجوز ان بدلا من ان يكتب عدد القيم يقوم بكتابة الاختيارات نفسها - اى انه يقوم بحصر الحقول التى تحقق شرط معين مثل ما هو مرفق statistic-1.xls

غير مصدر السجلات النموذج اللي حضرتك تريد ان لا يظهر السجلات اللي بدون علامة صح غير مصدره من الجدول الى استعلام وفي اسفل الحقل odot اي اللي تكتب علامة صح اكتبه True في سطر الشروط

اتفضل قمت بتعديل على قاعدة بياناتك عندك طريقتين اولا اضفت حقل جديد في الجدول باسم weqit وبيأخذ وقت الان اي عند ادخال السجل و اكتب الشرط بين وقتين بالثانية والدقائق والساعة واليوم و الشهر والسنة طريقة الثانية عندك حقلين حقل للوقت والحقل الثاني للتاريخ في الاستعلام في حقل جديد ادمج حقلين واكتب فيها الشرط بين تاريخين انا عملت طريقة الثانية واضفت لك حقل في الجدول ايضا تقدر تستخدم اي طريقة لكن الطريقة الاولى اسهل وفي النموذج اكتب هكذا وسيعطيك نتيجة بين تاريخين server.rar

تفضل اخى الكريم statistic-1.xls

تفضل كودك كان سطر واحد ، فمن الصعب معرفة تفاصيله وتغييره ، ولكن لما تفكه الى عدة اسطر ، تستطيع تغييره بسهولة: MsgBox "...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & _ " باسم : " & txtc2 & vbCrLf & _ " للمدرس : " & txtc3, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه" . ولكن هذا الكود يعطيك زر نعم/لا ، ولا فائدة منه بدون ان يعرف البرنامج ماذا يعمل ، اذا نقر المستخدم على الزر نعم او لا !! جعفر

ممكن ذلك اذا استعملت المرفق و ضغطت على الزر Run انظر هذا الملف Split.rar

جرب هذا الملف لعمل ذلك يجب ادخال هذا المكرو في موديل مستقل في ملفك Function joincels(rg As Range) s = "" If rg.Rows.Count <> 1 Then joincels = "Error": Exit Function For Each cel In rg If cel <> "" Then s = s & cel & " " End If Next joincels = s End Function join_names.rar