اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

أساتذتي الأفاضل

 

السلام عليكم ورحمة الله وبركاته

 

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

 

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

حل المعادلات.rar

قام بنشر

الاخت ام عبدالله

اولا انا متابع لمواضيعك واعمالك وفى انتظار كل جديد

ثانيا تم تعديل العنوان باضافة حرف الباء

بناء على كلام الاخ العزيز سعيد بيرم

قام بنشر

الأخت الفاضلة / أم عبد الله

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

بداية موفقة والى مزيد من التقدم فى ظل هذه الارادة القوية

قام بنشر

السلام عليكم

الاستاذة الفاضلة / أم عبد الله

بارك الله فيكي

ما شاء الله في تقدم مستمر وسريع

والعزيمة والاصرار هما السبب .. وفقك الله

ومن تقدم الي تقدم دائما

وجميل جدا ان تقومي بتسجيل الماكرو لما تريدين وتقومي بوضع الكود بطريقتك ... راائع

جزاك الله خيرا

قام بنشر

أستاذنا الفاضل / رجب جاويش

 

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

قام بنشر

أستاذنا الفاضل ملك المعادلات / جمال عبد السميع

 

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

قام بنشر (معدل)

أستاذنا الفاضل / حمادة عمر

 

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

تم تعديل بواسطه أم عبد الله
قام بنشر

اختنا  الكريمة والاستاذة / ام عبدالله

من تقدم الي تقدم ان شاء الله

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

زادك الله معرفة وعلما وبارك الله فيك وجزاك خيرا

وجعل اعمالك صدقة جارية لك

تقبلي تحياتي

قام بنشر (معدل)

السلام عليكم 

اختي أم عبدالله 

بداية موفقة واود أن أقول لك بأن رحلة الألف ميل تبداء بخطوة 

 

 

كان الأفضل مسح الماكرو المسجل لاني لم انتبه لزر الأمر الا متأخر 

 

 

ولمزيد من الحركات هذه صيغة أخرى بالكود

 

Sub RR3()
MsgBox "الجواب يساوي " & -([F6] / [C6])
End Sub

تم تعديل بواسطه عبدالله المجرب
قام بنشر

السلام عليكم 

قمت بتعديل الكود الثاني وذلك للاستغناء عن الخلايا المساعدة 

Private Sub CommandButton2_Click()

If ([Q6] ^ 2) - (4 * [N6*T6]) > 0 Then
[Q10] = (-[Q6] + Sqr(([Q6] ^ 2) - (4 * [N6*T6]))) / [2*N6]
[S10] = (-[Q6] - Sqr(([Q6] ^ 2) - (4 * [N6*T6]))) / [2*N6]

ElseIf ([Q6] ^ 2) - (4 * [N6*T6]) = 0 Then
[Q10] = [-Q6] / [2*N6]
[S10] = [-Q6] / [2*N6]

Else
[Q10] = "ليس لها حل حقيقي"
[S10] = "ليس لها حل حقيقي"

End If
End Sub
قام بنشر

أستاذنا الكبير / عبد الله المجرب

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information