[محمد العبيدي]

اسلام الكبابى كتب :جزاكم الله خيرا

ولكن هذا الكود يحتوى على متغيرين اثنين فقط(z,i)
أما الكود الذى أريده فيحتوى على عدة متغيرات عددها=in,......,i3,[size=4]i2,i1) n)
[/size]

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

كود :

Dim Arr() As String
      Dim N As Integer
      N = InputBox("ادخل عدد المتغيرات")
      If Val(N) < 0 Then Exit Sub
      ReDim Arr(Val(N))
      Dim I As Integer
      For I = 0 To N
            Arr(I) = I
      Next