الجمل الشرطية في الملف المرفق محتاجين الى حلها بالكود

[skyblue]

الاساتذة المشرفين والاعضاء الافاضيل

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

الشرح في الملف المرفق .. نأمل التكرم بالمساهمة في الحل

وتحياتي

Book198.rar

[هشام شلبى]

السلام عليكم

===========

اخى skyblue

شاهد المرفق

Book198.rar

[الحسامي]

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

مثالك عبارة عن تطبيق مباشر لحالة if then else العادية

ليست معقدة كثيرة

وهذا المرفق

Book198.rar

[skyblue]

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

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

[هشام شلبى]

السلام عليكم

===========

اخى الحبيب عماد بارك الله فيك

فعلا المتابع لسلسلة دروس "الحسامى " كما اسميتها انا سيجد ان الحل بالاكواد سهل

اخى skyblue

"سامحنى لم اتنبه انك تريد الحل بالكود ولم ارى الحالة الثانية"

وعموما سأكمل الحل بالمعادلات

شاهد المرفق

اخى الحبيب عماد جرب ان تكون d2 = 10

وراقب الحل فى المرفقين "اعلمنى من اين الاختلاف"

Book1198.rar

[الحسامي]

اخي الحبيب والغالي هشام شلبي

حمدا لله على وجود اشخاص في هذا المنتدى

يمتلكون الدقة والانتباه والبراعة في كل شئ

وهذه والله ليست بمجاملة

اما بالنسبة للاختلاف فالخلل عندي حيث لم الاحظ

الشرط الثاني " اي في حالة عدم تحقق الشرط "

ولكن الذي لا يثلج صدري هو عدم انتباه صاحب الموضوع لذلك

وتقبل مودتي وفائــــــــــــــــــــــــــــــق احترامي

اخوك عماد الحسامي

وهذا تعديل للملف السابق

Book198 معدل.rar

[هشام شلبى]

السلام عليكم

===========

اخى الحبيب عماد

تصدقنى لو قلتلك فى نفي اللحظة التى كنت ترفق فيها المرفق الاول فتحت "سلسلة الحسامى" بعد ان ادركت ان صاحب يريد الحل بالاكواد

اخى الحبي انت مدرسة فى الذوق والادب

وكفى حتى لا تفاجئ بى غدا فى "عمان" اقضى معك يومين انت والاخ الحبيب يحيى

تقبل فائق احترامى لشخصكم الكريم وادام الله علينا المحبة والاحترام . وفرق بيننا وبين الكره والغل كما يفرق بين المشرق والمغرب

طاب يومكم فى حفظ الله

[الحسامي]

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

عاشِـرْ أُنَاسـاً بِالـذَّكَـاءِ تَمَيَّـزُوا ….. وَاخْتَـرْ صَدِيقَكَ مِنْ ذَوِي الأَخْـلاقِ

زي ما بحكوها عندكم

دا انتى تأنس وتشرف

وكل عمان مفتوحة الك

اخوك عماد الحسامي

[DR.ZUHAIR]

الاخ : عماد الحسامي

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

جزاهم الله جميعا خير لك اصل للحل وذلك كالتالي:

Sub IFIF()

X = Sheets(1).Range("D2").Value

Y = Sheets(2).Range("F3").Value

Z = Sheets(3).Range("E2").Value

 A = Sheets(1).Range("C7").Value

 B = Sheets(1).Range("D7").Value

 C = Sheets(1).Range("E7").Value


If X + Y > Z Then

 A = 1

 B = 2

 C = 3

Else

 A = 44

 B = 99

 C = 55

End If


End Sub

ولكن المتغيرات A B C في التعبير عن القيم المشار اليهالم تفي بالغرض ،،، ولكن عندما اضع مجال القيمة كاملاً فإن ناتج الحل يكون صحيح أي عندما أضع :

Sheets(1).Range("c7").Value = 1

Sheets(1).Range("d7").Value = 2

Sheets(1).RANGE("e7").Value = 3

ففي رأيكم ما السبب

وبارك الله فيك مقدماً

[الحسامي]

السلام عليكم

اخي الدكتور زهير

a , b , c هي متغيرات , وكما قلت انت اسمها متغيرات اي تتغير من قيمة لقيمة

وهي عبارة عن وعاء يتم حفظ المتغيرات في داخلها

اي في الكود عندك تم:

تخزين ماتحتويه الخلية c7 في المتغير a

تخزين ماتحتويه الخلية D7 في المتغير b

تخزين ماتحتويه الخلية E7 في المتغير c

ومن ثم اخذت هذه المتغيرات القيم التالية

a = 1

b = 2

c = 3

اي ان هذه المتغيرات يتم التعرف اليها على اساس انها قيم سواء كانت رقمية او نصية

ولم يتم التعرف عليها على اساس انها خلايا يتم الطباعة فيها...اي لو تم عمل التالي لكان صحيحا

Sheets(1).Range("c7").Value = A

Sheets(1).Range("d7").Value = B

Sheets(1).RANGE("e7").Value = C

عسى ان اكون قد اوصلت الفكرة بالصورة الصحيحة

[skyblue]

اخي الحبيب والغالي هشام شلبي

