ماجدجلال

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

شكرا لك اخي العزيز سؤال : هل لابد من ان يكون الجدول في مصنف مستقل عن التقرير ؟؟؟؟ ارغب في جعلهما في مصنف واحد ( ملف وورد واحد )

السلام عليكم ورحمة الله وبركاته و كل عام وانتم بالف خير وصحة عندي تقرير معمول بالوورد و هو شبه شهري , طبعا الصيغة او بناء التقرير لا يمكن تغيرها لانها مرتبطة بالادارة , المشكلة انني دوما انسي تغير بعض الفقرات في التقرير و دوما اوجه مشكلة مع الادارة و لاحظت انه اسهل التعامل مع الجدول في ادخال البيانات بدلا من فقرات التقرير و التي تكون البيانات مبعثرة هنا و هناك و قد ينسي اي شخص فقرة او معلومه لذا هل يمكن ربط فقرات التقرير بحقول في جدول , بحيث مجرد ادخال البيانات في الجدول تظهر تلقائيا في التقرير ؟؟؟؟ في المرفق هناك تقرير في الصفحة الاولي و هناك جدول في الصفحة الثانية , وارغب في ربط حقول الجدول بفقرات التقرير و تلاحظون ايضا تكرار في بعض الفقرات ارجو منكم المساعدة ولكم جزيل الشكر و الامنان التقرير الشهري.docx

