نجوم المشاركات

اخي الحبيب ياسر تم تغيير الاسم لنكون قدوة تحياتي

يمكن ان يكون ما تريده البحث عن التكرار 1.zip

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

السلام عليكم ورحمة الله وبركاته نبدأ بعون الله في شرح شيء جديد في عالم البرمجة ، وهو القاموس Dictionary ، وإن شاء المولى يكون مفيد لكم إخواني الكرام. طبعاً عنوان الموضوع جذبكم مش عشان البرمجة أكيد عشان الناموس (وإزاي نقدر نتخلص من الناموس والإزعاج اللي بيسببه ) .. الناموس هنا معناه القانون أو القاعدة .. ودا عنوان كعامل جذب مش أكتر ما هو القاموس Dictionary؟ ---------------------------- من اسمه ممكن نعرفه ..القاموس يعني تجميعة كلمات باللغة الإنجليزية وليها مرادف سواء بنفس اللغة أو بلغة أخرى .. اللي يهمنا في القاموس إني عبارة عن تجميعة Collection القاموس في لغة البرمجة عبارة عن تجميعة ، وبنستخدمه عشان نخزن فيه : أرقام - نصوص - تواريخ - مصفوفات نطاقات - كائنات - متغيرات .. والقاموس عبارة عن عناصر أو بنود Items وكل عنصر له مفتاح مميز Unique Key المفتاح دا فايدته ايه؟ من اسمه بردو نعرف إن المفتاح بيفتح لنا الباب .. بيفتح الباب للعنصر (عشان نتعامل معاه بشكل برمجي .. يعني المفتاح دليلنا أو مرشدنا للعنصر المطلوب التعامل معه) القاموس فايدته إننا بنقدر نتعامل مع البيانات في الذاكرة بعيداً عن ورقة العمل ..يعني مفيش تحديث للشاشة Screen Updating ، مفيش حساب تلقائي Auto Calculation ، بكدا نقدر نفول إنه أسرع في التعامل مع البيانات ++ (فائدة) بما إن القاموس بيحتوي على مفاتيح مميزة ، فيمكن استخدام الخاصية .Keys عشان نستخرج قائمة فريدة Unique List من البيانات ** القاموس ليس ضمن المكتبة القياسية للغة البرمجة VBA ، إنما هي جزء من Microsoft Scripting Runtime library ، وهذه المكتبة توجد في الملف الموجود في المسار التالي \Windows\system32\scrrun.DLL ولذلك إذا أردت استخدام القاموس فيمكنك من خلال محرر الأكواد الذهاب للقائمة Tools ثم References واختر المكتبة المسماة Microsoft Scripting Runtime library إنشاء القاموس Create Dictionary ----------------------------------- أبسط طريقة لإنشاء القاموس استخدام الأسطر التالية With CreateObject("scripting.Dictionary") End With ماذا تعني هذه الأسطر؟ تعني إنشاء كائن جديد بالاعتماد على المكتبة المسماة scripting.Dictionary ، وما بين السطرين سيتم كتابة أسطر وأوامر برمجية الأسطر التي ستبدأ بنقطة تعني التعامل مع خصائص الكائن أي أنها ستتعامل مع الكائن الجديد ## مثال بسيط لإضافة عنصر للقاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" End With الطريقة Method التي تلي النقطة تسمى Add أي أضف .. والمقصود منها إضافة عنصر جديد للقاموس .. ذكرنا في بداية الموضوع أن لكل عنصر مفتاح مميز ، المفتاح هنا First Name ، والعنصر يحتوي على النص Yasser يمكن استخدام متغير للقاموس بهذا الشكل Dim Dict As Object Set Dict = CreateObject("scripting.dictionary") With Dict .Add "First Name", "Yasser" End With الإعلان عن المتغير من النوع كائن ، ثم تعيين قيمة للمتغير ليساوي إنشاء الكائن من المكتبة الخاصة scripting.Dictionary ثم بدء التعامل مع الكائن القاموس .. ## مثال آخر : المثال التالي سيتناول عد العناصر داخل القاموس باستخدام الخاصية Count قم بوضع الكود داخل موديول ثم نفذ الكود ستجد رسالة بها عدد عناصر القاموس وهو في المثال 2 فقط مفتاح العنصر الأول هو First Name ومفتاح العنصر الثاني هو Second Name أما كلمة Yasser وكلمة Khalil فهي محتويات أو عناصر القاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" .Add "Last Name", "Khalil" MsgBox .Count End With وأكتفي بهذ الجزء البسيط .. لكي أجد المتابعة الجيدة منكم وإلى اللقاء في الأسبوع المقبل إن شاء الله مع حلقة جديدة في نفس الموضوع دمتم على طاعة الله

