اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تجربتى الأولى مع كتابة الكود


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

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

 

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

 

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

 

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

حل المعادلات.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