ياسر خليل أبو البراء

ربنا يبارك فيك أخي الحبيب سعد عابد وإن شاء الله تكون استفدت من الموضوع شرفني مرورك العطر بالموضوع .. والحمد لله أن تم المطلوب على خير تقبل تحياتي

أخي الكريم ناصر ارفق الملف المراد العمل عليه وارفق شكل الفورم المطلوب وكيفية تنفيذه ليسهل تقديم المساعدة من قبل إخوانك بالمنتدى ...الطلب بشكل عام لا ولن يفيد

بارك الله فيك أخي العزيز ناصر وجزيت خيراً بمثل ما دعوت لي مشكور على مرورك الكريم بالموضوع

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

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

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

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

وجزيت خيراً بمثل ما دعوت لي أخي العزيز عبد الله فاروق تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله اطلعت منذ قليل على مشاركة لأخونا الغالي محمد حسن المحمد ، في موضوع خواطر إكسيلية ، وفي المشاركة أدرج معادلة رائعة تقوم بمعرفة السنة الكبيسة أو العادية من خلال عدد أيام شهر فبراير .. رابط المشاركة من هنا فتذكرت أن لدي ملف به أربعة عشر طريقة بالمعادلات لمعرفة السنة الكبيسة من السنة العادية في الملف المرفق : يتم وضع السنة في الخلية D4 بهذا الشكل مثلاً 2015 أو 2016 أو اكتب السنة التي تريد معرفة ما إذا كانت سنة كبيسة أم لا .. المعادلات موجودة في النطاق D7:D20 ، وتعطي النتيجة TRUE إذا كانت السنة كبيسة ، وتعطي القيمة FALSE إذا كانت السنة عادية وليست كبيسة .. قم بالذهاب إلى إدارة الأسماء Name Manager لتجد أن هناك نطاقات مسماة ، سوف تستخدم في المعادلات .. النطاق الأول المسمى Year يشير إلى الخلية D4 التي بها السنة المراد اختبارها ثم أربعة نطاقات لأربعة شهور ...الأول ليناير بهذا الشكل : اسم النطاق jan1st والمعادلة المرتبطة بهذا الاسم في إدارة الأسماء =DATE(year,1,1) حيث يشير إلى أول يوم في شهر يناير في السنة المحددة في الخلية D4 ... ونفس الكلام لثلاثة نطاقات للشهور feb1st و mar1st و april1st وآخر النطاقات المسماة هو febDays لحساب عدد أيام شهر فبراير للسنة المحددة في الخلية D4 =DATE(year,2,ROW('leap year check'!$A$1:INDEX('leap year check'!$A$1:$A$29,DAY(EOMONTH(feb1st,0))))) وأخيراً إليكم المعادلات المستخدمة لحساب ومعرفة ما إذا كانت السنة كبيسة أم غير كبيسة =DATE(year+1,1,1)-jan1st=366 =DATE(year,2,29)<>mar1st =DAY(EOMONTH(feb1st,0))=29 =WEEKDAY(feb1st)<>WEEKDAY(mar1st) =YEAR(jan1st)=YEAR(jan1st+365) =DATE(year,2,30)=mar1st =DAY(DATE(year,3,0))=29 =WEEKDAY(jan1st)=WEEKDAY(apr1st) =SUMPRODUCT(--(WEEKDAY(DATE(year,ROW($A$2:$A$12),1))=WEEKDAY(jan1st)))=2 =WEEKDAY(feb1st+1)<>WEEKDAY(EDATE(feb1st,12)) =SUMPRODUCT(--(WEEKDAY(febDays)=WEEKDAY(feb1st)))=5 =WEEKDAY(feb1st)=WEEKDAY(EOMONTH(feb1st,0)) =WEEKDAY(feb1st)=WEEKDAY(DATE(year,10,17)) =((MOD(year,4)=0)*((MOD(year,100)<>0)+(MOD(year,400)=0))=1) أرجو أن ينال الموضوع إعجابكم وأترككم مع الملف المرفق حمل الملف من هنا كان معكم أخوكم أبو البراء من منتدى أوفيسنا تقبلوا تحياتي

