كيف يتم تنفيذ حلقة الدوران هذه ؟؟

[رائد 1982]

كيف يمكن تنفيذ هذه الحلقة التكرارية لطبع هذا الفورم ( وامر الطباعة هنا كمثال حيث سيتم وضع اي اجراء مثلا )

مثلا كل مرة يأخذ التكست بوكس قيمة خلية معينة من a1 الي a120

وكل مرة عن الطباعة يكون فيها الاسم مختلف ( بالتتالي )

ولقد استخدمت هذا الكود ولكنه يخرج لي بخطأ في النهاية ولا يظهر ولا ينفذ الا الخلية الاولي

فما هو الخطأ فيه ... وكيف يتم تنفيذ هذا الامر

Sheets("Sheet1").Select
For i = 1 To 120
i = Cells(i, 1).Value
TextBox1.Value = i
Me.PrintForm
i = i + 1
Next i

في انتظار ردكم اساتذتي الكرام

حلقة دوران.rar

تم تعديل مارس 21, 2014 بواسطه رائد 1982

[بن علية حاجي]

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

 

أخي الكريم رائد، يمكن أن يكون الكود الخاص بزر CommandButton1 (بالفورم) كالتالي :

Private Sub CommandButton1_Click()
Dim I As Integer
  For I = 1 To 120
    TextBox1.Value = Cells(I, 1).Value
    Me.PrintForm
  Next I
End Sub

وقد وضعته بملفك في المرفقات... أرجو أن يكون هذا المطلوب...

 

أخوك بن علية

 

المرفق : حلقة دوران.rar

[رائد 1982]

راائع استاذي القدير / بن عليه

 

ولي استفساران

1- اين كان مكمن الخطأ في الكود الاول وهل لا يمكن استخدامه بهذه الطريقة .. ولماذا ؟

2- هل يمكن لي وضع اي امر بدلا من الطباعة في هذا الكود مثلا نسخ نطاق او ما شابه بناءا علي قيمة التكست بوكس ام سيكون الامر مختلف

 

وعذرا لكثرة طلباتي حيث انني اريد التعلم منكم

لك مني ارق التحيات والتشكرات

تم تعديل مارس 21, 2014 بواسطه رائد 1982