هشام شلبى

السلام عليكم ===== الموضوع رقم (29) =========

السلام عليكم ===== الموضوع رقم (28) =========

السلام عليكم ===== الحل بالمعادلات كحل اولى الى حين الافطار Copy.rar

السلام عليكم ===== اخى العزيز استخدم الكود Sub replaceHH() What = InputBox("ضع هنا الكلمة التى تبحث عنها") repl = InputBox("ضع هنا كلمة الاستبدال") Sheets().Select Selection.replace What:=What, Replacement:=repl, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub الكود يبحث فى كل الصفحات اما لو حببت البحث والاستبدال فى صفحة معينة غير السطر Sheets().Select باستبداله باسم الشيت الذى تحب وايضا الكود يبحث عن كلمة مفردة او كلمة فى وسط جملة ويستبدلها مرفق لك مرفقان الاول شرح طريقة استخدام الكود والثانى ملف اكسيل به ما تريد SEARSH HH.rar search HH.rar

السلام عليكم ===== الموضوع رقم (27) ========= شاهد المرفق وجرب بنفسك شرح عمل زر خيار.rar

السلام عليكم ===== اخى جمال بارك الله فيك اخى المستفيد نت عفوا مع التجربة ارفقت الملف الخطأ اليك الحل بدون اعمدة مساعدة ستضع فى الخلية j2 =IF(ROUNDDOWN(LARGE($B$2:$B$7;ROWS(B$2:B2));0)=0;"";ROUNDDOWN(LARGE($B$2:$B$7;ROWS(B$2:B2));0)) ستضع فى الخلية i2 =IF(J2=0;"";VLOOKUP(J2;IF({1,0};$B$2:$B$7;$A$2:$A$7);2;0)) شاهد المرفق بالترتيبين التصاعدى والتنازلى بالمعادلات HH.rar

السلام عليكم ===== اخى العزيز اذا كنت فهمت قصدك شاهد المرفق HH.rar

السلام عليكم ===== الموضوع رقم (26) ========== عنوان الموضوع الاصلى عمل فورم.rar

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

السلام عليكم =========== انظر فى الخليتين T24 و T25

السلام عليكم ===== اخى الكريم جرب هذا المرفق اكثر من مرة بنتائج مختلفة واعلمنى بالنتيجة وبعد ذلك ساقول لك اين الخطأ 2011.rar

السلام عليكم ===== الموضوع رقم ( 25) ========== عنوان الموضوع الاصلى حماية الاوراق من تعديل اسمها.rar

السلام عليكم ===== اخى ASHHMA كل عام وانت بخير شاهد المرفق تصحيح معادلة.rar

السلام عليكم ===== اخى الحبيب ياسر كل عام وانت واهل سوريا الحبيبة بخير وبارك الله فيك الاخ السائل لتنوع الحلول هنا حلان اخران للتشفير عن طريق الحفظ باسم كطريقة اولى وعن طريق حماية الخلايا كطريقة ثانية وايضا كيفية اخفاء اوراق الشيت بطريقة يدوية HH.rar

السلام عليكم ===== شاهد المرفق كود اخفاء الصفوق مساعده.rar

السلام عليكم ===== الشكر موصول لاخوانى بن عليه وجمال دغيدى ولتنوع الحلول هذا حل اخر بالماكرو HH.rar

السلام عليكم ===== شكرا لاخى الحبيب بن عليه والاخ جمال دغيدى الاخ السائل لتنويع الحلول يمكن الحل باستخدام الدالة SUM ستضع فى الخلية F3 =SUM(($B$10:$B$1000=D2)*($F$10:$F$1000=F2)) وستضع فى الخلية G3 =SUM(($B$10:$B$1000=D2)*($F$10:$F$1000=G2)) ولا تنسى ان تضغط CONT+SHIFT+ENTER احصاء.rar

السلام عليكم ===== بارك الله فى اساتذة الاكسيل لمزيد من ائراء الحلول اخى السائل ستضع الصيغة الاتية فى الخلية D5 =COUNTIF($L$9:$L$155;F2&" "&D4) وفى الخلية E5 =COUNTIF($L$9:$L$155;$F$2&" "&E4) وفى الخلية F5 =COUNTIF($M$9:$M$1000;F2&" "&F4) وفى الخلية G5 =COUNTIF($M$9:$M$1000;F2&" "&G4) واختار الفصل من الخلية F2 احصاء الفصل.rar

السلام عليكم ===== ستحدد الخلايا C2:F18 ثم تضع فى التنسيق الشرطى =IF(C2=MIN($C2:$F2);TRUE;FALSE) وذلك لتحديد القيمة الصغرى فى كل صنف هل هذا ما تقصد اما موضوع الجمع فهل تقصد جمع الخلايا التى باللون الاخضر ام عدد الخلايا التى باللون الاخضر HHSuppliers2003.rar

السلام عليكم ===== اخى الحبيب جمال دغيدى *** بارك الله فيك الاخ السائل بالنسبة الى 2003 ستضع الكود الاتى فى MODULE Function GetBackgroundColor(MyRange As Range) GetBackgroundColor = MyRange.Interior.ColorIndex End Function ثم شاهد المرفق سيعطيك ارقام للالوان وبعد ذلك سوى فرز تصاعدى حسب العمودC SORT BY COLOR HH.rar

السلام عليكم ===== اخى العزيز مشكلة التنسيقات الشرطية تم حلها فى المرفق عاوز افهم المعادلة الكبيرة اوى الموجودة فى E6 سيبك منها خالص عاوزك تقهمنى دى عاوز تحسب فيها ايه خلينا بس فى المطلوب ده . ممكن ان شاء الله نعوضها بمعادلة اقصر شوية ومفهومة Emmpl-Attendance_Calendar_V1.22.rar

السلام عليكم ===== الحبيب الغالى جمال دغيدى هذا من بعض ما عندكم

السلام عليكم ===== اخى العزيز ستضع هذه الصيغة فى التنسيق الشرطى للعمود E =IF(IF(B1="";TRUE;FALSE)=TRUE;TRUE;FALSE) شاهد المرفق con_format.rar

السلام عليكم ===== اخى نور انور اهنيك على الملف الجميل ده واعتقد طلبك موجود هنا الاخ العزيز جمال الفار بارك الله فيك عمل مميز

السلام عليكم ===== اخى الحبيب خبور