كل الانشطه

الرجاء اذا فيه تعديل البرنامج انا في الانتظار ولكم جزيل الشكر

اخوي عندي الاشهر السنوية من 1 حتي 12 اريد في خانة الاشهر يدخل شهرين مثلا 2025/01/01 وانتهت المهمة في 2025/01/15 هذا في الشهر الاول واخذ اجازة في 2025/01/17 يدخل التاريخ هذا في الشهر الاول ثم اخذ اجازة في تاريخ 2025/01/19 وتنتهي في 2025/02/19 دخلت الاجازة في شهر الثاني مع تلوين الخانات في النموذج والتقرير

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

هذه النتيجة ؟؟ الرقم الوطني الاسم الجنسيه الجنس نوع الهويه عدد البلاغات رقم البلاغ السنه التهمه الجهه الطالبه الحكم تاريخ الوارد الاجراء المتخذ تاريخ الاجراء ملاحظات تاريخ الحكم 12345678910 محمد علي ي ذكر 4 88 2024 جنائي العاصمه غير محدد 2025-08-11 2352 2025 شيكات الشرق غير محدد 2025-08-11 3252 2022 شيكات الجنوب غير محدد 2025-08-11 32525 2024 انتحال الغرب غير محدد 2025-08-11 25432526222 جاسم عبدالله ا ذكر 2 35 2025 تزوير الشرق غير محدد 2025-08-11 60 2022 مشاجره الجنوب غير محدد 2025-08-11 SELECT IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[id], Null) AS [الرقم الوطني], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[ename], "") AS الاسم, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[natio], "") AS الجنسيه, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[gins], "") AS الجنس, IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), [tabe1].[nid], "") AS [نوع الهويه], IIf([tabe2].[blagh] = ( SELECT MIN(blagh) FROM tabe2 WHERE id = tabe1.id AND ([not] Is Null OR [not]='') ), DCount("*","tabe2","id=" & [tabe1].[id] & " AND ([not] Is Null OR [not]='')"), Null) AS [عدد البلاغات], tabe2.blagh AS [رقم البلاغ], tabe2.sanh AS السنه, tabe2.thmh AS التهمه, tabe2.wanted AS [الجهه الطالبه], tabe2.hkm AS الحكم, tabe2.edate1 AS [تاريخ الوارد], tabe2.[not] AS [الاجراء المتخذ], tabe2.edateegra AS [تاريخ الاجراء], tabe2.mlaha AS ملاحظات, tabe2.edathkm AS [تاريخ الحكم] FROM tabe1 INNER JOIN tabe2 ON tabe1.id = tabe2.id WHERE (tabe2.[not] Is Null Or tabe2.[not]='') ORDER BY tabe1.id, tabe2.blagh;

[الجديد في التحديث 10.60]: 1- في خدمة (فهرسة الآيات القرآنية من خلال الإشارات المرجعية ومن خلال الحقول)، تم إضافة زر (اعتماد وإيقاف عملية الفهرسة) في نافذة (يوجد أكثر من تخريج للآية)، والذي يُمكِّنك من إيقاف عملية الفهرسة نهائياً. 2- في خدمة (إنشاء جدول المحتويات)، تم إضافة خاصية (بدءاً من المستوى)، والتي تسمح لك باختيار مستوى العنوان الذي تود أن تبدأ البادئة من عنده.

السلام عليكم لدي برنامج لتحميل الصور اريد اضافة طريقة لعدم عرض الصور في التقرير حتى يتم تحميل أسماء الصور عند فتح البرنامج تظهر لك ايقونة - الملف - فيها أسماء الصور بارك الله فيكم تحميل الوثائق.rar

ان محتاج ان تظهر الأرقام ديناميكيا بمعني لو عشرية تظهر عشرية ولو لا يلقي تظهر صحيحة

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

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

ولكم منه النصيب الأكبر 😇

تمام كده .. والكشف الثالث نفس الشكل ويبدأ من مسلسل181 وينتهى ب مسلسل270

اول ورقه مطبوعه ستكون بهذا الشكل وثانى ورقه مطبوعه ستكون بهذا الشكل صح كده ولا انا فهمت حاجه تانيه

استاذي Foksh دائما سباق الى حل مشاكلنا ويعجز حرفنا ان يوفي فيك من شكر لكن لا نملك لك الا الدعاء بظهر الغيب دمت وادامك الله بالستر والعافية تقديري

كود الذي قدمه استاذنا حسونة حسين كافٍ وأسرع ، لأنه: يمرّ على النطاق مرة واحدة فقط لتحديد الصفوف التي يجب إخفاؤها. يستخدم Union لتجميع الصفوف وإخفائها دفعة واحدة بدل إخفاء كل صف على حدة. يعيد أولًا إظهار جميع الصفوف ثم تخفي فقط الصفوف التي فيها صفر. بالنسبة للارقام العشرية هذا ملفك وهذا التنسيق كما قدمته انت وان كان لديك نتسيق معين ارجو توضيحه

سبب هذا الطلب : المطلوب طباعة هذه الارقام وبالتالى لو تم الطباعة بالشكل فى الشيت الاول سيتم استهلاك كمية ورق اكبر مع وجود فراغ كبير فى الورقة تقبل تحياتى

الكود ده فيه حاجة غلط

وعليكم السلام ورحمة الله وبركاته .. جرب هذا الاستعلام إن كان ما فهمته صحيحاً .. SELECT [1].[n], [1].[عميل], [1].[شراء], [1].[ثمن], (Len([شراء])-Len(Replace([شراء],"-",""))) AS [عدد العلامات] FROM 1; بهذا الشكل ستكون النتيجة :- n عميل شراء ثمن عدد العلامات 1 احمد - سجاد - مفرش - نجف 550 3 2 سيد - طقم معلق - طقم شتي - صنية - طقم حلل 1000 4 3 منال - طقم مدهب - بطانية 450 2

ما الفائده من هذه التقسيمات

تفضل Sub Clean_Trim() Dim rng As Range Set rng = sheet1.Range("C2:C46023") rng.Value = Evaluate("INDEX(CLEAN(TRIM(" & rng.Address & ")),)") End Sub

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

اشكرك على الرد والاهتمام .. ممكن كود ان امكن

وعليكم السلام ورحمة الله وبركاته اخي عبدالله بشير تعديل بسيط للكود Private Sub Worksheet_Calculate() Application.EnableEvents = False Application.ScreenUpdating = False Dim cell As Range Dim rngHide As Range For Each cell In Me.Range("E6:E12") If cell.Value = 0 Then If rngHide Is Nothing Then Set rngHide = cell Else Set rngHide = Union(rngHide, cell) End If End If Next cell Me.Range("E6:E12").EntireRow.Hidden = False If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = True End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub

وعليكم السلام ورحمة الله وبركاته استخدم هذا المعادله واسحبها الي قدر ما تحتاج من الصفوف =CLEAN(TRIM(C2))

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

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