خطا غى عمل كود

[إبراهيم ابوليله]

الاخوه الكرام

ارجو المساعده فى تصحيح

الخطأ الذى يحدث فى الكود

 

كود.rar

[أبو حنــــين]

السلام عليكم

اخي ابراهيم الكود يصبح بالطريقة التالية

Sub HMA()
For H = 1 To 9
Sheet2.Cells(3, 9 + H) = H
Next H

End Sub

[إبراهيم ابوليله]

اخى ابو حنين

اولا مشكورا على الرد والاهتمام

بارك الله فيك

--------------------------------

ثانيا الفكره دى انا عارفها

-------------------------------

كما يمكن استخدام

Sub HMA()
On Error Resume Next
For H = 1 To 9
Cells(3, H).Offset(0, 9) = H

Next H
End Sub

ولكنى كنت اريد ان اعرف هل يمكن عمل ذلك

عن طريق

استخدام FOR

لمرتين

[عبدالله باقشير]

ولكنى كنت اريد ان اعرف هل يمكن عمل ذلك

عن طريق

استخدام FOR

لمرتين

 

غير مفهوم

هل تريد الناتج على صفين ؟؟

[أبو حنــــين]

السلام عليكم

كما ذكر اخي عبد الله

السؤال غير مفهوم

و ما الغرض من تكرار For  طالما ان عدم تكرارها يؤدي المطلوب

 

 

 

تم تعديل مارس 20, 2014 بواسطه أبو حنين

[شوقي ربيع]

 

ولكنى كنت اريد ان اعرف هل يمكن عمل ذلك

عن طريق

استخدام FOR

لمرتين

السلام عليكم

بعد اذن الاستاذين القديرين ابو حنين وعبد الله باقشير

وحسب فهمي لسؤال الاخ ابو ليله

فان مايريد تحقيقه بدمج الحلقتين لن يعطي نتيجة

لان كل ماتفعله الحلقة الثانية هو تكرار لمتغير الحلقة الاولى بعدد طول الحلقة الثانية والنتيجة ستكون  اخر الحلقة الاولى دوما

[إبراهيم ابوليله]

 

 

ولكنى كنت اريد ان اعرف هل يمكن عمل ذلك

عن طريق

استخدام FOR

لمرتين

السلام عليكم

بعد اذن الاستاذين القديرين ابو حنين وعبد الله باقشير

وحسب فهمي لسؤال الاخ ابو ليله

فان مايريد تحقيقه بدمج الحلقتين لن يعطي نتيجة

لان كل ماتفعله الحلقة الثانية هو تكرار لمتغير الحلقة الاولى بعدد طول الحلقة الثانية والنتيجة ستكون  اخر الحلقة الاولى دوما

 

اخى شوقى بالفعل

حاولت وما كان يحدث هو تكرار الرقم الاخير

والان اقتنعت بكلامك الجميل

 

وكلام استاذنا ابو حنين

انه لاداعى لتكرار for

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

[إبراهيم ابوليله]

الاخوه الافاضل

وقد توصلت ايضا لطريقه اخرى

Sub HMA()
x = 10
For h = 1 To 9

Cells(3, x) = h
x = x + 1
Next
End Sub