استفاده از دستور if

[میثم66]

برنامه ای نوشتم تو vba برای مشخص کردن زوج یا فرد بودن عدد ورودی ولی هر عددی وارد میکنی خروجی فقط مینویسه فرد.اشکالش کجاست؟

Sub bb()
n = Cells(1, 1)
For i = 0 To n
If 0 = n - 2 * i Then
Cells(1, 2) = "zoj"
Else
Cells(1, 2) = "fard"
End If
Next i
End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[misammisam]

راهها و برنامه های دیگری هم برای اینکه عدد زوجه میتونی بنویسی ، ولی اگه میخوای با همین روش منفی کردن بدست بیاری باید اینطوری بنوییش :

Private Sub CommandButton1_Click()
n = Cells(1, 1)
For i = 0 To n / 2
If n = 0 Then
Cells(1, 2) = "zoj"
Else
Cells(1, 2) = "fard"
End If
n = n - 2
Next i
End Sub 

[میثم66]

راهها و برنامه های دیگری هم برای اینکه عدد زوجه میتونی بنویسی ، ولی اگه میخوای با همین روش منفی کردن بدست بیاری باید اینطوری بنوییش :

Private Sub CommandButton1_Click()
n = Cells(1, 1)
For i = 0 To n / 2
If n = 0 Then
Cells(1, 2) = "zoj"
Else
Cells(1, 2) = "fard"
End If
n = n - 2
Next i
End Sub 

ممنون از شما من اینو از این طریقم تونستم حل کنم

sub ()
n=cells(1,1)
i=n\2
if 0=n-i*2 then
cells(1,2)="zoj"
else
cells(1,2)="fard"
end if
end sub 

[میثم66]

یه برنامه دیگه هم من مشکل دارم اینه که باید 10 عدد را از روی اکسل گرفته و اعداد زوج و فرد را مشخص کند و بصورت جداگانه چاپ کند. من در اکسل در اولین ستون تا ردیف دهم 10 تا عدد مختلف نوشتم بعد این برنامه رو نوشتم ولی همه رو زوج مینویسه .نمیدونم اشکالش چیه .

Sub ddd()
n = Range("A1:A10")
For n = 1 To 10
i = n \ 2
If 0 = n - i * 2 Then
Range("B1:B10") = "zoj"
Else
Range("B1:B10") = "fard"
End If
Next n
End Sub