كل الانشطه

وعليكم السلام ورحمة الله وبركاته لديك الحق الجزء الخاص بحدود الصف الثالت 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 For i = 2 To lastRow cnt = Trim(WS.Cells(i, 1).Value) dateStr = Trim(WS.Cells(i, 2).Value) tmps = IIf(IsDate(dateStr), CDate(dateStr), 0) If cnt <> "" Then 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 End Sub

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

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

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

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

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

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

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

العفو أخي الكريم ,,

استاذ @Foksh شكرا لك بارك الله فيك تحياتي

جاري التجربة ......

جميل جداً .. اذا تفضل هذا الاستعلام بعد ضبط الفرز بشكل تصاعدي للتاريخ SELECT R.[تاريخ المستند], R.[نوع المستند], R.[رقم المستند], W.[اسم المادة ومواصفاتها], W.[الرقم الرمزي], IIf(R.[نوع المستند]='وارد مخزني',W.[الكمية رقما],Null) AS [كمية واردة], IIf(R.[نوع المستند]='صادر مخزني',W.[الكمية رقما],Null) AS [كمية مصروفة], (SELECT Sum(IIf(R2.[نوع المستند]='وارد مخزني', W2.[الكمية رقما], 0)) - Sum(IIf(R2.[نوع المستند]='صادر مخزني', W2.[الكمية رقما], 0)) FROM [راس الوارد] AS R2 INNER JOIN [اطراف الوارد] AS W2 ON R2.[كود المستند] = W2.[كود المستند] WHERE W2.[الرقم الرمزي] = W.[الرقم الرمزي] AND ( R2.[تاريخ المستند] < R.[تاريخ المستند] OR ( R2.[تاريخ المستند] = R.[تاريخ المستند] AND R2.[رقم المستند] < R.[رقم المستند] ) OR ( R2.[تاريخ المستند] = R.[تاريخ المستند] AND R2.[رقم المستند] = R.[رقم المستند] AND W2.[كود الطرف] <= W.[كود الطرف] ) ) ) AS [الرصيد التراكمي] FROM [راس الوارد] AS R INNER JOIN [اطراف الوارد] AS W ON R.[كود المستند] = W.[كود المستند] ORDER BY R.[تاريخ المستند], W.[الرقم الرمزي], R.[تاريخ المستند], R.[رقم المستند], W.[كود الطرف];