كل الانشطه

السلام عليكم استاذ kkhalifa1960 استاذ لقد قمت بوضع جدول Horaire استاذ لقد قمت باضافة جدول Horaire في استعلام qry_Employees استاذ بعد تصدر و الذهاب بجوار القاعدة نجد مجلد (Mon_Excel) وبه ملف اكسل باسم حسب الكمبوبكس .اريد اضافة ورقة جديد لحجز التوقيت وبعد حجز الموظف التوقيت في ملف اكسل نفوم باستراده اليك الصورة وملف اكسيل . 22.zip

لو بحثت على الانترنت سوف تجد ضالتك وده احد المواقع على سيبل المثال https://www.vecteezy.com/free-vector/incoming-mail

هو انت مش كلامك كان ان فى مشكلة عند قراءة بيانات الكيو ار كود من كاميرا الايفون ؟ هو الكلام بيتغير ليه ؟ مش ده كلامك برضو وده كمان سبحانك اللهم والله مش عارف ارد عليك اقول لك ايه

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

السلام عليكم تم التعديل ومسح البيانات للنطاق b7:h7 بعد الترحيل مع التسطير كذلك تم اظافة شرط وهو اذا كانت الخلايا في النطاق b7:h7 فارغة لا يتم الترحيل Employees5.xlsb

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

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

وعليكم السلام ورحمة الله وبركاته كنت اتمنى دعم طلبك ببياتات لتتضح الصورة اكثر طلبك فيه بعض الغموض بالنسبة لي وهذا الغموض في شيت حجز التوقيت فهل الصفوف 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

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

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

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