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

اتفضل طالبك يا استاذ mydata-UP.rar

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

حسب معطياتك لا يمكن تكون الايام اكثر من ثلاثين كما لا يمكن ان تكون الاشهر اكثر من 12 لانه لديك خبرة محددة بالسنين والشهور والايام وتريد تطرحها من العدد 20 فنحن قمنا بالتسلف بداية وحسبنا الـــ 20 سنة هكذا : 19 سنة ، 11 شهر ، 30 يوم ثم اجرينا عملية الطرح آمل ان تكون الفكرة واضحة تم تعديل المثال حسب رغبتك طرح سنوات من الخدمة2.rar

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

اخى محمد ماشاء الله عليك دايما نشيط وبالفعل هذا الدرس يعتبر من التراث فى VBA جزاك الله خيرا تقبل تحياتى

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

اخي وهذا تعديل بسيط ولكنه هام لمراعاة الاخطاء خط سير test.rar خط سير test.rar

برنامج_مخازن_جديد.xlsm

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

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

بسم الله الرحمن الرحيم السلام عليكم الاساتذة الافاضل ربما سؤالي في غير محله ولكن ليس لي حيلة غير اللجوء لكم في حلها وهي المتصفح كوكل كروم عربي المشكلة ان اتجاه النص في الموقع من اليسار الى اليمين فهل المشكلة في المتصفح او في الموقع

السلام عليكم أستاذ عمار المحترم أتصفح على google chrome على الجوال حاليا وهو عربي من اليمين إلى اليسار.. يرجى فحص إعدادات الموقع..أو لغة الجهاز. تقبل تحياتي.

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

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

السلام عليكم و رحمة الله و بركاته أستاذي القدير محمد حسن المحمد .. بارك الله فيك على المبادرة الطيّبة .. والفكرة الجديدة المميّزة .. أن تتقدّم بالشكر .. وبخط بيدك و الله شيء ممتاز .. فقط لي ملاحظتيّن : 1 - نحن الذين من واجبنا أن نشكرك لما تبذله من جهد و لما تساهم به في كل الأوقات .. جزاك الله خيرًا و أمدّك بالصحّة و العافية 2 - أعجبني خطك كثيرًا .. خط روعة " بسم الله ماشاء الله " ..تأكد سيدّي المحترم من شعورنا المتبادل .. فألف شكر لك أنت أيضٌا خالص احتراماتي

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

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

أستاذى الفاضل حسين يبدو أنني لم أوفق في التعبير عما أقصده الملف لا يعمل عندي لأن الفورم يحتوي على Slider Control و هدا الكونترول لا يوجد في ال MSFORMS Lybrary ... و هدا ال OCX Control أي ال Slider Control لا يوجد بالضرورة في كل جهاز فأنا مثلا ليس لدي هدا الكونترول .. لتفادي مثل هده المشاكل من الأفضل دائما استعمال Default Controls .. الكود أدناه يستعمل ال ScrollBar Control الدي هو موجود دائما مع الأكسيل فورم ملف للتحميل : https://app.box.com/s/jff2a32tl4x5uoyoowbi16eb39ku3yrz Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2& Private hwnd As Long Private bytOpacity As Byte Private Sub UserForm_Initialize() hwnd = FindWindow("ThunderDFrame", Me.Caption) Call SetWindowLong(hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED) Call SetLayeredWindowAttributes(hwnd, 0, 255, LWA_ALPHA) ScrollBar1.Min = 0 ScrollBar1.Max = 255 ScrollBar1.SmallChange = 3 Label1.Caption = "Transparency : " & 0 & "%" bytOpacity = ScrollBar1.Max End Sub Private Sub ScrollBar1_Change() Call AdjustFormTransparency End Sub Private Sub ScrollBar1_Scroll() Call AdjustFormTransparency End Sub Private Sub AdjustFormTransparency() bytOpacity = 255 - ScrollBar1.Value Call SetLayeredWindowAttributes(hwnd, 0, bytOpacity, LWA_ALPHA) Label1.Caption = "Transparency : " & 100 - (100 * bytOpacity \ 255) & "%" End Sub التحدي الحقيقي هو كيف يمكن التحكم في درجة شفافية الفورم كما فعلنا هنا لكن بدون اخفاء الكونترولات الموجودة داخل الفورم أو ال TitleBar كما هو مطروح في موضوع الرابط التالي : http://www.officena.net/ib/topic/63770-transparent-userform-فورم-شفاف/

