نجوم المشاركات
Popular Content
Showing content with the highest reputation on 10 سبت, 2015 in all areas
-
وعليكم السلام ورحمة الله يمكن فعل ذلك باستعمال الدالة SUMPRODUCT أو FREQUENCY أو غيرهما... في الملف المرفق تجد حلين... بن علية Test.rar2 points
-
أضف ليبل label1 و جرب هدا الكود في UserForm Module Option Explicit Private Enum BackForeColor Background ForeGround End Enum Private Enum FlashSpeed Slow Fast End Enum Private bExiting As Boolean Private lLabelBackColor As Long Private lLabelForeColor As Long Private Sub UserForm_Activate() lLabelBackColor = Me.Label1.BackColor lLabelForeColor = Me.Label1.ForeColor Flash Obj:=Me.Label1, What:=Background, Speed:=Fast, FlashColor:=vbGreen End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) bExiting = True End Sub Private Sub Flash( _ ByVal Obj As Object, _ ByVal What As BackForeColor, _ ByVal Speed As FlashSpeed, _ ByVal FlashColor As Long _ ) Dim sProperty As String Dim iSpeed As Integer Dim lInitialColor As Long sProperty = IIf(What = Background, "BackColor", "ForeColor") lInitialColor = IIf(What = Background, lLabelBackColor, lLabelForeColor) iSpeed = IIf(Speed = Slow, 4, 2) Do If Int(Timer) Mod iSpeed And CallByName(Obj, sProperty, VbGet) <> FlashColor Then CallByName Obj, sProperty, VbLet, FlashColor End If If Int(Timer) Mod iSpeed = 0 And CallByName(Obj, sProperty, VbGet) <> lInitialColor Then CallByName Obj, sProperty, VbLet, lInitialColor End If DoEvents Loop Until bExiting End Sub ال Flash Sub هي ماكرو عامة تتقبل أي كونترول و تتقبل تغيير ال BackColor او ال ForeColor كما تحدد لون و سرعة الفلاش2 points
-
الاخوه الكرام أقدم كل التحيه والتقدير للاستاذ الفاضل اسامه البراوى واشكره من كل قلبى لاهتمامه بالموضوع الاستاذ اسامه الفاضل الخلوق له اضافه وتعليق على ما ذكر ومعه كل الحق فمن كرم اخلاقه ومعدنه الاصيل فضل ان يكتبها برساله خاصه وودت ان انقلها لكم لكى تعم الفائده .... يمكن اضافة ادوان تحكم جديدة بالضغط على الزر الايمن فى اى مكان فاضى او مليان فى التول بوكس .... استعمال هذة الاداة ليتيح لك الانتقال الى مود الاختيار ما بين عناصر التحكم الموجودة على الفورم لتحريكها او التحكم فى حجمها .. هناك بعض اصدارات من الاكسيل عندما تختار ان تضيف زر مثلا ... يبقى المؤشر على الفورم فى وضع الاضافة/ فكلما ضغطت على الفورم بعد ذلك يضيف زر جديد وهكذا .... والحل عندها الضغط على المؤشر للهروب من هذة الدائرة المفرغة كل الشكر والتحيه والتقدير الى الاستاذ الفاضل اسامه البراوى واحب اقول لحضرتك لا حياء فى العلم فأنا مازلت تلميذ أرتوى من بحر علمكم الفياض تقبل تحياتى2 points
-
استاذى الحبيب ابويوسف جزاكم الله خيرا على الاهتمام ويكفينى قناعتك بالبرنامج لكل منى كل التحيه والاحترام والتقدير اخوك المحب لك حسام تقبل تحياتى2 points
-
السلام عليكم و رحمة الله و بركاته أخي عبد العزيز: الموضوع الذي طرحته لم أبتغ به مساعدتي في مشكلة"مسألة" صعبت عليّ أريد حلها عندئذ أصبر كما قلت، وأمري إلى الله . أما موضوعي هذا فهو بحاجة إلى ردّ على إحدى الحالات التالية فقط : 1 - أخي أبو يوسف موضوعك قيد الدراسة ومحل اهتمام، سنخبرك بالنتيجة فور انتهائنا من البت فيه.وهذا ما أرجوه. 2 - أخي أبو يوسف لا يمكننا الاستجابة لما طرحت لأسباب (يذكرونها إن شاؤوا...). 3 - أخي أبو يوسف مثل هذه المواضيع خاصة بتقدير إدارة المنتدى ولا شأن للأعضاء بها. مع خالص أمنياتي وجزيل شكري والسلام عليكم.2 points
-
السلام عليكم و رحمة الله و بركاته يا عزيزي يا أبا يوسف .. رجاء لا تقلق بشأن موضوعك و عدم الرد عليه .. أنت بنفسك طلبت من القائمين على المنتدى .. السادة الأفاضل المتابعة و الاطلاع و التقييم .. و هذا بنظري لا يأتي سيدي المحترم في غضون 8 أو 9 ساعات .. ثق تمامًا يا أبا يوسف .. أنّ ما يقلقك يقلقنا و ما يسعدك يسعدنا .. كامل احتراماتي2 points
-
السلام عليكم ورحمة الله وبركاته سوف نقوم بإذن الله تعالى بعمل سلسة من الفيديوهات التعليمية سيكون قسم منها على شكل دروس متلاحقة أجزاء ومنها مواضيع مختلفة متنوعة في فيديو واحد سيتم بعون الله تعالى نشرها بشكل منظم مرفقة بملفات العمل الخاصة بها أسأل الله أن أكون قد أسهمت في تقديم شيء أحتسبه عنده سبحانه بما أن التثبيت للمشاركة بدأ بعد نشر عدة فيديوهات سوف نتبع سياسة فيديو جديد + فيديو قديم الى تغطية الفيديوهات السابقة في نفس المشاركة هذه وبعدها يبدأ كل جديد **************************** فيديو اليوم الجديد اسخراج كشف حساب الفيديو الثالث مشاهدة مفيدة وممتعة1 point
-
1 point
-
السلام عليكم و رحمة الله و بركاته بعد إذن أخي العزيز أبو عبد الملك السوفي .. إذا كنت جزائري الجنسية إذن أنت من منطقة وادي سوف .. فنحن ..جيران ..بارك الله فيك على الكود الرائع .. جزاك الله خيرًا و زادها بميزان حسناتك .. أما الأخ الفاضل ولد الحجاز في الواقع لفت انتباهي في موضوعك جملة " هل يستطيع أحد اكتشاف حل للمشكلة " .. و أنا أجيبك : أنتَ الذي ستكتشف لوحدك الحل بإذن الله .. لا حظ معي لو سمحت ..واتّبع الصور المرفقة بالترتيب :1 point
-
السلام عليكم الاستاذ علي انا اعتذر منك ، فلم ارى مرفقك إلا الآن والسبب اني لم اره ، هو انك عدلت في مشاركتك ووضعت فيه المرفق ، بعد مشاركتي !!! على كل حال ، فتح واكتشاف كائنات برنامجك كان تحديا اكثر من الحل نفسه في مشاركتي الاخيرة قلت: . وبالفعل هي مشكلة برنامجك !! عندك 42 نموذج ، بهم صورة او اثنتين ، و 23 تقرير ، بهم صورة او اثنتين . . صحيح انك في بعض النماذج والتقارير كنت كاتب الكود الصحيح لربط الصور ، ولكن للأسف ، الصور اصلا كانت مضمنة وليست مرتبطة. غير طريقة عرض الصور من Embedded او Shared الى Linked ، واضغط واصلح البرنامج ، وان شاء الله البرنامج يصغر حجمه جعفر1 point
-
أي نوع من ال InputBox تستخدم .. هل هو ال VBA.InputBox أم ال Application.InputBox ما هو اصدار الاكسيل الدي تستعمل و كدالك اصدار للويندوز أكيد في علمك أن بامكانك استخدام UserForm عوض ال InputBox ...مثلا بامكانك اضافة TextBox الى ال UserForm ثم تكبير حجم خط ال TextBox .. هدا أسهل من تغيير حجم خط ال InputBox عن طريق ال APIs1 point
-
السلام عليكم أخي الكريم تفضل ما أردت وفي نفس الجدول وبدون استعلام ولكن لن يعمل على اصدار اوفيس اقل من 2010 Database1.rar1 point
-
اسم البرنامج : Employs رقم الاصدار : 3.1.0 اسم المبرمج : almaistro وصف البرنامج : البرنامج عبارة عن قاعدة بيانات للموظفين يسجل فيها كل بيانات الموظف كما تشاهد بالصورة المرفقة ايضا تستطيع عمل نسخ احتياطى للبيانات (اختيارى) تستطيع ايضا وضع شاشة دخول للبرنامج (إجبارى) تستطيع حفظ واسترجاع قاعدة البيانات (اختيارى) تستطيع حفظ صورة لكل موظف مع تشفير الصورة ووضعها بملف خارجى تستطيع طباعة كشف المرتبات لكل فرع (جديد) تستطيع تسجيل الحضور والانصراف لكل موظف(جديد) تستطيع إستعراض حضور موظف خلال فترة مع حساب اجرة الاضافى(جديد) واشياء اخرى اكتشفها بنفسك ،،، كلمة المرور للبرنامج :arafa صورة للبرنامج انتظرو ادائما جديد البرنامج Employs v3.1.0.rar1 point
-
ممكن عن طريق دالة VLOOKUP لكن لابد ان يكون الرقم المقابل للصنف فريد حيث اننى ارى ان الشيت الجديد مختلف عن الشيت القديم من حيث ارقام الاصناف هذة تجربه للشيت الجديد فقط ارجوا ان اكون وفقت فى حل المطلوب 2015 - No - Sample.rar 2015 - No - Sample.rar1 point
-
السلام عليكم اخي وحبيبي واستاذي أبويوسف نعتذر عن التأخير في الرد بارك الله فيكم وبإدارة المنتدى على هذا الاهتمام والكلام الطيب والمحفز لنشر العلم والمعرفة ويشرفني أن اكون في خدمتكم في نشر العلم والمعرفة في اسهل وابسط الطرق لكي يستفيد منها اكبر قدر من المستخدمين لكم مني الاحترام والتقدير نتمى من الادارة موافقة طلبكم لكي يكون حافز لنا على التطوير والتقدم في هذا الصرح العملاق وان شاء الله في اليومين القادمين نظراً لكبر المشاهدة والطلب عليه من قبل المستخدمين في بعض شركات الخدمات المالية الخاصة سوف اقوم برفع الاصدار الثاني من برنامج الصرافة المالية ومعه بعض التعديلات المهمة وبالاضافة لفيديو تعليمي بسيط في الشرح تقبلو مني تحياتي اخوكم الصغير انس دروبي1 point
-
الموضوع سهل وهو كالآتي: انقر داخل رأس الصفحة لفتحه ثم اذهب إلى تبويب مراجعة و انقر زر " تقييد التحرير " فيظهر لك الشريط الجانبي تحت 2. قيود على التحرير فعل خيار " بلا تغييرات ( للقراءة فقط)،،،، بعد ذلك انقر داخل المستند لغلق الرأس والتذييل وقم بتحديد كافة المستند ومن الاستثناءات فعل خيار الكل بعد ذلك انقر زر نعم ابدا بفرض الحماية وأدخل كلمة السر.1 point
-
جزاكم الله خيرا استاذى الحبيب ابويوسف فعلا كما قلت ان اجرى هو دعوه صالحه بظهر الغيب وانا احوج ما يكون لها تقبل تحياتى1 point
-
السلام عليكم أخي الصقر حسام المحترم ليكن في علمك أنه لا شيء في حقيقة الأمر مجاني بالكامل ، فكل ما نفعله في حياتنا له أجر أو عليه وزر فأين المجانية في ذلك عندما يقول الله تعالى:(لها ما كسبت وعليها ما اكتسبت) إذاً كل ما تفعله من خير ستحصل على أجره.فدعوة صالحة بظهر الغيب هي أجر وكلمة طيبة عند ذكر فلان من الناس أجر فالأجر غير محدود بمقابل مادي زهيد مهما غلا... والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين. أخوكم أبو يوسف.1 point
-
1 point
-
1 point
-
1 point
-
السلام عليكم أخى العزيز الصقر .... شرحك جميل ... استمر وثق ان العبرة ليست بكثرة الردود بل على العكس فأنا أتمنى ان يكون الموضوعات التى تتناول الشرح مثل موضوعك متتالية بدون تعليقات ويكفى ان يضع متابعيك نقطة إعجاب فقط الا اذا كان يسأل عن نقطة معينة فى الشرح مثل المشاركة رقم 9 ..... وفى هذة الحالة فقط يمكن ان ترد عليه قبل البدء فى الشرح التالى وسيفيد تسلسل الموضوعات بدون قصائد الشكر فى استفادة كل متعلم يبدأ الموضوع ثم يتابع قراءة باقى الشرح متصلا بدون ان تقطعه التعليقات اتمنى منك الاستمرار لكى يستفيد الجميع .... فالمبتدئ سيجد ضالته اما الذى يعلم مسبقا سيزيد معلوماته ويعززها1 point
-
السلام عليكم طلبك بسيط .... (لكن يجب التأكد اولا من ازالة بادئة التنظيف اللى كنا اضفناها مسبقا) ثم تعديل العداد كما يلى واضافة السطر الثانى .... حيث يقوم بفحص التكست بوكس حتى يصل الى اول تكست بوكس فاضى لكى يملأ البيانات. 1: H = H + 1 if Me.Controls("a" & H).Value <>"" then GoTo 11 point
-
السلام عليكم الصراحة قمة في الاداء والشرح السلس الله يوفقك دنيا واخرة1 point
-
اخى حسام جزيت خيرا على شروحاتك شرح جميل ومفيد اخوانى أعضاء المنتدى نرجو التجاوب مع الشارح لان ذلك فيه افاده تحياتى لمشرفنا ياسر خليل فقد قدم الحلول المشروحه وافرد لنا شروحات فجزاه الله خيرا1 point
-
السلام عليكم جميل ورائع بل اكثر من رائع بارك الله بك وبجهودك والله ولي التوفيق1 point
-
السلام عليكم أخي العزيز حسام.. بصراحة شرح ولا أروع ...من قال أن شرحك غير واضح بل قمة في الوضوح ..أحسنت التعبير عن كل فكرة طرحتها مع الصور واﻷسهم لترسخ في الذاكرة حيث جمعت بين الحس والذاكرة وهذا هو الأسلوب الناجع والناجح للانطلاق نحو أفكار أكبر حيث ننطلق من المحسوس بالرؤية إلى المجرد...وفقك الله إلى كل خير والسلام عليكم.1 point
-
1 point
-
السلام عليكم ورحمة الله وبركاته أخي الصقر حسام ليست العبرة في قلة حجم الرد على الموضوع ،بل العبرة فيما يحصّل كل منا بذاكرته من المواضيع التي تطرحونها قد لا يبدو لك أن أحداً ما استفاد مما كتبت ولكن في الحقيقة لكل صوت صدى مهما بلغت دقته ..فإن أردت معرفة الاستجابة والاستيعاب عليك بالتغذية الراجعة أو كما قام أخونا الحبيب أبو البراء في أحد مشاركاته بوضع صورة مرفقة مع ملف طلب منا إدراجها ضمن يوزر فورم Sign in وأجبناه وذلك ليس عيباً ..بل يحقق مردوداً يرضي خاطرك ..هكذا كنا نعمل معشر المعلمين.. تقبل تحياتي..السلام عليكم.1 point
-
استاذى وحبيبى ابويوسف والله انا تلميذ مثلك ومازلت اتعلم وخبرتى بسيطه ولكن حبيبت انى المعلومه اللى اعرفه يشاركنى فيها غيرى ويعرفها زى مش اكتر وهذا والله العظيم ليس تواضع منى ولكن هى الحقيقه التى لا يعرفها الا الله حتى لقب عضو خبير ( والله لا استحقه) انا عضو عادى بين الاعضاء اتعلم من الاساتذه فأنا لست دارساً للبرمجه وانما هى هوايه تقبل تحياتى ************************************ الاخ ابونبا جزاكم الله خيرا تقبل تحياتى ***************************************** الاخ الفاضل ابراهيم ابوليله جزاكم الله خيرا على مرورك العطر ودعنى اقولها لك بصراحه ان قله الردود تعنى ان الموضوع غير مفيد وغير مهم ويحبط كل من يريد ان يقدم شئ لا أتكلم عن نفسى ولكن اتكلم بشكل عام الدرس السابق جلست حوالى 5 ساعات لتجهيزه وتصميم الصور ثم رفعها على الموقع وكتابه الشرح وتنسيقاته فى حين ان الرد على الموضوع لا يحتاج سطر فى ظرف دقيقه الخلاصه لا احتاج انا او غيرى كلمة شكر او أشاده ولكن نحتاج معرفه ما مدى اهميه وقيمة ما نقدمه وهل هو مفيد أم لا تقبل تحياتى ****************************************** استاذى الفاضل ابوسليمان الشرح اعتقد ان بسيط للغايه ومصحوب بالصور ولكن اعدك فى الدرس القادم شروحات اكثر تفصيلا وابسط عرضا تقبل تحياتى1 point
-
السلام عليكم ورحمة الله أحبابي الكرام جميعا لكم من القلب كل التحايا والاحترام نغيب ونرجع ونجدكم أكثر نشاطا وإبداعا ، ما شاء الله لا قوة إلا بالله جزاكم الله كل خير وزادكم وأرضاكم1 point
-
السلام عليكم بالنسبة لرأس الجدول انا حاولت برمجيا ادخل الصفين ولم يجدى .... اكتفى بسطر واحد اما بالنسبة لكمية البيانات اللى بتتكلم عليها فهى كبيرة جدا على ملف ورد واحد .... امكانياته لا تسمح وهيبقى تقيل وممل فى التعامل ممكن تنقل كل 500 سطر من الجدول فى ملف وده بيكون احسن لبرنامج الورد.1 point
-
السلام عليكم جهد بسيط كأساس لقاعدة بيانات لن تعدموا فائدة وآمل ممن يسعى للعمل عليه وإكماله أن يتحفنا بنسخة لآخر ما توصل إليه تحياتي ،،،، الرقم السري 1 ethen.rar1 point
-
السلام عليكم لاختصار الكود... مش لازم تحط العداد ده الاول ... سيبه ينقل ولما العدد يعدى 11 يبلغه انه تم نقل 11 سجل فقط For Ii = 0 To ListBox1.ListCount - 1 H = 0 For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) = True Then H = H + 1 If H1 > 11 Then MsgBox "لقد تم نقل بيانات 11سطر فقط (اقصى عدد يمكن اختياره)": Exit Sub Me.Controls("a" & H).Value = ListBox1.List(I, 0) Me.Controls("b" & H).Value = ListBox1.List(I, 1) Me.Controls("c" & H).Value = ListBox1.List(I, 2) Me.Controls("d" & H).Value = ListBox1.List(I, 3) End If Next I1 point
-
لو عندك اكسيل 2007 أو ما فوق جرب الكود التالي Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"1 point
-
لتحديد اسم الصفحة التي يتم فيها الحساب اسبق الرينج باسم الشيت كالتالي Sheet1.Range("A1:H20") Function CountNonEmpty(ByVal Rng As Range) As Long CountNonEmpty = WorksheetFunction.CountA(Rng) End Function Function CountIf(ByVal Rng As Range, ByVal Val As Variant) As Long CountIf = WorksheetFunction.CountIf(Rng, Val) End Function Sub Test() MsgBox CountNonEmpty(Sheet1.Range("A1:H20")) MsgBox CountIf(Sheet1.Range("A1:H20"),"نعم") End Sub1 point
-
أضف الكود التالي في موديول المصنف Private Sub Workbook_Activate() Application.MoveAfterReturnDirection = xlToRight End Sub Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.MoveAfterReturnDirection = xlDown End Sub Private Sub Workbook_Deactivate() Application.MoveAfterReturnDirection = xlDown End Sub1 point
-
السلام عليكم اتفضل الحل ... بالتعديل الاتى 1- التكست بوكس الاصلية كانت مش مترقمة بالترتيب ... اعدت ترقيمها 2- اضفت جزء من الكود لتنظيف التكست بوكس قبل البدء فى ملئها 3- الخطأ البرمجى اللى كان عندك انك كنت بتستعمل نفس المتغير الى بيعبر عن السطر اللى انت مختاره من الليست بوكس فى ترقيم التكست بوكس .... يعنى لو انت مختار اول سطر مثلا ... ده رقمه 0 ... كان هايدور على textbox0 وطبعا مش لاقيه .. وده اول خطأ .. اما لو كان اختر 1، 5، .... كان ها يكتب فى textbox1 , textbox5 وها يترك الباقى فاضى , والحل هنا فى تخصيص متغير جديد حسب تحقق شرط الاختيار TRS LIST.rar1 point
-
وعليكم السلام ورحمة الله وبركاته شكرا لك وجزاك الله خيرا هل هناك حل كلما زت المدى يطلع في الوورد كلام غير مفهوم وغير واضح وعذرا على الخطأ في الاسم1 point
-
السلام عليكم ورحمة الله وبركاته هذا الكود يقوم بالترحيل من الاكسيل إلى الوورد ولكن المشكلة كلما زدت المدى لا يتم ترحيل شيء فما المشكلة التي في هذا السطر wdDoc.ActiveWindow.Selection.Tables(1).PreferredWidth = CentimetersToPoints(13) 'Name of the existing Word doc. Const stWordReport As String = "Quarter Report.docx" 'Word objects. Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdbmRange As Word.Range 'Excel objects. Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnReport As Range 'Initialize the Excel objects. Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Sheet1") Set rnReport = wsSheet.Range("A1:D53954") 'Initialize the Word objets. Set wdApp = New Word.Application rnReport.Copy Set wdDoc = wdApp.Documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0) wdApp.Visible = True wdDoc.Activate rnReport.Copy wdDoc.ActiveWindow.Selection.PasteExcelTable False, False, False wdDoc.ActiveWindow.Selection.Tables(1).Rows(2).HeadingFormat = True '. .Select wdDoc.ActiveWindow.Selection.Tables(1).PreferredWidth = CentimetersToPoints(13) With wdDoc.ActiveWindow.Selection.PageSetup .TopMargin = CentimetersToPoints(2) .BottomMargin = CentimetersToPoints(2) .LeftMargin = CentimetersToPoints(1.5) .RightMargin = CentimetersToPoints(1.5) .Gutter = CentimetersToPoints(0) End With Set wdbmRange = Nothing Set wdDoc = Nothing Set wdApp = Nothing 'Clear out the clipboard, and turn screen updating back on. With wbBook.Application .CutCopyMode = False .ScreenUpdating = True End With MsgBox "Done" End Sub1 point
-
السلام عليكم ورحمة الله وبركاته استكمالا لموضوع تحليل التعادل هام للمحاسبين ومديرى المبيعات والانتاج والعاملين بالمجال المالى ---------------------------------------------------------------- كيفة تحديد الربح المستهدف + وتحليل ماذا- لو؟ ------------------------------------------------------------ قد تحتاج ان تعرف ما قيمة المبيعات ؟ اذا ما اردت جنى ارباح مثلا 25000 ؟ وقد تحتاج الاختيار بين عدة بدائل وتحليل حساسية هذه البدائل واختيار البديل الافضل استخدمنا ادوات التحليل ماذا -لو ؟والرسوم البيانيه ومعادلات وصيغ ....الخ لاتنسونا بصالح دعاؤكم تقبلوا تحياتى تحليل التعادل3.rar1 point
-
1 point
-
السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar1 point
-
تابع الشرح انتهى الشرح ارجو ان يكون هذا العمل خالصا لوجه الله تعالى وَقُلْ رَبِّ زِدْنِي عِلْمًا1 point
-
السلام عليكم جميعا أخواني الأحباب الغاليين أبوعبدالله قصي خالد ياسر ولد طيبة الله يبارك فيكم مشكورين جميعا علي مروركم الكريم وكلماتك الطيبة نفعنا الله جميعا بما نعلم وبما نعمل آمين1 point
-
أخي الحبيب / م.طارق صباح الفل واسمح لي أكون أول من يشكرك على هديتك الرائعة فجزاك الله خير الجزاء . مع حبي وتقديري أبو عبدالله1 point
-
1 point