كل الانشطه

وعليكم السلام ورحمة الله وبركاته ، أخي الكريم ، ودون العبث في تأسيس الإستعلامات الرئيسية لديك التي قام بها معلمي الفاضل @ابوخليل والتي هي أساس النجاح الذي وصل إليه المشروع الى هذه اللحظة ، سأقوم بانشاء استعلام جديد وسأفترض تسميته = qry_DarajatData مبنياً على فكرة دمج الإستعلامين ( qry_drjat_term1 و qry_drjat_term2 ) في استعلام واحد يحقق الغاية التي تريدها ، وسيكون كود SQL لهذا الاستعلام الجديد كالآتي :- PARAMETERS [Forms]![frm_Reports]![ComboSaf] Short, [Forms]![frm_Reports]![termNum] Short; TRANSFORM IIF([Forms]![frm_Reports]![termNum]=1, First(qry_master.mada1), First(qry_master.mada2)) AS FirstOfmada SELECT qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala FROM qry_master LEFT JOIN qry_Temp ON qry_master.Stucard = qry_Temp.Stucard WHERE (((qry_master.alsaf_Id)=[Forms]![frm_Reports]![ComboSaf])) GROUP BY qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala PIVOT qry_master.madaNum In (1,2,3,4,5,6,7,8,9,10,11,12,13,14); واجعل هذا الاستعلام الجديد مصدر سجلات التقرير rep_Kashf ولاحظ النتيجة ان كانت سليمة أم لا ,, مرفقك بعد التعديل Data19.zip

الأستاذ / عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته وختامه مسك ماذا لو أردت أن تكون محاذاة الأسماء (في شيت معاشات) بعد ترحيل الأسماء بداية من الخلية B5 وحتى نهاية الشيت: HorizontalAlignment = xlRight & VerticalAlignment = xlCenter كما هو بالفعل حاولت مع شيت آخر بأن عملت Module وكتبت فيه الكود التالي: Sub alignment() Range("B5:B10000").HorizontalAlignment = xlRight Range("B5:B10000").VerticalAlignment = xlCenter End Sub وتم بنجاح؛ ولكن لم تفلح محاولتي في شيت معاشات بعد الترحيل وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن

جرب هدا عملاء مكررين v2.xlsb

المشروع بحاجة الى اعادة بناء ، وخصوصاً موضوع الجداول والعلاقة فيما بينها ، ثم النقطة المتكررة دائماً وهي الإبتعاد عن الأسماء المحجوزة لآكسيس من أسماء الحقول والجداول والعناصر ... إلخ الآن النقطة الثانية انظر الصورة التالية لمصدر سجلات النموذج :- ما علاقة الجداول Data,Location_all,Location في النموذج . هذا أولاً .. ثانياً هل الجدول Data (وهو اسم محجوز لآكسيس) ، يتم تخزين قيم من النموذج الى هذا الجدول ؟؟؟؟؟ إن كان لا !! فلا حاجة لوجوده كمصدر سجلات ( من وجهة نظري ) لجلب البيانات منه . ومن هنا سكفيك وجود الجدول Fawri فقط كمصدر لتخزين القيم من النموذج مع ضبط الحدث بعد التحديث بحيث عند اختيار اسم الموظف يتم ادراج القيم الخاصة به الى مربعات النص في النموذج . هذه وجهة نظري ( الغير ملزمة طبعاً ودائماً ) .. مرفق لفكرة بدائية بسيطة لجلب القيم للموظف الذي تم اختياره من الكومبوبوكس جربه وأخبرني بالنتيجة .. Pepsi.zip

وعليكم السلام ورحمة الله وبركاته لديك الحق الجزء الخاص بحدود الصف الثالت With ws.Range("C3,E3,H3,J3") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True .NumberFormat = "0" .Borders.Weight = xlThin End With .Borders.Weight = xlThin وزن الخط رفيع يتم تعديله الى .Borders.Weight = xlMedium وزن الخط منوسط كذلك يجب تعديل With ws.Range("C3,E3,H3,J3") لانها نشمل خلايا معينة لتحديدها ويتم تعديلها لتشمل النطاق With ws.Range("B3:J3") الملف بعد التعديل ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb لك كل الود والاحترام

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

شكرا جزيلا أخي الفاضل

و عليكم السلام ورحمة الله و بركاته تفضل الملف تجربة ايجارات (2).xlsx