الله يرحمك يااستاذ عماد الحسامي تعلمنا منه الكثير فقيدنا الشخص النبيل الحسامي انا لله وانا اليه راجعون

السلام عليكم ورحمة الله وبركاته الدرس السابع 7-Conditions الشروط وسوف نتناول فى هذه الدرس الاتى انشاء الشرط بواسطة if استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if استخدام Select Case استخدام or مع if استخدام and مع if بعض الشروط شائعة الاستخدام ........................................... انشاء الشرط بواسطة if يتم انشاء الشرط بواسطة if وطالما كان هناك شرط اذا لابد ان تكون هناك نتيجه تتحقق بتوافر الشرط ام بعدم توافره ففى حاله توافر الشرط نستخدم كلمة then وفى حالة عدم توافر الشرط نستخدم كلمة else ثم فى النهاية لابد ان يتم اقفال الشرط if ب end if If الشرط Then ماذا سيحدث فى حالة تحقق الشرط Else فى حالة عدم تحقق الشرط ماذا سيحدث فى حالة عدم تحقق الشرط End If نهاية قاعدة الشرط مــثــــــــــــــال نريد فى حالة وجود الرقم 10 فى الخليه a17 يتم كتابة الرقم صحيح فى الخليه b17 واذا كان الرقم لايساوى الرقم 10 يتم كتابةالرقم خطأ فى الخليه b17 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions() If [a17] = 10 Then ' A17 هنا نقول انه فى حالة وجود الرقم 10 فى الخليه 'Then يتم ' الرقم صحيح B17 اعطاء الخليه [B17] = "الرقم صحيح" Else 'Else فى حالة عدم وجود ارقام غير الرقم10 ' الرقم خطأ A17 اعطاء الخليه [B22] = "الرقم خطأ" End If 'End If..... IFنهاية الشطر End Sub استخدام اكثر من شرط داخل الكود وذلك باستخدام Else if مـثـــــــــــــــــــال نريد اذا كانت الخليه a23 بها الرقم 10 يتم كتابة a10 فى الخليه a24 واذا كانت a23 بها الرقم 20 يتم كتابة a20 فى الخليه A24 واذا كانت a23 بها الرقم 30 يتم كتابة a30 فى الخليه A24 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions1() If Range("A23") = 10 Then Range("A24") = "a10" ElseIf Range("A23") = 20 Then Range("A24") = "a20" ElseIf Range("A23") = 30 Then Range("A24") = "a30" Else Range("A24") = "خطأ" End If End Sub استخدام Select Case يمكننا استخدا مها فى حالة توافر اكثر من شرط Select Case كتابة معطيات التى يبنى عليها الشرط Case Is الشرط الاول النتيجه Case Is الشرط الثانى النتيجه Case Is الشرط الثالث النتيجه Case Else ' فى حالة عدم تحقق اى من الشروط النتيجه End Select ' Select Case نهاية مـثـــــــــــــــــــال نريد اذا كانت الخليه a45 بها الرقم 10 يتم كتابة a10 فى الخليه a46 واذا كانت a45 بها الرقم 20 يتم كتابة a20 فى الخليه A46 يتم كتابة a30 فى الخليه A46 شاهد الصوره طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions2() Select Case Range("A45") Case Is = 10 Range("A46") = "a10" Case Is = 20 Range("a46") = "a20" Case Is = 30 Range("a46") = "a30" Case Else Range("a46") = "خطأ" End Select End Sub استخدام or مع if مـثـــــــــــــــــــال قوم بانشاء قاعده بيانات مكون من عمود واحد به اسماء معينه من A الى D ونريد عند كتابة اسم معين فى الخليه a59 واذا كان هذا الاسم موجود ضمن الاسماء يتم كتابة الاسم صحيح فى الخليه B59 واذا كان غير موجود يتم كتابة الاسم خطأ طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions3() If [A59] = [a54] Or [A59] = [A55] Or [A59] = [A56] Or [A59] = [a57] Then ' A59 هنا نقل انه فى حالة وجود الاسم الموجود فى الخليه ' ضمن الاسماء الموجوده فى الخلايا ' A54--او-A55--او-A56--او-A57 'Then يتم ' الاسم صحيح B59 اعطاء الخليه [b59] = "الاسم صحيح" Else 'Else فى حالة عدم وجود الاسم ضمن الاسماء يتم ' الاسم خطأ B59 اعطاء الخليه [b59] = "الاسم خطأ" End If 'End If..... IFنهاية الشطر End Sub استخدام and مع if مـثـــــــــــــــــــال نقوم بانشاء قاعده بيانات مكونه من عمودين واحد به اسماء معينه من A الى D والثانى به ارقام من 1 الى 4 ونريد عند كتابة اسم معين فى الخليه A68 وكتابة رقم معين فى الخليه b68 واذا كان هذا الاسم يخص الرقم يتم كتابة الاسم صحيح فى الخليه B59 واذا كان لا يخص هذا هذا الرقم يتم كتابة الاسم خطأ طيب نشوف الكلام ده هيتعمل ازاى بالكود Sub Conditions4() If ([A68] = [a63] And [b68] = [b63]) Or ([A68] = [a64] And [b68] = [b64]) Or _ ([A68] = [a65] And [b68] = [b65]) Or ([A68] = [a66] And [b68] = [b66]) Then ' A68 هنا نقل انه فى حالة وجود الاسم الموجود فى الخليه ' ضمن الاسماء الموجوده فى الخلايا ' A63--او-A64--او-A65--او-A66 ' b68 وفى حالة وجود الاسم الموجود فى الخليه ' ضمن الاسماء الموجوده فى الخلايا ' b63--او-b64--او-b65--او-b66 'Then يتم ' الاسم صحيح B69 اعطاء الخليه [b69] = "الاسم صحيح" Else 'Else فى حالة عدم وجود الاسم ضمن الاسماء يتم ' الاسم خطأ 659 اعطاء الخليه [b69] = "الاسم خطأ" End If 'End If..... IFنهاية الشطر End Sub بعض الشروط شائعة الاستخدام If IsNumeric(Range("A75")) = True Then ' هنا نشترط ان تكون القيمه عدديه If IsNumeric(Range("A76")) Then ' هنا نشترط ان تكون القيمه عدديه If IsNumeric(Range("A77")) = FALSE Then ' هنا نشترط ان تكون القيمه غير عدديه If NOT IsNumeric(Range("A78")) Then ' هنا نشترط ان تكون القيمه غير عدديه--اى نصيه If IsDate(Range("79")) Then ' هنا نشترط ان تكون القيمه عباره عن تاريخ If IsEmpty(Range("80")) Then ' هنا نشترط عدم ادخال شىء اى ان تكون الخايه فارغه Sub ConditionsE() If IsNumeric(Range("A75")) = True Then ' هنا نشترط ان تكون القيمه عدديه MsgBox " قيمة الخليه A75 عدديه " End If If IsNumeric(Range("A76")) = True Then ' هنا نشترط ان تكون القيمه عدديه MsgBox " قيمة الخليه A76 عدديه " End If If IsNumeric(Range("A77")) = False Then ' هنا نشترط ان تكون القيمه غير عدديه MsgBox " قيمة الخليه A77 غير عدديه " End If If Not IsNumeric(Range("A78")) Then ' هنا نشترط ان تكون القيمه غير عدديه MsgBox " قيمة الخليه A78 غير عدديه " End If If IsDate(Range("A79")) Then ' هنا نشترط ان تكون القيمه تاريخ MsgBox " قيمة الخليه A79 تاريخ " End If If IsEmpty(Range("A80")) Then ' هنا نشترط ان تكون الخليه فارغه MsgBox " قيمة الخليه A80 فارغه " End If End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