ياسلام عليك يا اخ ياسر هو ذلك تماما بس سؤال مش ناوي تحترف برا مصر ياابو البراء؟

أخي الكريم وائل الأسيوطي (الحمد لله أن تم تغيير اسم الظهور للغة العربية) بدايةً ادخل على Excel Options ثم Advanced أي خيارات متقدمة ثم اذهب للقسم المسمى When Calculating this workbook وأزل علامة الصح من جانب الخيار Update links to other documents تلك كانت الخطوة الأولى قبل إجراء عملية نسخ أوراق العمل حدد ورقة العمل المسماة 1 ثم من لوحة المفاتيح اضغط Ctrl مع الاستمرار وانقر على ورقة العمل المسماة 2 .. حتى يتم نسخ الورقتين معاً .. كليك يمين عليهما ثم الأمر Move or Copy من النافذة التي ستظهر لك علم على الاختيار Create Copy حتى يتم النسخ وليس القص ، ومن القائمة المنسدلة في النافذة اختر المصنف المراد نسخ الأوراق إليه أرجو أن يكون المطلوب إن شاء الله

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

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

حياك الله عمل الكود في النموذج والاستعلام فقط اما التقرير ففي المجاميع والفرز وتركت لك اصل الاستعلام والتقرير جعفر

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

للرفع واحياء ذكريات الماضى

اعتقد استاذنا القدير ان المسالة مسالة ترتيب الاحرف في المتغير xletter ومايقابله من الحروف في الجملة النصية المكتوبة والتي تمثل المواقع المقابلة لكل حرف ! تحياتي

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

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

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

لتطبيق فكرة الملف على الملف الخاص بك اتبعى الخطوات التالية الخطوه الاولى :- فتح محرر الاكواد من خلال Alt+f11 هتظهر معاك الصورة التالية فى الصورة دائرة حمراء صغيرة بداخلها Insert اضغطى عليها هتفتح معك قائمة اختارى منها Module ستجدى صفحه شاشة بيضاء جديده شاهدى الصورة أنسخ الكود التالى واعملى له لصق فى الشاشة البيضه Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "النسخ واللصق والحفظ باسم غير مسموح به فى هذا الملف" End Sub Sub n() Call ToggleCutCopyAndPaste(True) End Sub الخطوه الثانية فى هذه الصورة يوجد دائره حمراء بداخلها ThisWorkbook اضغطى عليها هتظهر معك الصوره التالية فى الشاشة البيضه المسماه ThisWorkbook انسخى الكود التالى وقمى بصلقه فى هذا الشاشة ( حدث المصنف ) Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Me.Save Cancel = True End If End Sub اذا كنت تريد عمل زر لتفعيل خاصيه النسخ واللصق مره اخرة نفذ الخطوة الثالته والرابعه لو مش عايز انتقل للخطوة الخامسه مباشرة الخطوه الثالثه :- الخطوة الرابعه :- يتم تحديد الزر بالوقوف عليه ثم الضغط كليك يمين شاهدى الصورة الخطوه الخامسه :- هى حفظ الملف بضيغه Xlsm شاهد الصورة ارجوا ان يكون شرح تطبيق نقل الكود واضح تقبلوا تحياتى

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