السلام عليكم ورحمة الله وبركاته اولا : اشكر الاستاذ احمد بدره , علي مروره للموضوع و المشاركة . ثانيا : عندما طرحت السؤال هنا , كنت مدرك تماما ان فورم ادخال موقع البيانات الجاهز من الاكسيل يعمل في اي مكان متعرف علية من صفحة العمل , هذة النقطة متفقين عليها تماما , و لكن طريقة ادراج هذا الفورم هي التي جعلتني اطرح السؤال . فلقد رغبت في الاستفادة من مشاركة الاستاذ مجدي يونس , و رغبت في اضافة واجهة جميلة لملفي في الاكسيل وذلك من خلال اضافة ( زر ) لادراج فورم ادخال البيانات - كما في درس الاستاذ مجدي - ثالثا : قمت بتحميل ملف الاستاذ احمد بدره , الزر يعمل --- فقط --- اذا كان جدول البيانات يبدا من الخلية A1 , واذا قمت بنقله الي مكان اخر تظهر رسالة ( فشل أسلوب show data form ) , ولقد جربتها في جهازين مختلفين من اصدار الاوفيس , الاول : 2003 الثاني : 2010 وكانت النتيجة واحدة , نفس النتيجة السابقة . و كما يتضح من السؤال و الموضوع , هو حل مشكلة ادراج فورم ادخال البيانات من خلال زر ( اذا كان الجدول يبدا من خلية غير الخلية A1 كما هو واضح من المرفق , لذا اتمني من الاستاذة الكبار و الاخوان وعلي راسهم الاستاذ الكبير ( مجدي يونس ) المشاركة , لعلهم يجدون حل مناسب و كود يحل هذا العيب في الاكسيل , قد يكون من خلال كود مختلف او ادراج مكتبة ,,, ملاحظة : من خلال درس الاستاذ مجدي كما في الرابط السابق , تلاحظ ان الاستاذ مجدي كان جدول البيانات يبدا من الخلية A1 - طبعا اقصد طريقة ادراج الفورم من خلال الزر ,, اتمني للجميع التوفيق و النجاح

السلام عليكم ورحمة الله وبركاتة ,,, اولا : اشكر الاستاذ الكبير ( مجدي يونس ) علي درسة الممتاز , و الذي تعملت منه كيفية اضافة فورم الاكسيل الجاهز لادارة البيانات , ثانيا : في الطريقة الثالثة من الدرس و هي ادراج الفورم عن طريق الكود Sub displaydataform() Range("g9").Select ActiveSheet.ShowDataForm End Sub لاحظت ان الكود لا يعمل الا اذا كان بداية الجدول من الخلية A1 فقط و غيرها يقوم باظهار الرسالة , فشل الاسلوب , ولكن عند نقل الجدول و جعل البداية من الخلية A1 فانة يعمل ,,,, طيب ماذا اعمل اذا كان الملف لدي الجدول يبدا من خلية غير الخلية A1 ,, ارجو المساعدة وشكرا لكم ,,, رابط درس الاستاذ مجدي يونس https://www.officena.net/ib/topic/97914-فورم-جاهز-لاضافة-البيانات-والبحث-بثلاث-طرق/?tab=comments#comment-596786 showform.xlsm

ماشاء الله تبارك الله ممتاز جدا معليش تاخرت في الرد كنت اجرب الكود , وذهلت منه ,, باقي شي بسيط اذا اردنا ان يكون textbox1 ان تعامل مع ارقام و textbox2 تعامل مع تاريخ , يتغير الكود ؟؟؟؟؟ لاني لاحظت انه اذا كان داخلهما نصوص يعطي نتائج صحيحة 100% واذا كان غير ذلك يعطي صفر بصراحة شي رائع , بارك الله فيك استاذنا الغالي

فعلا ,,, الان تاكدت كلامك صحيح شكرا لك علي التنبيه باخذ الملف الاخيرة الذي ارفقته شكرا لك السلام عليكم ورحمة الله وبركاتة ,, احب اشكر الاستاذ سليم علي دعمة الغير محدود و مساعدته لي ,, فله الشكر و التقدير , الحمد لله , كذا تم حل المشكلة و الانتهاء من الملف المطلوب , و لكن من باب التعليم و الفائدة , لدي سؤال و متعبني , كيف يمكن دمج قيمة ثابتة و قيمة متغيرة مع دالة داخل vba هذة الكود myvalu = "=SUMPRODUCT(--(O6:O" & LR = Textbox1 &")*(P6:P" & LR & = Textbox2 & "))" باعتبار ان LR متغير يرمز الي اخر سطر فية بيانات Textbox 1 and Textbox 2 هما مربع نص في اليوزو فكيف يتم ذلك . وكما ذكرت هذا من باب التعليم , لان عجزت اعملها و افهمها ,

السلام عليكم ورحمة الله وبركاتة ماشاء الله تبارك الله ممتاز جدا ممتاز قمت بتعديل بسيط جدا علي الكود ليكون Dim laste_row As Long, I As Long, non As Long laste_row = Cells(Rows.Count, 1).End(3).row Range("A8").Resize(laste_row - 7, 5).Interior.ColorIndex = xlNon myvalu = "=SUMPRODUCT(--(A8" & "&" & """*""" & "&" & _ "B8=$A$8:A" & 8 & "&" & """*""" & "&" & "B$8:B" & 8 & "))" Range("MM8").Resize(laste_row - 7).Formula = myvalu For I = 8 To laste_row If Range("MM" & I) > 1 Then 'Range("A" & I).Resize(, 5).Interior.ColorIndex = 6 'MsgBox "Duplicate: " & Chr(10) & Range("MM" & I) - 1 & IIf(Range("MM" & I) = 2, "Time", "Times") non = non + 1 End If Next MsgBox non Range("MM8").Resize(laste_row - 7).Clear تم اضافة متغير non يحسب اجمالي عدد السجلات المطابقة للسجل الموجود في اليوزر , ويتم اظهاره مرة واحدة فقط , الف الف شكرا لك استاذ سليم , وادعوا الله لك ان يبارك في علمك وصحتك ويزيدها

السلام عليكم ورحمة الله وبركاتة احب ان اشكر الاستاذ سليم , علي مساعدته لي و حسن اخلاقة في تحملي البارحة حاولت و حسب طلب المستخدم , ان اضيف رسالة تنبيه تقوم بحساب عدد السجلات السابقة ( الموجودة في الجدول سابقا ) مقارنتا بالسجل الجديد الذي قام المستخدم حاليا باضافته ( اذا كان مكرر - موجود سابقا ) للتوضيح : لنفترض ان السجل ( رقم الوارد ( 8 ) و بتاريخ ( 1440/01/01) موجود سابقا في الجدول و مكرر 3 مرات 1- المستخدم لا يدري ان السجل الذي يريد اضافتة الان هو موجودا سابقا و مكرر ( 3) مرات . 2- بعد فتح اليوزو وكتابة الرقم 8 كرقم وارد جديد وتاريخ 1440/01/01 , و النقر علي زر ( اضافة السجل ) . 3-يقوم الاكسيل باضهار msgbox بان السجل الموجود حاليا في اليوزو هو موجود مسبقا في الجدول و مكرر 3 مرات والله حاولت الاعتماد علي نفسي و لكني فشلت , ان علم الاكود بحر واسع و لعل اسهل شي فية هو اصعب شي الا وهو النقاط و الاقواس و علامات التنصيص فارجو المساعدة ولكم جظيل الشكر و الامتنان ,,, SALIM_code.xlsm

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

السلام عليكم ورحمة الله وبركاتة ,,, البارح و الحمد لله , استطعت ادخال الدالة sumproduct في كود و كانت تعطي نتائج صحيحة , حاولت جعل النطاق دينميكي و ولكن فشلت , ايض وجهتني مشكلة التعامل مع التاريخ ,, حيث ان الكود يعمل بشكل صحيح مع الارقام فقط ارجو منكم المساعدة و شكرا لكم ,,,, 5487.xlsm

السلام عليكم ورحمة الله وبركاتة شكرا لك استاذ : سليم الفكرة ممتازة جدا و لكن الملف الذي لدي لا يعتمد علي نسخ و لصق المعادلات او التنسيق الشريطي , لان صاحب الملف لايرغب في وجود معادلات تحتاج الي نسخ ولصق , لانها تحتاج الي متابعه اذا ما وصل الي خلايا لا يوجد بها معادلات و هذا يسبب له ارتباك في العمل , وخوفا ان يكون قد وصل الي خلايا فارغة لا يوجد بها معادلات او تنسيق شريطي , استاذ سيلم : ساحاول ان انقل المعادلات الي النموذج , ففكرتها ممتاز وان شاء الله تنجح ولا استغني عن دعمكم الله يسعدك ويوفقك

السلام عليكم ورحمة الله وبركاتة في المرفق ملف وله نموذج لادخال البيانات , من الطبيعي ان يتكرر السجل اكثر من مرة بسبب وجود اكثر من قضية علي نفس الرقم و التاريخ , و لكن المطلوب من الكود اظهار عدد مرات تكرر هذا السجل ,, في الملف المرفق شرح اكثر , ارجو منكم المساعدة ولكم جزيل الشكر 5487.xlsm

السلام عليكم ورحمة الله وبركاتة اعتذر في التاخر في الرد , و ارفع جزيل الشكر و الامتنان للاستاذ / محي الدين ابو البشر , الف الف شكرا و جزاك الله كل الخير

السلام عليكم ورحمة الله وبركاته الاخوان الاعزاء ,, في الملف المرفق عجزت عن عمل كود يقوم بالبحث عن قيمة في مربع نص في فورم و مقارنتها بنفس القيمة في عمود , و للتوضيح يقوم المستخدم بادخال الاسم الرابعي في الفورم كل اسم في خانة و قبل الخروج من اسم العائلة يقوم الكود تلقائيا بدمج الاسماء الاربع ليكون الاسم الرابعي ثم يفحص الاسم الكامل هل هو موجود فعلا قبل ذلك في العمود المحدد وارجاع رسالة بذلك و شكرا لكم الف الف شكرا 2020.xlsm