أخي الكريم محمد عبد الناصر ادخل على التنسيق الشرطي وعدل الـ Format وغير اللون للون اللي إنت عايزه .. أخي الحبيب سليم ملف رائع بارك الله فيك وجزاك الله كل خير .. إنك لمدهش حقاً

ربنا يبارك فيك أخي الفاضل أحمد مرجان كلنا هنا أخوة وكلنا تلامذة في هذا الصرح الكبير ... تقبل وافر تقديري واحترامي

ولا يهمك أخي الكريم أحمد غانم الحمد لله أن تم المطلوب على خير تقبل وافر تقديري واحترامي

أخي الحبيب محي الدين أحي فيك روح التفاعل الجميلة والمطلوبة من الجميع ، فهذا هو المقصود بعينه أن نقوم بتطبيق ما تعلمناه لنتعلم المزيد وترسخ المعلومة بالنسبة لسؤال حول الخلايا الفارغة يمكن استخدام شرط لتفادي الخلايا الفارغة بهذا الشكل For I = 1 To UBound(myData) - 1 If Not IsEmpty(myData(I, 1)) And myData(I, 1) <> 0 Then Obj(myData(I, 1) & "") = "" End If Next I أما بالنسبة إلى أن بعض الأسماء مكررة هذا يرجع للإدخال فكلمة "أنس" غير كلة "انس" غير كلمة "إنس" ... وكلمة "محمد" غير كلمة "محمد " الثانية بها مسافة زائدة ... تقبل تحياتي

وجزيت خيراً بمثل ما دعوت لنا أخي الحبيب أسامة وإن لك فضل علينا بعد فضل الله عزوجل ، وهذا جزء بسيط من رد الجميل تقبل تحياتي

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

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

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

أخي الكريم أحمد غانم هل أفلحت كلمة السر معك أم لا ؟ أرجو الإفادة يا صاحب السعادة تقبل تحياتي

أخي الغالي سعيد بيرم لقد أتعبني ملفك بشكل كبير جداً ..أعتذر لصراحتي .. وجود الخلايا المدمجة في ملفك جعلني عاجزاً عن العمل ، إلى أن وفقني الله إلى أن أقوم بنسخ الورقة المسماة DATA لورقة أخرى باسم Temp لأقوم بحذف الصفوف الفارغة ما بين الكشوف وإزالة الصفوف الغير ضرورية والإبقاء على الأصناف فقط ...ثم تنفيذ الجزء الخاص بالترحيل والتجميع لعدة أوراق عمل أخرى أرجو أن يفي بالغرض استغرق الملف مني عمل أكثر من ساعتين لضبط النتائج .. فهل تبخل بدقيقتين فقط من وقتك لدعمي حمل الملف من هنا تقبل تحياتي

وراك وراك لحد ما تلاقي البطاقة وتقولنا على اسمك المكتوب فيها .. متحاولش تهرب !! هتهرب تروح على فين يا نور العين !!

أخي الكريم فتحي أهلاً ومرحباً بك في المنتدى ونورت بين إخوانك بالمنتدى بدايةً أوجهك لموضوع بعنوان "بداية الطريق لإنقاذ الغريق" .. رابط الموضوع من هنا طبق الخطوات في الموضوع ثم جرب الملف الذي يحتوي على أكواد مرة أخرى وأعلمنا بالنتيجة تقبل تحياتي

أخي الحبيب عبد الله فاروق كلنا نتعلم من بعضنا البعض ، فلولاكم لما تعلمت شيئاً فبكم ومنكم تعلمت تقبل وافر تقديري واحترامي

أخي الغالي أحمد الفلاحجي ..هل طبقت الخطوات بالموضوع أم أنك متعثر ؟ أعلمنا بالنتيجة بارك الله فيك تقبل تحياتي

بارك الله فيك وجزاك الله خيراً أخي العزيز جلال الجمال مرورك بالموضوع شرف لي .. تقبل وافر تقديري واحترامي