كل الانشطه

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

جرب التعديل التالي 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

تفضل استاذ @بلال اليامين طلبك .... وحتي يتحقق طلبك اهم شئ 3 حقول لازم تملأهم سواء وانت بضيف جديد بأكسل أو بالجدول الاساسي (Fondation و prénom وNom) .... وانت بضيف بأكسل لا تكرر رقم التسجيل (id_pers) . تم اضافة كمبوبكس من خلاله بتصدر جسب الاسم المركب من (الاسم واللقب والمؤسسة) بعدما تصدر اذهب بجوار القاعدة بتحصل مجلد (Mon_Excel) وبه ملف اكسل باسم حسب الكمبوبكس . افتح ملف الاكسل عدل به ماتشاء واضف جديد ... وبكود الاستيراد لازم تحدد بالكمبوبكس الاسم المركب . ولاتنسى فتح مشاركة جديدة لارفق لك الهدية. اكنب بها اين الهدية يا خليفة . اليك المرفق ووافني بالرد . Bilal_Yamen_Export_Import_Excel-1.rar

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan : https://sites.google.com/view/mas-projectss/home لضم بعض الاعمال وتنزيل المباشر الكل مفتوح المصدر ******************************************************************************************************** توسيــــع واستكمال 1- اضافة اعدادة النسخة الاحتياطية مع التشغيل وتحديد عدد النسخ مع اخذ نسخة بشريط التقدم التأكد من الانتهاء ثم الاغلاق مع عرض النسخ والحذف الكل + استبدال النسخة في التحديث فقط قواعد المشروع - فتحديث استكمال 2- اضافة قائمةالاعدادة تفاعلية عند التهئية جديد بتحديث استكمال 😇 ... تابعوا الفيديو للتوضيح https://drive.google.com/file/d/1ldmRGtBe8PRNNUvWCxH4XXSbPyZxkHkR/view?usp=drive_link

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