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

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

Private Sub Cmd_Close_Click() ActiveWorkbook.Save ActiveWorkbook.Quit End Sub

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

في الخلية B15 ضع المعادلة التالية =SUMPRODUCT(--(B$4:B$13>=B$3*65%)) ثم قم بسحبها إلى اليسار إلى الخلية I15

أخي الحبيب إبراهيم .. هل تريد العمل على المعادلة كما هي أم أن هناك تغيير أو تعديل محدد في المعادلة تود عمله ، حيث لاحظت أن هناك خطأ VALUE بالمعادلة .. يمكن تصحيح الخطأ =IFERROR(IF(MAX(INDEX(($I2:I$3=I3)*--($O2:O$3),0))=0,"",MAX(INDEX(($I2:I$3=I3)*($O2:O$3),0))),"") أم أنك تريد المعادلة كما هي

الأخ الفاضل أبو محمد أهلا بك بين إخوانك في المنتدى العريق جرب الكود التالي في حدث ورقة العمل ، كليك يمين على اسم الورقة ثم View Code ثم الصق الكود التالي .. لتجربة الكود قم بكتابة بعض القيم في العمود A Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 1 Then Cells(Target.Row, 2).Value = Format(Now(), "dd/mm/yyyy hh:mm:ss") End If End Sub

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

الأخ الحبيب طارق بالنسبة لطب السائل الثاني لم يكن لزري أمر إنما كان لأدة MultiPage وحاولت أن أجد خاصية BackColor لتبويبات هذه الأداة ولكني فشلت .. لا أعتقد أن هذه الخاصية مدعومة لتبويبات الصفحات المتعددة في الفورم (على حد علمي)

السلام عليكم ورحمة الله وبركاته بعد طول غياب أقدم لكم إخواني الكرام إخواني الأحباب ، الإصدار الأخير من مكتبة الصرح .. ورجاء أن تقوموا بتجربة الأكواد وإذا صادفتكم أي مشكلة من أي نوع رجاء الإبلاغ بها ، وإذا رأى منكم أحد أي خطأ في أي جزئية فليبادر بذكرها ، نريد تصحيح وتنقيح للعمل أولاً بأول لكي يظهر في نهاية الأمر (دا إذا كان له نهاية أصلاً .............) لكي يظهر بشكل يليق بمكانة المنتدى العريق ولكي ينفع به جموع المسلمين في كل مكان.. شكر خاص للأستاذ الكبير والأخ الغالي ابن مصر على إسهاماته وشكر خاص للعلامة باشمهندس المنتدى طارق محمود ومن أكثر الناس محبة لقلبي وشكر خاص لكل من ساهم في بناء المكتبة ولو بكلمة تشجيع فالمكتبة منكم ولكم ، منكم ولكم ، وأؤكد منكم ولكم وفي الختام أسأل المولى أن يجعل أعمالنا صالحة ولوجهه خالصة وأن ينفع بنا وأن يجمعنا في الفردوس الأعلى من الجنة إليكم الإصدار الأخير من مكتبة الصرح Codes Library v1.9.rar

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

اسألني وأنا أجاوبك يا غالي ... هات ما عندك !! ياما في الجراب يا غالي

أخي الحبيب ابن مصر الغالي .. لن يتم تنزيل الإصدار الجديد إلا بعد 5 أكواد منك على الأقل الأخ الحبيب ياسر .. يرجى البحث داخل المكتبة أولا .. قم بالبحث عن كلمة [منع] .. تقبلوا تحياتي

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

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

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

جزاكم الله خير الجزاء جاري التحميل والتجربة .. جعله الله في ميزان حسناتك يوم القيامة

الرابط غير صحيح أخي الكريم يرجى إعطاء الرابط الصحيح وبارك الله فيك على المجهود الكبير في هذا البرنامج

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

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

رائع يا ابن مصر متمكن من التنسيقات بشكل هائل بارك الله فيك .. تقبل تحياتي

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

جرب الكود التالي أضف شكل بيضاوي أو أي شكل وجرب الكود Dim shp As Shape Set shp = ActiveSheet.Shapes(1) ActiveSheet.Hyperlinks.Add shp, "", "", ScreenTip:="هذا هو الشكل الذي يمثل شكل الطابعة"

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

تفضل الرابط التالي http://www.officena.net/ib/index.php?showtopic=55781&hl=

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