كل الانشطه

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

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

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

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

السلام عليكم ورحمه الله وبركاته . .. اساتذتى الكرام بالمرفق ملف يحتوى على عدد 2 شيت .. الشيت الاول به مدى مكون من عمودين و46000 صف المراد تقسيمهم ( او توزيعهم ) مع الترقيم وامكانية الطباعة كما بالشيت الثانى تقبلوا تحياتى وشكرى وتقديرى Book1.xlsx

السلام عليكم ورحمة الله وبركاته اساتذتنا الكرام برجاء تعديل الاستعلام بالملف المرفق ليقوم بعد " - " وهي العلامة بين الاصناف وليس عد الاصناف دمت بحفظ الله وامنه New Microsoft Access Database.rar

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

تفضل طريقة احترافية وبأقل عدد من الكائنات Database4.rar

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

اخي العزيز في البداية هناك مشاكل واضحة في طريقة تصميم الجدول سواء من حيث التطبيع أو طريقة تسمية الكائنات ولكن اذا عدنا لسؤالك فأنت تقول أن المهمة تبدأ في 01/01/2025 وتنتهي في 15/01/2025 والإجازة تبدأ في 17/01/2025 وتنتهي في 15/02/2025 ولكن عند فتح الجدول نجد التاريخين 01/01/2025 و 15/01/2025 فقط من الأفضل أن يحتوي المثال على عدد كافي من البيانات لتطبيق الفكرة على أساسها ويمكنك تصميم التقرير في وورد أو في أكسل لتوضيح شكل التقرير الذي تريده كنتيجة للبيانات التي يحتويها المثال تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام المعادلة نم اسخبها للاسفل =TEXT(D7;"dd/mm/yyyy") تحويل التاريخ الى نص.xlsx