بسم الله الرحمن الرحيم الاخوة الاعزاء أقدم لكم اليوم شرح مبسط عن الحلقه التكرارية For next انا هبدأ على طول بالامثله العمليه والتطبيقية حتى يتضح لنا ما معنى الحلقه وفيما تستخدم مثال 1 عدد عشرة صناديق ( كنت عامل رسم عشر صناديق لكن للاسف عند الحفظ طلب تقليل الوجوه التعبيريه) وهو ايه الصناديق دى ؟؟ / هقولك الصناديق دى كنوز وهدايا فيهم صندوق منهم فى ساعه هدية لحبيبى ياسر خليل انا بصراحه مش عارف ايه المناسبة بس اهو هدية وخلاص حبيبنا برضوا ولازم نكرمه معلش يا عم ياسر هنتعب واحد دلوقتى علشان يروح يجيب لك الساعه انتظر شوية وهتيجى لك الساعه لحد عندك انت غالى برضوا ولا ايه صحيح دا واحد صاحبنا قاعد مبسوط لانه بيسمع الماتش و الاهلى جاب جون امه هتنادم عليه ( مش هتنادى عليه ) هتنادم يعنى هيندم على اليوم اللى اتولد فيه طب ليه؟ لان أمه هتقوله روح للصناديق اللى فوق افتح صندوق صندوق وتعالى هههههههه أول شئ هتلاقى وشه عامل كدا زى ابولهب المهم صحبنا ده هيروح ياعينى للصناديق ويفتح العشرصناديق صندوق صندوق ويرجع طبعا لما يرجع هيعمل لامه كدا ويزعق انا عايز افهم انتى قلتى روح ليه ايه الفايده انى افتح الصناديق بس ضيعتى عليا الماتش لو عايزين نطبق الكلام الحلو ده بس بلغه Vba بتاعة عمنا بيل جيتس Sub hossam() For i = 1 To 10 Next End Sub هنا اول سطر الاعلان عن بداية الكود / السطر الثانى عملنا حلقه تكرارية For واسمها i اللى هو بالمثال فوق الصناديق وممكن تسميه اى حرف اخر كيفما يحلو لك وقلنا ان الصناديق تبدأ من اول صندوق الى اخر صندوق وهو 10 / السطر الثالث هو next وهى تعنى التالى صاحبنا هيروح لاول صندوق ويفتحه وبعدها يروح للصندوق الثانى ويفتحه يخلص وبعدها يروح للصندوق الثالث ويفتحه وهكذا والسطر الرابع يعنى نهاية الكود طبعا الكود ده ما فى منه اى فايده ليه يا عم لانك مقلتش له مهمه ينفذها انت بس قلتله لف على الصناديق زى لف التراك كدا ********************************************************************************************* مثال 2 الحاجه وابنها اللى فى المثال الاول هتقوله يابنى روح للصناديق وهات الساعه لعمك ياسر / افتح صندوق صندوق لو لقيت صندوق منهم فى ساعه مكتوب عليها هدية لعمك ياسر هتها وتعالى قالها وافرض لقيت الساعه باول صندوق ارجع ومكملش ههههههههههههههههه ولد زكى امه قالت له لا يا حبيبى افتح برضوا كل الصناديق افتحهم كلهم حتى لو لقيت الساعه فى اول صندوق طبعا صاحبنا هيعمل كدا الغيظ يا عينى هيطق من عينيه لو حبينا بقى نعمل الكلام ده بالبرمجه بالكود يعنى نعمل ايه Sub hossam() For i = 1 To 10 If "لو اى صندوق جواه ساعه " Then "طلع الساعه من الصندوق " End If Next End Sub الجديد هنا اننا استخدمنا قاعدة If يعنى شرط للمأمورية اللى هيقوم بها صاحبنا مش هيروح يفتح فى الصناديق بس ويرجع زى المره الاولى *********************************************************************************************** مثال 3 صاحبنا اللى فوق ده امه قررت انها تريحه وقالت له افتحى الصناديق يا حبيبى ولو لقيت صندوق فى الساعه هاتها وارجع ومتكملش فتح الباقى صاحبنا قال طيب وراح بدأ يفتح فى الصناديق اول صندوق ملقاش الثانى ملقاش الثالث ملقاش الرابع لقى الساعه جابه ورجع وقال يا فكيك مش هكمل فتح الباقى علشان نعمل الكلام ده بالكود هيكون كدا نفس الكود السابق بس اضافه حاجه صغيره جدا Sub hossam() For i = 1 To 10 If "لو اى صندوق جواه ساعه " Then "طلع الساعه من الصندوق " Exit For End If Next End Sub يعنى عندما يتحقق الشرط ارجع واخرج من الحلقه اللى هى For ومتكملش ******************************************************************************************** مثال 4 عايزين نطبق الكلام الحلو ده بس على امثله بالاكسيل فى الامثله السابقه هنستبدل الصناديق بالخلايا من A1:A10 وهيكون الساعه موجوده فى محتوى الخلايا معانا صوره فيها بيانات من الخلية A1 : A 10 لما نطبق الكود دا Sub hossam() For i = 1 To 10 If Cells(i, "A") = "ساعه" Then Cells(i, "B") = "مبروك" End If Next End Sub حته على الهامش cells تكتب هكذا ( العمود , الصف ) cells فى الكود اعلاه الصف هو i والعمود هو A وتم وضعه بين علامتى تنصيص "A" لما نطبق الكود هنلاقى النتيجة كما هو موضح بالصورة ********************************************************************* مثال 5 لو عايزين الكود لما يلاقى ساعه يطلع وميكملش هنضيف زى ما كلنا Exit For ويكون الكود كدا Sub hossam() For i = 1 To 10 If Cells(i, "A") = "ساعه" Then Cells(i, "B") = "مبروك" Exit For End If Next End Sub وهتلاقى النتيجة كما هو بالصورة مبين ********************************************************************************************* مثال 6 من الوضح ان الامثله السابقه الحلقه تبدا من 1 الى 10 أى معلوم بدايتها ونهايتها طيب لو عندى حلقه معلوم بدايتها وغير معلوم نهايتها يعنى العمود A البيانات فيه متغيره وفى ازدياد فى هذه الحاله نستخدم تعريف اخر خليه بها بيانات فى العمود كالتالى nn = Cells(Rows.Count, "A").End(xlUp).Row nn هنا هو تعريف اخر خليه بها بيانات ويتم استخدمها بالكود بعد ذالك بدل من كتابة Cells(Rows.Count, "A").End(xlUp).Row كل مره ( طبعا يمكن تغيرها الى اى حروف انت تحبها وبكدا هيكون الحلقه كالتالى For i = 1 To nn والكود كامل هيكون كدا Sub hossam() nn = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To nn If Cells(i, "A") = "ساعه" Then Cells(i, "B") = "مبروك" Exit For End If Next End Sub ************************************************************************ مثال 7 كل الشغل اللى معمول ده على ان الحلقه بتعمل على الصفوف طيب انا عايزها تعمل على الاعمده يعنى الشكل زى الصورة دى بفرض انه غير معلوم اخر خليه بها بيانات فى الصف 1 هنعمل تعريف لها كالتالى nn = Cells(1, Columns.Count).End(xlToLeft).Column هو نفس تعريف اخر صف كما قلنا سابقا ولكن بختلاف ترتيب Cells عايزكم انتم تلاحظو الفرق الكود هيكون كالتالى Sub hossam() nn = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To nn If Cells(1, i) = "ساعه" Then Cells(2, i) = "مبروك" Exit For End If Next End Sub الاختلاف هنا عن الكود بالمثال هو تعريف nn كما وضحنا سابقا وايضا فى ( Cells(1, i هنا cells الصف ثابت وهو 1 والعمود هو المتغيير i ولو ضغطنا على الزر سيكون نتيجة الكود كالتالى كما هو مبين بالصورة ************************************************************************************************* مثال 8 الصور الذى تم الشرح عليها كلها فى الورقه 1 من الملف يعنى البيانات ونتيجة البيانات كانت بنفس الورقة انا عايز اروح للورقه 2 واعمل زر واعيين عليه الماكرو بس حلقه For هتبحث عن البيانات بالورقه 1 هنعمل ايه امر بسيط جدا هنستخدم With وطبعا هنقفلها ب End With Sub hossam() With Sheet1 nn = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To nn If .Cells(1, i) = "ساعه" Then [A1] = "مبروك" Exit For End If Next End With End Sub طبعا هو نفس الكود اللى بالمثال 7 والجديد هو استخدمنا With Sheet1 فى بداية الكود وقفلناه قبل نهاية الكود ب End With وقلنا لو تحقق الشرط خلى الخليه A1 = "مبروك" كما هو موضح بالصورتين صورة الورقه 1 اللى بها البيانات صورة الورقه 2 عند الضغط على الزر وظهور مبروك بالخلية A1 ********************************************************************************************** تعبت الولد معك يا عم ياسر المهم الحمد لله الولد نجح بالمهمه وجاب لك الساعه ودلوقتى بيتفرج على الماتش والاهلى جاب جون تانى والفرحه مش سيعاه *************************************************************************** أتمنى يارب أكون وفقت بالشرح ويكون سهل للاخوة الجدد المهتمين بالتعلم VBA يمكنكم شرح افضل من هذا على الرابط من اعمال الاخ الحبيب ياسرخليل حلقات افتح الباب يا عبدالتواب http://www.officena.net/ib/index.php?showtopic=56941= وايضا يمكنكم متابعه الرابط التالى للاخ الحبيب محمود الشريف http://www.officena.net/ib/index.php?showtopic=56000&hl= كما يوجد ايضا العديد من الشروحات التى تتناول الحلقه التكرارية For next يمكنكم البحث عنها داخل المنتدى تقبلوا تحياتى واتمنى لك التوفيق

انا طبقت المثال ....فعلا قمة فى الروعه وشرح متميز ... بارك الله فيك وزادك علما نافعا

اخى الحبيب ابراهيم الاجمل هو مرورك بارك الله فيك تقبل تحياتى

اخى الصقر بسم الله ماشاء الله معلومات قيمه ودسمه بارك الله فيك فى انتظار المزيد تقبل تحياتى

حياك الله اخي الكريم ارفق مثالك للتطبيق عليه بالتوفيق

السلام عليكم الاساتذة الافاضل شكري وتقديري وامتناني الكبير لكم جميعا وللاعضاء الكرام على ما قدمتوه لي ولغيري من معلومات ومساعدات جعلتني اعشق الاكسل ورغم ان عمر معلوماتي قصير جدا بهذا المجال الا انه بفضل الله وبفضلكم اخذت الكثير من هذا المنتدى الرائع باهله نحن كمدرسين في المدارس نسعد عندما نرى ثمرة جهدنا وهو الطالب يتفوق وانا الان طالبكم المتلقي للمعلومة منكم كاساتذة اكفاء احرص على متابعة كل ردودكم وتوجيهاتكم واليوم احببت ان اعمل برنامج لمتابعة عدد المشتركين في كل سكتر من شبكة الانتر نت وانا لا يهمني البرنامج حرفيا لكن الذي يهمني فيه هو الادوات التي استعملتها 1- دالة الجمع 2- دالة if لاظهار التنبيه حول عدد المشتركين 3- تلوين الخلايا بمجرد كتابة التسلسل والاسم 4- الارتباط التشعبي 5- دالة الجمع شكرا لكم من كل قلبي تلميذكم عدد المشتركين.rar

شكرا استاذ على حرصك لتقديم العون وانا اردت ان اقدم بعض ما تغلمته منكم كعرفان وليست لي اي طلبات تقبل مني كل الاحترام والتقدير وشكرا لك ويارك الله فيك

تفضل : تم عمل وحدة نمطية عامة تأخذ خيارات النسخة من الجدول ويمكن الآن اخذ النسخة من اي مكان داخل البرنامج ملحوظة : بقي ان تضع قيم افتراضية للحقول فيما لو المستخدم لم يحرك ساكنا x.rar

السلام عليكم أخي الصقر: قمت بذلك في عجالة من أمري لضيق وقتي ..ولمتابعة عملي كنت أفكر بما يلي: 1 - تقسيم كل بحث إلى أبواب رئيسية يوضع له فهرس بارتباطات تشعبية في أول الكتاب أو آخره لتصل إلى الباب الذي تريدبيسر وسهولة 2 - حواشي سفلية أو تعليقات ختامية...لتوضيح أفكار بعينها. 3 - تسميات توضيحية لكل صورة ضمن البحث. فإن قدّر الله لي البقاء وإن كان عندي وقت أطول أبشروا بالذي يسركم. والسلام عليكم.

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

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

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

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

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

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

جرب هذا الشيء salimالمصنف100.zip

للتدكير فقط الكود الدي تفضل به الاستاد مختار حسين محمود لا يمنع من تكبير أو تصغير الأعمدة و الصفوف باستخدام الماوس أو عن طريق Home Tab => Cells =>Format=>Column Height منع تكبير أو تصغير الأعمدة و الصفوف بدون حماية الصفحة و اعتمادا على الكود ليس أمرا سهلا و يتطلب اعمال تقنية ال SubClassing مرة أخرى يا أستاد عمار .. يمكن جعل الصفحة الأولى واجهة بها اتباطات تشعبية رغم تطبيق حماية على الصفحة.. قبل تطبيق حماية الصفحة يمكن تغيير خاصة ال Locked للخلايا و عند تطبيق الحماية الأكسيل يسمح لك اختيار العديد من الخاصيات

بارك الله فيك أخانا وأستاذنا الصقر على المعلومات المفيدة والرائعة ، واصل رحلة تعليم الصيد المباركة جزاك الله خيرا.

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

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

السلام عليكم ورحمة الله أخي الكريم، للإجابة على طلبك تم تغيير الدالة VLOOKUP بالدوال INDEX و SMALL (مع دوال أخرى) بمعادلة صفيف (التي يجب تأكيدها بالضغط على CTRL+SHIFT+ENTER) وهي صالحة مهما كانت التكرارات... أرجو أن تفي المعادلات الغرض المطلوب... بن علية New Worksheet_3.rar

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

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير مختار حسين محمود على الرابط أعلاه .. شامْبُو اثنين X واحد .. جزاك الله خيرًا و زادها بميزان حسناتك خالص احتراماتي

جميل جدا يا أستاذ محمد عبد السلام بارك الله فيكم هذا الرابط مفيد و له علاقه بموضوعك http://www.officena.net/ib/topic/63770-transparent-userform-فورم-شفاف/ أطلب من الادارة تعديل لعنوان الموضوع الى كود للتحكم فى درجة شفافية الفورم ليصبح العنوان أكثر تعبيرا عن محتواه تحياتى

اللهمّ أبدله داراً خيراً من داره، وأهلاً خيراً من أهله، وأدخله الجنّة، وأعذه من عذاب القبر ومن عذاب النّار اللهمّ عامله بما أنت أهله، ولا تعامله بما هو أهله اللهمّ اجزه عن الإحسان إحساناً وعن الإساءة عفواً وغفراناً اللهمّ إن كان محسناً فزد من حسناته، وإن كان مسيئاً فتجاوز عن سيّئاته اللهمّ أدخله الجنّة من غير مناقشة حساب ولا سابقة عذاب اللهمّ اّنسه في وحدته وفي وحشته وفي غربته اللهمّ أنزله منزلاً مباركاً وأنت خير المنزلين اللهمّ أنزله منازل الصدّيقين والشّهداء والصّالحين، وحسن أولئك رفيقاً اللهمّ اجعل قبره روضةً من رياض الجنّة، ولا تجعله حفرةً من حفر النّار اللهمّ افسح له في قبره مدّ بصره، وافرش قبره من فراش الجنّة اللهمّ أعذه من عذاب القبر، وجفاف ِالأرض عن جنبيها اللهمّ املأ قبره بالرّضا والنّور والفسحة والسّرور اللهمّ إنّه في ذمّتك وحبل جوارك، فقِهِِ فتنة القبر، وعذاب النّار، وأنت أهل الوفاء والحقّ، فاغفر له وارحمه إنّك أنت الغفور الرّحيم اللهمّ إنّه عبدك وابن عبدك خرج من الدّنيا وسعتها ومحبوبها وأحبّائه فيها إلى ظلمة القبر وما هو لاقيه اللهمّ إنّه كان يشهد أنّك لا إله إلّا أنت وأنّ محمّداً عبدك ورسولك وأنت أعلم به اللهمّ إنّا نتوسّل بك إليك، ونقسم بك عليك أن ترحمه ولا تعذّبه، وأن تثبّته عند السؤال اللهمّ إنّه نَزَل بك وأنت خير منزولٍ به، وأصبح فقيراً إلى رحمتك وأنت غنيٌّ عن عذابه اللهمّ آته برحمتك ورضاك، وقهِ فتنة القبر وعذابه، وآته برحمتك الأمن من عذابك حتّى تبعثه إلى جنّتك يا أرحم الرّاحمين اللهمّ انقله من مواطن الدّود وضيق اللحود إلى جنّات الخلود اللهمّ احمه تحت الأرض، واستره يوم العرض، ولا تخزه يوم يبعثون "يوم لا ينفع مالٌ ولا بنون إلّا من أتى الله بقلبٍ سليم" اللهمّ يمّن كتابه، ويسّر حسابه، وثقّل بالحسنات ميزانه، وثبّت على الصّراط أقدامه، وأسكنه في أعلى الجنّات بجوار حبيبك ومصطفاك (صلّى الله عليه وسلّم) اللهمّ أمّنه من فزع يوم القيامة، ومن هول يوم القيامة، واجعل نفسه آمنة مطمئنّة، ولقّنه حجّته اللهمّ اجعله في بطن القبر مطمئنّاً وعند قيام الإشهاد آمن، وبجود رضوانك واثق، وإلى أعلى درجاتك سابق اللهم اجعل عن يمينه نوراً حتّى تبعثه آمناً مطمئنّاً في نورٍ من نورك اللهمّ انظر إليه نظرة رضا، فإنّ من تنظر إليه نظرة رضا لا تعذّبه أبداً اللهمّ أسكنه فسيح الجنان، واغفر له يا رحمن، وارحمه يا رحيم، وتجاوز عمّا تعلم يا عليم، اللهمّ اعف عنه فإنّك القائل "ويعفو عن كثير" اللهمّ إنّه جاء ببابك، وأناخ بجنابك، فَجد عليه بعفوك وإكرامك وجود إحسانك اللهمّ إنّ رحمتك وسعت كلّ شيء فارحمه رحمةً تطمئنّ بها نفسه، وتقرّ بها عينه اللهمّ احشره مع المتّقين إلى الرّحمن وفداً اللهمّ احشره مع أصحاب اليمين، واجعل تحيّته سلامٌ لك من أصحاب اليمين اللهمّ بشّره بقولك "كلوا واشربوا هنيئاً بما أسلفتم في الأيّام الخالية" اللهمّ اجعله من الّذين سعدوا في الجنّة خالدين فيها ما دامت السموات والأرض اللهمّ لا نزكّيه عليك، ولكنّا نحسبه أنّه أمن وعمل صالحاً، فاجعل له جنّتين ذواتي أفنان بحقّ قولك: "ولمن خاف مقام ربّه جنّتان" اللهمّ شفع فيه نبيّنا ومصطفاك، واحشره تحت لوائه، واسقه من يده الشّريفة شربةً هنيئةً لا يظمأ بعدها أبداً اللهمّ اجعله في جنّة الخلد (الّتي وُعد المتقون كانت جزاءً ومصيراُ لهم ما يشاؤون وكان على ربّك وعداُ ومسؤولاً) اللهمّ إنّه صبر على البلاء فلم يجزع، فامنحه درجة الصّابرين الّذين يوفون أجورهم بغير حساب فإنّك القائل " إنّما يوفي الصّابرون أجرهم بغير حساب " اللهمّ إنّه كان مصلّ لك، فثبّته على الصّراط يوم تزل الأقدام اللهمّ إنّه كان صائماً لك، فأدخله الجنّة

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

السلام عليكم انظر الى المشاركة: http://www.officena.net/ib/index.php?showtopic=24484 جعلناه مستقل للفائدة العامة

هو اللى مصمم هنا عن طريق ايه ؟؟؟؟؟؟؟؟؟ form2.rar form2.rar

السلام عليكم ورحمة الله وبركاته,, لعلي فهمت المطلوب عليك التغيير في الكود حسب الطلب. أبوأنس حاجب _____.rar