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

أخي الكريم أهلا ومرحباً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على الرابط التالي لمعرفة التوجيهات المطلوبة للتعامل مع المنتدى http://www.officena.net/ib/index.php?showtopic=60147 يرجى إرفاق ملف لتوضيح طلبك

جرب تغير في إحداثيات الارتفاع والعرض بما يناسبك Set Pic = ActiveSheet.Shapes.AddPicture(PicName & ChkPic(X), True, False, CurrentCel.Left, CurrentCel.Top, CurrentCel.Width * 13, CurrentCel.Height * 19): empphoto = "" وإنت غير براحتك في الأرقام إلى أن تجد أفضل ضبط للصورة

الأخ الحبيب أبو صلاح ودي حاجة حلوة ولا حاجة وحشة !! الكود بيتعامل مع النطاق الحالي بداية من الخلية A1 ..

جرب مرة تانية الملف المرفق يعمل وجربت تحميله ..ويعمل إن شاء المولى

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الأغر معكم في موضوع جديد وشيق ومفيد ، مع عالم الإكسيل ومع كل جديد ، ومع تنشيط لخلايا المخ اللي تخلي مخك حديد .. أقدم لكم المزيد والمزيد ، لعل الجميع يستفيد ، ويستضاء بنا ولو من بعيد (شكلي سرحت ..أعتذر عن المقدمة الطويلة يا أبو عيد) معنا اليوم فورم بسيط (فيه صندوق الدنيا (صندوق نص) TextBox وزر أمر Command Button) بالنسبة لصندوق النص غيرت فيه من الخصائص حاجتين اتنين وبس .. خاصية اسمها MultiLine ودي خليتها True ودي عشان تقدر سعادتك تكتب في أكتر من سطر والخاصية التانية EnterKeyBehavior ودي بردو True ودي عشان تقدر بعد ما تكتب سطر تضغط Enter يقوم ايه ؟؟ يقوم ينتقل للسطر اللي بعديه .. وهكذا وهكذا يعني تكتب كلمة البحث المراد البحث عنها وتضغط إنتر ، وتقدر تكتب كلمة تانية وتضغط إنتر ، وتقدر تكتب كلمة تالتة وتضغط إنتر ، وتقدر تكتب كلمة ( - - - - - ) كتبتها بالحبر السري عشان محدش ياخد باله وتضغط إنتر وهكذا وهكذا ولما تدوس على زر الأمر Search هتلاقي النتائج المراد البحث عنها تم تلوينها جرب مثلاً اكتب Yasser واضغط إنتر ، واكتب في السطر اللي بعديه "ياسر" من غير أقواس تنصيص واضغط إنتر ، وأخيراً دوووووس على زر الأمر وشوف النتائج ودا شكل الكود الموضوع في زر الأمر Private Sub CommandButton1_Click() Dim Cell As Range, Keys, Key, I As Long If Me.TextBox1.Value = "" Then Exit Sub Sheets("Sheet1").Cells(1).CurrentRegion.Font.ColorIndex = xlAutomatic Keys = Split(TextBox1.Value, vbCrLf) For Each Cell In Sheets("Sheet1").Cells(1).CurrentRegion.Columns(1).Cells For Each Key In Keys I = InStr(1, Cell.Value, Key) If I > 0 Then Cell.Characters(I, Len(Key)).Font.Color = vbRed End If Next Key Next Cell End Sub أرجو أن يكون الملف مفيد للجميع .. تقبلوا تحياتي وهكذا وهكذا Multiple Search & Color Results.rar

الأخ الكريم ياسين أبو وسام مشكور على هذا الملف الجميل الرائع إليك الملف التالي بعد التعديل الكبيـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــر الذي قمت به لعمل المطلوب (لو عرفت التعديل هتحتقرني والله ) جرب وأعلمني بالنتيجة Insert Photo UDF Function Wesam.rar

الحمد لله أن تم المطلوب على خير ونتعلم مما قلت درساً هاماً جداً .. لا تستبعد أبداً أي احتمال في حل المشكلات (حتى ولو بدا لك الاحتمال تافهاً ومستبعداً ...) فلربما كان أتفه الاحتمالات هو الحل الأمثل لأصعب المشكلات .. تقبل تحياتي

الأخت الفاضلة جربي المعادلة بهذا الشكل =IF(OR(D4="ادارى",D4="نشاط",D4="خط"),IF(AND(OR(B4="الخامسة"),ROUND(E4*1.5,2)>=400),400,IF(AND(OR(B4="الرابعة"),ROUND(E4*1.5,2)>=385),385,IF(AND(OR(B4="الثالثة"),ROUND(E4*1.5,2)>=340),340,0))),"") إذا لم تعمل المعادلة استبدلي الفاصلة بفاصلة منقوطة

بسم الله ما شاء الله تبارك الله بارك الله فيك أخي وأستاذي ومعلمي محمد صالح أفضل أن تفرد موضوع كامل بهذا الخصوص ، ليجد الباحث بغيته حينما يبحث عن هذا الأمر .. تقبل تحياتي

جزيت خيراً أخي الغالي أحمد مرجان على الهدية الرائعة بارك الله فيك ولا تحرمنا من دررك

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

الأخ الفاضل aall أحمد أشرف لافي لاشين (بخمن الاسم) أهلا بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على رابط التوجيهات http://www.officena.net/ib/index.php?s=c7acb668488f8d07036da191baebb919&showtopic=60147 وجزيت خيراً على مرورك العطر بالموضوع

أخي الكريم محمد ارفق ملف وليس صورة لتسهل على من يريد المساعدة

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

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

الأخ الفاضل سليم يرجى تغيير اسم الظهور للغة العربية ويرجى تحديد أفضل إجابة ليظهر الموضوع منتهي تقبل تحياتي

الأخ الغالي حسام جزيت خير الجزاء ..بارك الله فيك الأخ الكريم أكرم يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

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

أخي الحبيب أبو يوسف للأسف الكود لا يعمل الآن حيث أن الخدمة التي يعتمد عليها الكود أصبحت غير مجانية ولكن هناك كود بالمنتدى أو بالأحرى دالة معرفة للأستاذ محمد صالح (ابحث عن ترجمة ) ستجد موضوع بهذا الخصوص .. http://www.officena.net/ib/index.php?showtopic=61139&hl=%D8%AA%D8%B1%D8%AC%D9%85%D8%A9#entry394249

أخي صلاح طيب جرب تستخدم الكود الثاني في موديول بدلاً من الأول ..يعني كتجربة ()sub auto_close kh_wVisible False (ThisWorkbook.Close Not CBool(ThisWorkbook.Saved End Sub يمكن تكون المشكلة إن الكود في حدث إغلاق المصنف ..وإن كنت أستبعد الأمر لكن لن يكلفك الأمر وقتاً طويلاً ..جرب هذه التجربة

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

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

مشكور على مرروك العطر أبو يوسف وكلنا هنا تلامذة نتعلم من بعضنا البعض وإن شاء الله آمل أن تكون نبراساً ومنارةً لطلاب العلم

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

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