نجوم المشاركات

السلام عليكم في كثير من الاوقات ما نعرف نستعمل الفاصلة او الفاصلة المنقوطة !! هي جزء من اعدادات الوندوز في المرفق وحدة نمطية تقوم بجلب الفاصل ، ونستعملها كالتالي: debug.print fList_Seperator او dim fList as string fList=fList_Seperator stDocName = "tbl_student1" & DLookup("Year_name" & fList & "tbl_basic") وانا اقوم بعمل الكثير من ملفات csv ، فحتى الكود يتوافق بين جهازي وبين اجهزة جميع المستخدمين وبغض النظر عن اعدادات الوندوز لهم ، استعمل هذا الكود لحل هذه الحالات Period_or_Semi_Period.zip

تفضل استاذ @بلال بلال الشرح والمرفق حسب طلبك . ووافني بالرد . Yamen 8-4-2026.rar

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل أخي بلالشريط متحرك.mdb

هههههههه انا قلت يمكن بعدل شي أو يضيف شي داخل الملف للتمييز بينهم 😛 إن شاء الله حال وصولي لنسبة ترضي غرور أفكاري 😁 ، لن أبخل عليكم بها

أقترح تمديد المدة إلى نهاية شهر 4 ... مزنوقين !! 😅🖐

استاذ بارك الله فيك استاذ كل اتقدم اليك بجزيل الشكر والتقدير على العمل الرائع

وأنا كنت أظنها من فرق الإصدارات ، والصوة توضيح لما شككتني به سابقاً معلومتي .. شكراً للتصحيح أخي جعفر

تذكرت موضوع قديم، قد يسهم في إثراء الموضوع:

هو احد اعدادات الوندوز :

السبب هو أنك جعلت مصدر بيانات النموذج الرئيسي نفس الجدول r وحددت الحقل Items كمصدر بيانات لمربع التحرير والسرد لذلك عند إختيار العنصر من القائمة يتم إضافة سجل جديد يتم تعيين قيمة لحقل العنصر فقط وعند إدخال البيانات في النموذج الفرعي يتم إضافة السجلات الأخرى ستجد الحل في الملف بعد تعديله ضمن المرفق تلميح الحل راجع مصدر بيانات النموذج الرئيسي ومصدر تحكم مربع التحرير والسرد في النموذج الرئيسي وحقلي إرتباط النموذج الرئيسي مع الفرعي استوك2.accdb

سلام عليكم اخي foksh شكرا على الرد ولكن لم ينفذ ما طلبته اتمنى ان ترى ان كان هناك خطا اخي hegazee اشكرك على الرد الجميل على ما طلبته لكن اريد ان اضيف اليه معلومة في العمل الدي اقوم به يوجد اكثر من جدول حوالي من 20 الى ثلاثين جدول وكل جدول يكون عدد االصفوفه حوالي 20 صف وبين جدول وجدول كذلك عدد من الصفوف اريد لكل جدول زر خاص به لاغلاق صفوفه التي يكون الرصيد يساوي 0 اتمنى ان اجد الجواب كما عملته في الحواب الاول لكن لكل جدول على حدى مرة اخرى اشكرك اخي foksh واخي hegazee على الرد وجزاكم الله خيرا وفي انتظار ردكم تقبلو مني فائق التقدير والاحترام وشكرا والسلام عليكم ورحمة الله تعالى وبركاته اغلاق الصفوف ذات الرصيد 0 (2) (1).xlsm

حسب ما فهمت جرب الملف التالي اغلاق الصفوف ذات الرصيد 0 (2).xlsm

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

عليك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة خدمة جلب قاعدة بيانات المدارس بالتربية والتعليم في مصر لملف إكسيل في أقل من 5 دقائق

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

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

بارك الله فيك وجزاك الله خير الثواب

تفضل يمكنك استخدام هذه المعادلة =B2*B4+(B3-1)*(B4*B2) معادله - 4.xlsx

كان عليك بدء المشاركة بالتحية السلام عليكم ...فقط استخدم هذه المعادلة =IF(DAY([@التاريخ])=27,EOMONTH([@التاريخ],0)+2,"") التاريخ معدل.xlsm

وعليكم السلام-يمكنك استبدال معادلتك الموجودة بالعمود B بهذه المعادلة المصفوفة =IFERROR(INDEX(Feuil1!$B$2:$B$340, MATCH(0, IF(A$1=Feuil1!$A$2:$A$340, COUNTIF($B$3:$B3,Feuil1!$B$2:$B$340), ""), 0)),"") كما تم تصحيح معادلة Sumproduct واضافة اليها شرط أخرحتى تحتوى وتشمل المؤسسة أيضاً فتصبح المعادلة كالتالى =SUMPRODUCT((Feuil1!$A$2:$A$31=$A$1)*(Feuil1!$B$2:$B$31=$B4)*(Feuil1!$D$2:$D$31=C$3)*(Feuil1!$E$2:$E$31)) Classeur02_Mawad_new 2022.xlsm

مبارك الترقية والى الأمام دائماً ومن نجاح الى تفوق ان شاء الله أعانك الله على مهامك الجديدة

وعليكم السلام -يمكنك ذلك بهذه المعادلة =1/(1/LOOKUP(9^9,$K$7:$K$160/($L$7:$L$160=$H$6))) OFIC1.xlsm

أحسنت استاذ ماجد عمل ممتاز بارك الله فيك وزادك الله من فضله

وعليكم السلام-فقط استخدم هذه المعادلة وشكراً =SUMIF(البيانات!$A$3:$A$140,$A2,البيانات!$D$3:$D$140) العملاء.xlsm

أهلاً وسهلاً بحضرتك فى المنتدى نورتنا وسعداء جداً بوجودك معنا شكراً لكم ونتمنى المزيد من النجاح والتفوق , وياريت رفع مع المشاركة دائما ملف يدعمها لتسهيل الفهم والإستيعاب لجميع الأعضاء

لا يمكن استخدام معادلة subtotoal لعد النصوص بدون فراغات الا بهذه الطريقة =SUBTOTAL(3,$E$1:$E$12)-COUNTBLANK($E$1:$E$12) أو بهذه المعادلة =SUMPRODUCT(SUBTOTAL(3,OFFSET($E$1:$E$12,ROW($E$1:$E$12)-MIN(ROW($E$1:$E$12)),,1))*($E$1:$E$12<>"")) او استخدام هذه المعادلة مباشرة وشكراً وبكده يجب غلق المشاركة =SUMPRODUCT(--(LEN($E$1:$E$12)>0)) خلايا فارغة1.xlsx

تفضل هناك العديد من الأكواد لتنفيذ طلبك منها : Sub PDF_Show() ActiveWorkbook.FollowHyperlink "C:\Users\Ali\Downloads\ÚÞÏ ÇáÊÃÓíÓ-ãÍæá.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص End Sub وهذا كود ثانى Sub OpenPDF() Dim pdf As String On Error Resume Next pdf = "C:\Users\Ali\Downloads\عقد التأسيس-محول.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص ActiveWorkbook.FollowHyperlink pdf End Sub واليك الملف اوراق الشركة.xlsm