skyblue قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 الاساتذة المشرفين والاعضاء الافاضيل السلام عليكم ورحمة الله وبركاته وبعد : الشرح في الملف المرفق .. نأمل التكرم بالمساهمة في الحل وتحياتي Book198.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 السلام عليكم =========== اخى skyblue شاهد المرفق Book198.rar رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 السلام عليكم ورحمة الله وبركاته مثالك عبارة عن تطبيق مباشر لحالة if then else العادية ليست معقدة كثيرة وهذا المرفق Book198.rar رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 21, 2010 الكاتب مشاركة قام بنشر مايو 21, 2010 مشكوووووووووووووووور الله يوفقك استاذ عماد .. فعلا انا بحاجة الى هذا الكود جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 السلام عليكم =========== اخى الحبيب عماد بارك الله فيك فعلا المتابع لسلسلة دروس "الحسامى " كما اسميتها انا سيجد ان الحل بالاكواد سهل اخى skyblue "سامحنى لم اتنبه انك تريد الحل بالكود ولم ارى الحالة الثانية" وعموما سأكمل الحل بالمعادلات شاهد المرفق اخى الحبيب عماد جرب ان تكون d2 = 10 وراقب الحل فى المرفقين "اعلمنى من اين الاختلاف" Book1198.rar رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 اخي الحبيب والغالي هشام شلبي حمدا لله على وجود اشخاص في هذا المنتدى يمتلكون الدقة والانتباه والبراعة في كل شئ وهذه والله ليست بمجاملة اما بالنسبة للاختلاف فالخلل عندي حيث لم الاحظ الشرط الثاني " اي في حالة عدم تحقق الشرط " ولكن الذي لا يثلج صدري هو عدم انتباه صاحب الموضوع لذلك وتقبل مودتي وفائــــــــــــــــــــــــــــــق احترامي اخوك عماد الحسامي وهذا تعديل للملف السابق Book198 معدل.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 السلام عليكم =========== اخى الحبيب عماد تصدقنى لو قلتلك فى نفي اللحظة التى كنت ترفق فيها المرفق الاول فتحت "سلسلة الحسامى" بعد ان ادركت ان صاحب يريد الحل بالاكواد اخى الحبي انت مدرسة فى الذوق والادب وكفى حتى لا تفاجئ بى غدا فى "عمان" اقضى معك يومين انت والاخ الحبيب يحيى تقبل فائق احترامى لشخصكم الكريم وادام الله علينا المحبة والاحترام . وفرق بيننا وبين الكره والغل كما يفرق بين المشرق والمغرب طاب يومكم فى حفظ الله رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 السلام عليكم ورحمة الله وبركاته عاشِـرْ أُنَاسـاً بِالـذَّكَـاءِ تَمَيَّـزُوا ….. وَاخْتَـرْ صَدِيقَكَ مِنْ ذَوِي الأَخْـلاقِ زي ما بحكوها عندكم دا انتى تأنس وتشرف وكل عمان مفتوحة الك اخوك عماد الحسامي رابط هذا التعليق شارك More sharing options...
DR.ZUHAIR قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 الاخ : عماد الحسامي مشكور والله على ماتقدمه من معلومات طيبة لاخوانك بالمنتدى جعلها الله في ميزان حسناتك ولكن لوسمحت عندي سؤال لقد جربت كودك المرفق ومن بعض ما تعلتمه من الاخوة الاخرين جزاهم الله جميعا خير لك اصل للحل وذلك كالتالي: 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 ففي رأيكم ما السبب وبارك الله فيك مقدماً رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 السلام عليكم اخي الدكتور زهير 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 عسى ان اكون قد اوصلت الفكرة بالصورة الصحيحة رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 21, 2010 الكاتب مشاركة قام بنشر مايو 21, 2010 اخي الحبيب والغالي هشام شلبي حمدا لله على وجود اشخاص في هذا المنتدى يمتلكون الدقة والانتباه والبراعة في كل شئ وهذه والله ليست بمجاملة اما بالنسبة للاختلاف فالخلل عندي حيث لم الاحظ الشرط الثاني " اي في حالة عدم تحقق الشرط " ولكن الذي لا يثلج صدري هو عدم انتباه صاحب الموضوع لذلك وتقبل مودتي وفائــــــــــــــــــــــــــــــق احترامي اخوك عماد الحسامي وهذا تعديل للملف السابق استاذ عماد الحسامي اولا اريد ان اوضح لكم انني والله العظيم انتبهت بعدم وجود الشرط الثاني ولكن حسيت نوعا من الاحراج ان اعيد واسالك عنه مرة ثانية فانت مشكور انجزت لي الموضوع بنسبة 99% وعرفتني كيفية انشاء مثل تلك الاكواد في الحالات الشرطية ... والباقي من المفترض ان اعمله وبالفعل قمت بالرجوع الا مواضعيك المثبته حول الجمل الشرطية فقمت بعمل else ثم نسخت تحقق الشرط الاول وعدت الارقام وتم بنجاح .لك مني كل الشكر والتقدير والدعاء . ايضا الشكر موصول للحبيب الاستاذ هشام شلبي وفقه الله رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 21, 2010 مشاركة قام بنشر مايو 21, 2010 اخي skyblue انا لم ولن انتقد اي شخص في هذا المندى ولم يكن ذلك انتقاد شخصي لك اما بالنسبة للاحراج لي فانا انسان , اخطئ واصيب والحمد لله املك الشجاعة الكافية للاعتراف باخطائي ولا اخجل من هذا الشئ وبصراحة انا لم انتبه الى الجزء الثاني من السؤال او بالاحرى التبس على الامر وقرأت كلمة " إلا " بلا وان كنت قد انزعجت من الملاحظة التي ابديتها انا فانا اعتذر وانا لم اكن اقصد انتقادك بل على العكس سررت بموضوعك كثيرا لانه ببساطة تطبيق مباشر على سلسلة الجمل الشرطة واجزم ان الجميع سيستفيد من موضوعك ومهما كان انا في الخدمة للجميع اخوك عماد الحسامي رابط هذا التعليق شارك More sharing options...
زياد علي قام بنشر مايو 22, 2010 مشاركة قام بنشر مايو 22, 2010 بسم الله السلام عليكم الأخوة الأفاضل عماد الحسامي ،،، هشام شلبي الله يديم المحبة بينكم يارب ،،، والله يجمنعا بكم في رياض الجنة ،،، ومتشكرين من الأخ 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. وعذراً على الإطالة ،،، ولكن الضرورة تقتضي التوضيح ،،، مودتي وتقديري للجميع رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 22, 2010 الكاتب مشاركة قام بنشر مايو 22, 2010 (معدل) استاذ عماد الحسامي والله العظيم الذي لااله الا هو انني لم انزعج من كلامك وبالعكس انت لم تنتقدني وحتى ولو انتقدتني شخصيا لن ازعل لانني اكن لمن علمني كل الاحترام والتقدير .اما بالنسبة للاحراج فانا لم أقصد ان احرجك انت بذاتك ولكن انا منحرج انني كثرت الطلبات عليك . واتمنى انني اوضحت لك اللبس في الموضوع . انت استاذ كبير ومكسب للمنتدى سيستفيد الجميع من تمكنك الرائع في الاكواد . ولك من عندي بوسة فوق الراس يطولي عمرك ... تحياتي الخاصة لك تم تعديل مايو 22, 2010 بواسطه skyblue رابط هذا التعليق شارك More sharing options...
زياد علي قام بنشر مايو 22, 2010 مشاركة قام بنشر مايو 22, 2010 انت استاذ كبير ومكسب للمنتدى سيستفيد الجميع من تمكنك الرائع في الاكواد . ولك من عندي بوسة فوق الراس يطولي عمرك تحياتي الخاصة لك ،،، صدقت ،،، رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 22, 2010 مشاركة قام بنشر مايو 22, 2010 اخي العزيز زياد اطال الله عمرك وارضاك واراح الله بالك الله ينور عليك وكلامك صحيح 100 بالمئة ومداخلتك أتت في الوقت الصحيح وسهولة في صياغة المواضيع بارك الله فيك وجزاك الله الف خير اخي skyblue انشاء الله كل الخير ورجاء :..... لا تنحرج ابدا من كثر الطلبات بل على العكس اهم شئ يمكن ان يفيدك او يفيد غيرك هو تعدد الامثلة وتعدد الحالات وبصراحة اتوقع كل الذين يشاركون في هذه المنتدى لا يرون الامثلة حلول مشاكل فردية او شخصية بل اغلبها تكون حالات عامة قد يستفيد منها الكثير اخوكم عماد الحسامي رابط هذا التعليق شارك More sharing options...
DR.ZUHAIR قام بنشر مايو 22, 2010 مشاركة قام بنشر مايو 22, 2010 استاذ عماد الحسامي انت استاذ كبير ومكسب للمنتدى سيستفيد الجميع من تمكنك الرائع في الاكواد . ولك من عندي بوسة فوق الراس يطولي عمرك ... تحياتي الخاصة لك اخي العزيز زياد اطال الله عمرك وارضاك واراح الله بالك الله ينور عليك وكلامك صحيح 100 بالمئة ومداخلتك أتت في الوقت الصحيح وسهولة في صياغة المواضيع بارك الله فيك وجزاك الله الف خير جزاكما الله عنا الجنة،،، هذا هو المطلوب تماماً،،،شكرأ شكرأ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.