سلام به همه ی دوستان عزیز وقتتون بخیر
معذرت میخوام یه برنامه دارم یا داده هایی که توی عکس ارسال کردم و میخوام این بررسی رو برای صد سری انجام بدم . کدی که مینویسم به این صورت هست .
توی فرمول من اگه inflow رو از نوع دابل تعریف کنم خطای type mismatch رو در خط inflow = "=$E$2+(F2*(A2:A505-$E$2))+(D2:D505*$G$2*(1-$F$2^2)^0.5) دریافت میکنم .
اگه اصلا متغییر inflow رو تعریف نکنم اون خط خطا نمیده اما شر ط رو در نظر نیگیره و مقادیر منفی هم جزء نتایج من نمایش داده میشه .
تورو خدا کمکم کنید
Sub Macro1()
Dim Year, Month, seri As Integer
'Dim inflow As Double
Dim Qy, Vy, M, C, S As Double
For seri = 1 To 100
For Year = 1 To 42
For Month = 1 To 12
inflow = "=$E$2+(F2*(A2:A505-$E$2))+(D2:D505*$G$2*(1-$F$2^2)^0.5)"
If inflow <= 0 Then
inflow = 5.5
End If
Sheet1.Cells((12 * (Year - 1) + Month), seri + 11) = inflow
Next Month
Next Year
Next seri
End Sub
معذرت میخوام یه برنامه دارم یا داده هایی که توی عکس ارسال کردم و میخوام این بررسی رو برای صد سری انجام بدم . کدی که مینویسم به این صورت هست .
توی فرمول من اگه inflow رو از نوع دابل تعریف کنم خطای type mismatch رو در خط inflow = "=$E$2+(F2*(A2:A505-$E$2))+(D2:D505*$G$2*(1-$F$2^2)^0.5) دریافت میکنم .
اگه اصلا متغییر inflow رو تعریف نکنم اون خط خطا نمیده اما شر ط رو در نظر نیگیره و مقادیر منفی هم جزء نتایج من نمایش داده میشه .
تورو خدا کمکم کنید
Sub Macro1()
Dim Year, Month, seri As Integer
'Dim inflow As Double
Dim Qy, Vy, M, C, S As Double
For seri = 1 To 100
For Year = 1 To 42
For Month = 1 To 12
inflow = "=$E$2+(F2*(A2:A505-$E$2))+(D2:D505*$G$2*(1-$F$2^2)^0.5)"
If inflow <= 0 Then
inflow = 5.5
End If
Sheet1.Cells((12 * (Year - 1) + Month), seri + 11) = inflow
Next Month
Next Year
Next seri
End Sub
کامنت