مشکل در VBA

[aref16]

سلام

دوستان من چند تا مشکل در VBA داشتم ممنون میشم کمکم کنید

[aref16]

این سوالم در مورد FOR هستش

و قرار گرفتن NEXT در کجای حل هستش


مثال)برنامه ای بنویسید که مجموع اعداد از یک تا ده را بنویسد
sub test()
for i = 1 to 10
sum=sum+i
msgbox sum
next
end sub
توی مثال بالایی next رو بعد از msgbox هستش ولی توی مثال پایینی
برنامه ای بنویسید که محموع سری زیر را بدست اورد؟

x=inputbox("enter x
for i = 1 to 10
y=y+1/i*(x-1)^i/x
next
msgbox sum
end sub

خب چرا جای NEXT توی مثال های بالایی فرق کرده ؟

[aref16]

سلام

برنامه ای بنویسید که sinx را از سری زیر بدست اورده و با جواب ماشین حساب مقایسه کند؟

Sub test3()
x = Cells(1, 1)
For i = 1 To 100 Step 4
Fact = 1
For j = 1 To i
Fact = Fact * j
Next j
sum1 = sum1 + x ^ i / Fact
Next i
For i = 3 To 100 Step 4
Fact = 1
For j = 1 To i
Fact = Fact * j
Next j
sum2 = sum2 + x ^ i / Fact
Next i
Sum = sum1 - sum2
Cells(3, 1) = Sum
End Sub

خوشحال میشم مثال بالا رو کاملا توضیح بده