[حل شده] افزایش عدد چهار ردیف در یک ستون

[amir0914]

سلام دوستان با حلقه for برنامه ای میخوام که در یک ستون تا ردیف 200 هر 4 تا ردیف به ترتیب با 10 جمع شود..مثلا ردیف 1 تا 4 مقدارش 10 شود و ردیف 5 تا 8 مقدارش 20 شود و ردیف 8 تا 11 مقدارش 30 شود و تا ردیف 200 مقدار هر 4 ردیف بااضافه 10 شود. متاسفانه نتونستم. ممنون میشم کمکم کنین

[amir_ts]

با سلام
کد زیر را امتحان کنید....

[LEFT]



 Sub test()
 Dim i As Integer
 
 For i = 1 To 200
      Range("f" & i).Value = Evaluate("INT(((" & i & " -1)/4))*10+10")


 Next i
 
 End Sub[/LEFT]