الأستاذ / عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته ماذا لو أردت أن يكون الحد الأيسر للخلية J3 مثل الحد الأيسر للخلايا من I3: B3 (في شيت معاشات) وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن

اللهم بعدد حبات المطر وعدد من سجد وشكر أسألك يامن أمنت سيدنا يونس في بطن الحوت ونجيت سيدنا موسى في التابوت وحفظت الحبيب سيدنا محمد (صل الله عليه وسلم) بنسيج العنكبوت أن تشفي ابن الأخ محمد هشام شفاء لا يغادر سقما وتعوضه خيرا عن كل دقيقة ذاق فيها الوجع وكل من قال آمين

ارجو المساعدة

وعليكم السلام ورحمة الله وبركاته ، افتح موضوع جديد اخي الكريم ، وان شاء الله بتلقى إجابة لسؤالك .

أخي الكريم بعد سلام الله عليكم ورحمة الله وبركاته هل ينفع عمل كشف تاني للنتيجة بس يكون بالدرجات ( يعني بدلا من الألوان ) تكون درجات لأن عندنا جهة تطلب النتيجة ألوان وجهة أخري تطلب النتيجة درجات مثل هذه الصورة

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

الاخوة الخبراء الكرام الافاضل السلام عليكم ورحمة الله وبركاته محتاج مساعدة الخبراء في كتابة كود insert into لان كل محاولاتي فشلت انا عندي فورم اسنها fawri بتاخد البيانات الاساسية من جدول data عايز اضافة البيانات دي تضاف لجدول fawri علشان يتكمل بيناته حاولت باتسعلام الحاق وفشلت بردو برجاء المساعدة Pepsi.rar

السلام عليكم ورحمة الله هذا شيت مجاني حملته من احد المواقع وأريد التعديل عليه ليتناسب مع احتياجاتي : التعديلات المطلوبة : 1 / ان تكون تواريخ بداية الايجار ونهايته بالهجري 2/ إضافة القيمة الإيجارية بالشكل هذا ( مبلغ الايجار _ المبلغ المسدد _ المبلغ المتبقي ) شاكر ومقدر مساعدتكم . تجربة ايجارات.xlsx

شكرا لرد حضرتك ولكنى لسه مبتدئ فى الاكسل اين اضع هذا الكود فى الملف المرفق

وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Sub test() Dim WS As Worksheet, lastRow As Long, i As Long, dict As Object Dim cnt As String, dateStr As String, tmps As Date, maxDate As Date, tbl As Long Set WS = Sheets("Sheet1") lastRow = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row Set dict = CreateObject("Scripting.Dictionary") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False For i = 2 To lastRow cnt = Trim(WS.Cells(i, 1).Value) dateStr = Trim(WS.Cells(i, 2).Value) If cnt <> "" And IsDate(dateStr) Then tmps = CDate(dateStr) If Not dict.exists(cnt) Then dict.Add cnt, Array(tmps, i) ElseIf tmps > dict(cnt)(0) Then dict(cnt) = Array(tmps, i) End If End If Next i For i = lastRow To 2 Step -1 cnt = Trim(WS.Cells(i, 1).Value) If dict.exists(cnt) Then tbl = dict(cnt)(1) If i <> tbl Then WS.Range("A" & i & ":C" & i).Delete Shift:=xlUp ' OR WS.Rows(i).Delete End If Next i Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub

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

تم الحل في هذا الموضوع : البحث عن تكرار في فترة زمنية سابقة ب 03 شهور

ارجو المساعدة حيث لدى لملف اكسل به عدد عملاء يتعدى 200 الف عميل وعندى مشكلة فى تكرار اكواد هذه العملاء نتيجة تكرار تاريخ التركيب للعملاء بمعنى : 1- يمكن ان يتكرر الكود اكثر من مرة حين يتم زيارة العميل بأكثر من تاريخ 2- ممكن ان يكون تاريخ التركيب للسجل مرة خالى وممكن ان يكون به تاريخ زيارة وعند عمل ازالة للأكواد المكررة من Remove Duplicates يتم حذف الاكواد المكررة بصورة عشوائية ما اريده هو حذف الاكواد المكرره بشرط ان ما يتبقى بعد الحذف هو كود اخر تاريخ تركيب او زيارة للكود مرفق مثال بسيط للتطبيق عملاء مكررين.XLSX

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

وعليكم السلام ورحمة الله تعالى وبركاته تحويل الورقة بالكامل الى لغة عربية دون تغير لغة الجهاز -v3 .xlsb

العفو أخي الكريم @2saad

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك الخيرين