كل الانشطه

استاذ هذا هو طلبي اريد في الحقول التالية : التوقيت و الأيام و الفوج التربوي و عدد الذكور وعدد الاناث و هل معني بتكملة النصاب و مؤسسة تكملة النصاب عند الترحيل يتم افراع الحقول فقط و رسالة تنبيه بترحيل

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

وعليكم السلام ورحمة الله وبركاته كنت اتمنى دعم طلبك ببياتات لتتضح الصورة اكثر طلبك فيه بعض الغموض بالنسبة لي وهذا الغموض في شيت حجز التوقيت فهل الصفوف 8-9-10-11 بها بيانات وترحل ام لا افترضت ان الصفوف المراد ترحيلها الرابع والسابع مبدئيا جرب الكود في الملف المرفق فاذا كان ليس طلبك حدد طلبك بالتفصيل مدعما بملف به البيانات المراد ترحيلها Employees5.xlsb

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

جرب التعديل التالي test2.xlsm

Up

حسب فهمي لسؤالك في الكود المعدل الكود يقرأ عمود التاريخ كرقم وللتوضيح اكثر التواريخ هي في الأصل أرقام (مثلاً تاريخ اليوم هو رقم مثل 46040)، والتنسيق الذي تراه dd/mm/yyyy هو مجرد "قناع" أو مظهر خارجي لتسهيل القراءة علينا كبشر. في الكود توجد الدالة CDbl(.Range("J3").Value)، بحيث يأحد "القيمة الرقمية" الحقيقية المخزنة داخلها. وباحتصار الكود الآن يرى التاريخ كقيمة رقمية مجردة، بغض النظر عن طريقة تنسيق التاريخ في خلايا الجدول (سواء كانت yyyy/mm/dd أو dd-mm-yy). ويمكنك تجربة تبديل بعض التواريح بتغيير التنسيق في الجدول كمثال جعل 15/04/2026 الى 04/15/2026 فالنتيجة واحدة تحياتي

شكرا لك اخي 192.168.100.1 192.168.1.1

بارك الله فيك Tutuapp 9Apps

السلام عليكم ترحيل البيانات من ورقة حجز المعلومات الى ورقة Feuil1 Employees5.xlsx

عندي سؤال آخر عند استخدام عمود التاريخ للتحقق هل يقرأه كتنسيف dd/mm/yyyy أم كرقم؟ لأن المتغير عرفناه كرقم تاريخ وليس كتنسيق تاريخ

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

بارك الله فيك وجزاك الله خير الجزاء إجابتك ليست حل للمشكلة بل توصيف لمكمن الخطأ حتى نتفاداه في أيامنا المقبلة جزيل الشكر لك أخ عبدالله 🌹

تمام ................ بارك الله فيك

السلام عليكم جرب التعديل التالي Sub sav_PDFall() Dim i As Integer Dim folderPath As String Dim mainSheet As Worksheet Dim tempWorkbook As Workbook Dim firstRun As Boolean Set mainSheet = ThisWorkbook.ActiveSheet folderPath = ThisWorkbook.Path & "\ملاحظةالثانوية 2026" firstRun = True If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If Application.ScreenUpdating = False For i = 1 To mainSheet.Range("j3").Value mainSheet.Range("j2") = i If firstRun Then mainSheet.Copy Set tempWorkbook = ActiveWorkbook firstRun = False Else mainSheet.Copy After:=tempWorkbook.Sheets(tempWorkbook.Sheets.Count) End If Next i tempWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=folderPath & "\كشف_جامع_" & mainSheet.Cells(2, 4).Text & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True tempWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته المشكلة الأساسية في الكود تكمن في طريقة التعامل مع تنسيق التاريخ. في VBA، عندما نستخدم SumIfs مع التواريخ، يفضل تمرير التاريخ كقيمة رقمية (Long) اذا كانت الكميات ارقام صثحيحة و Double بدلاً من Long تحسباً لوجود كسور في الكميات (إذا كانت الكمية تحتوي على فواصل عشرية ) ، لأن تحويله إلى نص (String) مثل "MM/dd/yyyy" قد يتسبب في عدم تطابق البيانات إذا كان إعداد التاريخ في الجهاز مختلفاً. جرب التعديل بالملف المرفق SUMIFS_VBA.xlsm

تعديل كود الطباعة بحيث يتم تجميع الملفات في ملف واحد داخل الفولدر Test.xlsm

بارك الله فيك أخي العزيز منتصر فقد استطعت أن أعدل على ملفك الأول وأجلب النتائج وهو يعمل بكفاءة وسأجرب تعديلك الأخير مرة أخرى جبر خاطرك وأسعد أوقاتك

استاذ بارك الله فيك شكرا استاذنا الفاضل أتمنى لك التوفيق والنجاح

خالص الشكر على الابداع والتميز

السلام عليكم عندما أريد أن أجمع المبلغ بين فترتين من تاريخ إلى تاريخ لا يضبط معي؟ عن طريق المعادلات مضبوط 100% لكن المشكلة عندما أستخدم VBA لا يضبط؟ هل من مساعدة وجزاكم الله خير SUMIFS_VBA.xlsm

سلمت يمينك استاذنا الغالي .. وشكراً جزيلاً لسعة صدرك 🌹🌹

نعم صحيح وبمعنى ادق حسب الحاجة .. اي حقل نريد عرضه فمثلا بعض الحقول في الجداول الثلاث لم يتم ادراجها في الاستعلام

بمعنى انه عند اضافة اي حقل جديد للجداول سواء الرئيسية ام الثانوية فأنه يجب تضمينه بالاستعلام ليتم عرض بياناته دون تعديل اي معادلة صحيح ما فهمته استاذنا العزيز

وهنا تعديل احسن وأقوى . Jo_ExportToExcel-2.rar