ثالثا :- وقت تنفيذ الكود الخاص بــ ComboBox دلوقتى هنتكلم عن أهم طرق وقت تنفيذ الكود واكثرها شيوعا فى الاستخدام 1- Afterupdate :- هنا يتم تنفيذ الكود بمجرد الانتهاء من الادخال فى ComboBox والانتقال الى اى عنصر اخر ( وهو يشبه كثير طريقة Exit) 2-EXit :- هنا يتم تنفيذ الكود بمجرد الخروج من ComboBox والانتقال الى اى عنصر اخر ( يشبه كثير طريقه Afterupdate ) 3-Change :- هنا يتم تنفيذ الكود عند حدوث اى تغيير فى ComboBox 4-DblClick :- هنا يتم تنفيذ الكود عند الضغط دبل كليك بالماوس داخل ComboBox 5-Enter :- هنا يتم تنفيذ الكود بمجرد وضع مؤشر الماوس داخل صندوق ComboBox دلوقتى هنعرف ازاى بيكون كتابه الاعلان على الاكواد الخاصه بالـ ComboBox ( وهى نفس الطريقه لكل عناصر التحكم فى الفورم ) مثال على حدث Afterupdate Private Sub ComboBox1_AfterUpdate() 'هنا بيتم كتابه الكود المراد تنفيذه End Sub السطر الاول هو بداية الاعلان عن الكود فنقوم بكتابة Private Sub ستجد لونها بالكود أزرق ( وهو بداية لاى كود خاص لأى عنصر تحكم داخل الفورم ) ثم نقوم بكتابة اسم العنصر المراد عمل الكود له وهو بمثالنا ComboBox ثم نقوم بكتابة _ ( تكتب من خلال الضغط على Shift+زر الطرح الموجود بالاعلى بجوار زر + ) ثم نقوم بكتابة وقت تنفيذ الكود (اللى هو موضوعنا اليوم) ثم كتابة () قوسين بهذا الشكل وبمجرد الضغط انتر ستجد الكود عمل سطر تانى فيه End sub يوجد طريقه اخرى وهى اتبع الصوره التالية توضح لك قم بالضغط على اى مكان فاضى بالفورم وادخل لمحرر الاكواد الخاص بالفورم

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

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

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

الله يبارك فيك يا ياسر ويجعلة في ميزان حسناتك جاري التجربة واحب اشاركك بالبرنامج دة VBA Decompiles and compacts VBA projects ودة الموقع بتاعة http://cpap.com.br/orlando/VBADecompilerMore.asp?IdC=Help لعل فية افادة للزملاء VBADecompiler.rar

اخي جرب المرفق ضرائب جديد2015.rar

السّلام عليكم و رحمة الله و بركاته .......و كذلك يسعدني وشرف كبير أن أكون أوّل المهنّئين لك سيّدي المحترم عادل حنفي بالاسم الجديد وافر احتراماتي

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

بسم الله الرحمن الرحيم فكرت كثيرا كيف يمكنني ان اشكر هذا المنتدى الرائع بمشرفيه واعضائه وما السبيل لاعبر عن شكري وامتناني للمهندس احمد (ابن مصر) الذي ساعدني وساعد الكثير في هذا المنتدى دون تردد وعن علم ومعرفة وابداع لما يقدمه فما وجدت سوى ان اكتب له هنا كلمة شكر من القلب حيث ان الرسول صلى الله عليه وسلم يقول «لَا يَشْكُرُ اللَّهَ مَنْ لَا يَشْكُرُ النَّاسَ» شكرا استاذ احمد وبارك الله بعلمك وعملك ادعوا الله ان يجعل ما تقدمه من خير للجميع تطبيق للحديث النبوي الشريف : "إذا مات ابن آدم انقطع عمله إلا من ثلاث صدقة جارية أو علم ينتفع به أو ولد صالح يدعو له"

