إرجوا من خبرا الاكواد الدخول

[زرنيط]

فيه كود في الملف المرفق ارجوا شرحه لي بالتفصيل الممل علماً انه من إنتاج مشرفنا الغالي ودمتم في حفظ ورعاية الله.

_______.rar

تم تعديل يناير 21, 2009 بواسطه زرنيط

[عادل حنفي]

السلام عليكم

اخي العزيز مرفق الملف بالشرح

تحياتي

_______.rar

[زرنيط]

سلمت يداك يا مشرفنـــا

For i = 3 To 8

If Cells(i, 2) = "سعودي" Then

With Sheets("دول الخليج").Columns(1).Rows(32).End(xlUp)

.Offset(1, 0) = Cells(i, 1)

لماذا تستخدم كلمة For i هل تدل على شيئ معين

وإيضا ًIf Cells(i, 2) = "سعودي" Then لان فيــه عندي الملف عدة اكوال نفس الكود هذا بس يتغير من For i إلى For n و For m

معليش اتعبتك معي __ اسال الله العلي القدير رب العرش العظيم ان يرزقك من فضله ويزيدك علماً ويحشرك مع الابرار يوم القيامـه.

تم تعديل يناير 21, 2009 بواسطه زرنيط

[عادل حنفي]

السلام عليكم

اخي العزيز

بدلا من ان يعمل الكود لكل صف

ونقول بالكود طبعا الصف الاول اعمل كذا و كذا

ثم الصف الثاني وهكذا الي نهاية الصفوف

فاننا نرمز للصف ب i و نعرف الكود علي الصفوف التي سنعمل عليها ليكررها بنفسه

لذا نقول for i = 3 to 8 او for n=3 to8 او for m= 3 to 8

و كذلك الامر بالنسبة للخليه بدلا ان اقول B3 مثلا ثم B4 و اكرر اجعل الكود

هو الذي يكرر الصف الذي اريده و الخلية التي اريده

و ايضا هناك حالات تجد فيها for i و for n في نفس الوقت ذلك لانك عندما تذكر الاولي

عندما تحتاجها لعمل شئ اخر لابد من تغيير الحرف لا الحرف تم حجزه في بداية الكود

المهم ارجو ان اكون قادر ان اوصل الفكره

عموما لو فيه اي شيئ اسال علي طول

و متحسسش نفسك انك تائه فمرة وراء مره تجد نفسك فاهم فلا تتعجل

تحياتي

تم تعديل يناير 21, 2009 بواسطه aah_aah2008

[زرنيط]

مشكووور وصلت المعلومـــه الله يحفضك