حمدا لله على وجود اشخاص في هذا المنتدى

يمتلكون الدقة والانتباه والبراعة في كل شئ

وهذه والله ليست بمجاملة

اما بالنسبة للاختلاف فالخلل عندي حيث لم الاحظ

الشرط الثاني " اي في حالة عدم تحقق الشرط "

ولكن الذي لا يثلج صدري هو عدم انتباه صاحب الموضوع لذلك

وتقبل مودتي وفائــــــــــــــــــــــــــــــق احترامي

اخوك عماد الحسامي

وهذا تعديل للملف السابق

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

ايضا الشكر موصول للحبيب الاستاذ هشام شلبي وفقه الله

[الحسامي]

اخي skyblue

انا لم ولن انتقد اي شخص في هذا المندى

ولم يكن ذلك انتقاد شخصي لك

اما بالنسبة للاحراج لي

فانا انسان , اخطئ واصيب والحمد لله املك الشجاعة

الكافية للاعتراف باخطائي ولا اخجل من هذا الشئ

وبصراحة انا لم انتبه الى الجزء الثاني من السؤال

او بالاحرى التبس على الامر وقرأت كلمة " إلا " بلا

وان كنت قد انزعجت من الملاحظة التي ابديتها انا

فانا اعتذر وانا لم اكن اقصد انتقادك بل على العكس

سررت بموضوعك كثيرا لانه ببساطة تطبيق مباشر على سلسلة

الجمل الشرطة واجزم ان الجميع سيستفيد من موضوعك

ومهما كان انا في الخدمة للجميع

اخوك عماد الحسامي

[زياد علي]

بسم الله

السلام عليكم

الأخوة الأفاضل

عماد الحسامي ،،، هشام شلبي

الله يديم المحبة بينكم يارب ،،، والله يجمنعا بكم في رياض الجنة ،،،

ومتشكرين من الأخ skyblue صاحب السؤال الذي جاء متناغماً مع سلسلة الأستاذ الفاضل عماد الحسامي ،،،

وانا نفسي حقيقة لم انتبه للجزء الثاني من السؤال ،، ولكن الأخ الفاضل هشام ما شاء الله مصحصح ،،،

================================================================

بعد إذن استاذي الفاضل عماد ،،،

الأخ الفاضل دكتور زهير

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

فإنني أوضح لكم أن عملية البرمجة تعمل وفق منهج منطقي ،،،

ففي كودكم المرفق تم تخصيص المتغيرات A B C لتأخذ القيم المشار اليها ،،،

ثم في خطوة لاحقة جُعلت هذه المتغيرات قيماً ثابتة .

وبالتالي فإن الكود لن يستجيب بسبب هذا التعارض ،،،

ولكن ممكن يكون الكود على الشكل التالي :

Sub IFIF()

Dim X As Integer

Dim Y As Integer

Dim Z As Integer

Dim A As Range

Dim B As Range

Dim C As Range

X = Sheets(1).Range("D2").Value

Y = Sheets(2).Range("F3").Value

Z = Sheets(3).Range("E2").Value

Set A = Sheets(1).Range("C7")

Set B = Sheets(1).Range("D7")

Set C = Sheets(1).Range("E7")

If X + Y > Z Then

 A = 1

 B = 2

 C = 3

Else

 A = 44

 B = 99

 C = 55

End If


End Sub

فهنا قمنا بتعريف المتغيرات A B C على أنها متغيرات من نوع كائن المدى أو كائن المجال ثم قمنا بتخصيص المجالات المشار إليها فيما بعد لهذه المتغيرات بإستخدام الجملة SET.

وعذراً على الإطالة ،،، ولكن الضرورة تقتضي التوضيح ،،،

مودتي وتقديري للجميع

[skyblue]

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

واتمنى انني اوضحت لك اللبس في الموضوع .

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

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

تم تعديل مايو 22, 2010 بواسطه skyblue

[زياد علي]

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

ولك من عندي بوسة فوق الراس يطولي عمرك

تحياتي الخاصة لك

،،، صدقت ،،،

[الحسامي]

اخي العزيز زياد

اطال الله عمرك وارضاك واراح الله بالك

الله ينور عليك وكلامك صحيح 100 بالمئة

ومداخلتك أتت في الوقت الصحيح

وسهولة في صياغة المواضيع

بارك الله فيك وجزاك الله الف خير

اخي skyblue

انشاء الله كل الخير

ورجاء :.....

لا تنحرج ابدا من كثر الطلبات بل على العكس اهم شئ يمكن

ان يفيدك او يفيد غيرك هو تعدد الامثلة وتعدد الحالات

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

لا يرون الامثلة حلول مشاكل فردية او شخصية بل اغلبها

تكون حالات عامة قد يستفيد منها الكثير

اخوكم عماد الحسامي

[DR.ZUHAIR]

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

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

اخي العزيز زياد

اطال الله عمرك وارضاك واراح الله بالك

الله ينور عليك وكلامك صحيح 100 بالمئة

ومداخلتك أتت في الوقت الصحيح

وسهولة في صياغة المواضيع

بارك الله فيك وجزاك الله الف خير

جزاكما الله عنا الجنة،،، هذا هو المطلوب تماماً،،،شكرأ شكرأ