وعليكم السلام في الشيت الأخير بأمكانك إظهار العمود E أو إخفاؤه تفضل جرب المرفق بطاقة التخصص1.rar

بارك الله فيك ومتعك الله بموفور الصحة والعافية وأعزك وأعز المنتدى بك - آمين

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

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

حد جاب اسمي تفضل سيدي الكريم بس للعلم ، المنتدى فيه الكثير من الشباب اللي فيهم الخير والبركة غيري جعفر 235.الورشة.accdb.zip

اخى واستاذى ياسر خليل وفيت بوعدك فقد وعدتنا بافراد موضوع خاص لشرحCreateObject("scripting.dictionary") جزاك الله خيرا وفقكم الله

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

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

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

اخى ياسر شكرا على كل جديد ومفيد .. انت دائما مبدع

شرفتنا بالتعقيب والملاحظة استاذنا القدير ابو البراء ! والآن ؟ : Function ramhan(xinput As String) As String Dim i As Integer, xsum As String, xletter As String xletter = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" xinput = Replace(xinput, "أ", "ا") xinput = Replace(xinput, "إ", "ا") xinput = Replace(xinput, "ة", "ه") xinput = Replace(xinput, " ", "") For i = 1 To Len(xinput) xsum = xsum & " " & mid("يوهنملكقفغعظطضصشسزرذدخحجثتبا", InStr(1, xletter, mid(xinput, i, 1)), 1) Next i ramhan = Trim(xsum) End Function تحياتي للجميع

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

أخي العزيز عند الدخول للبرنامج تظهر لي هذه الرسالة ما العمل مع العلم بأن الأوفس عندي 2013

اخي أن شاء الله انتظر قليلا

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

السلام عليكم ورحمة الله وبركاته الأستاذ طارق ليك الحق تقول up up بس ما فكرتش ليه لحد دلوقتى مفيش ردود ؟! المهم جرب الكود ده ومتنساش ان حماية الملفات قاصرة وأى ناشئ اكسل يدوب لسه بيعرف اكسل يقدر يفقع لك الملف الكود يوضع فى حدث الورقة من خلال هذا الكود تستطيع تعديل البيانات فى النطاقين ("B7:B106,F7:F106") اذا كان التاريخ فى النطاقين ("C7:C106,G7:G106") أكبر أو يساوى تاريخ اليوم واذا كان التاريخ فى النطاقين ("C7:C106,G7:G106") أقل من تاريخ اليوم لن تستطيع التعديل بالا بادخال الرقم السرى الموجود بالكود 123 Private Sub Worksheet_Change(ByVal Target As Range) ' Protect Range from change After specific Date ' By Mokhtar 8/10/2015 Dim pwd As String: pwd = 123 If Not Application.Intersect(Target, Range("B7:B106,F7:F106")) Is Nothing Then If Target.Offset(, 1).Value < CVDate(Date) Then If Application.InputBox("برجاءإدخال كلمةالمرور لتعديل البيانات", "تصريح تعديل بيانات", "***") <> pwd Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفواً... ليس لديكم الصلاحية لتعديل البيانات" Else Exit Sub End If End If End If End Sub تحياتى عدم السماح للمستخدم بتعديل ائ بيانات 2 .rar

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

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

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

ابن مصر..أستاذي القدير..بارك الله فيه و في أمثاله

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

أخي الحبيب تفضل أيضا ملف من روائع أستاذنا الكبير / عبد الله باقشير بارك الله فيه وجعل أعماله في ميزان حسناته فورم لحفظ نسخة من الملف.rar

حاول أن تملأ الجرة 6 لتر فقط من الماء ثم ضعها على المقبض لنفتح لك باب السجن إذا وضعت في الجرة أكثر أو أقل من 6 فسوف تحكم على نفسك بالإعدام تفضلوا الملف المرفق Cave(1).rar

طيب يا اخي خالد الآن انته عارف السر فين طبعا اضف هذا السطر الى الكود السابق [D20] = ListBox1 وقبل كلمة end