خروجی برنامه تشخیص عدد زوج و فرد در msg box

[میثم66]

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

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

خروجی باید به این صورت باشه مثلا

14=zoj
15=fard
16=zoj
17=fard
18=zoj
19=fard
20=zoj
21=fard
22=zoj
23=fard 

[Amir Ghasemiyan]

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

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

خروجی باید به این صورت باشه مثلا

14=zoj
15=fard
16=zoj
17=fard
18=zoj
19=fard
20=zoj
21=fard
22=zoj
23=fard 

سلام دوست عزيز
شما كافيه هرجا عبارت Cells(i, 2) = ديدين حذف كنيد و بجاش msgbox رو قرار بدين

[Amir Ghasemiyan]

البته اگه ميخواين همه اعداد رو يكجا نشون بده بايد از كد زير كمك بگيرين

Sub zoj_fard()
For i = 1 To 10
n = Cells(i, 1)
j = n \ 2
If 0 = n - j * 2 Then
mytext = mytext & n & " = zoj" & vbNewLine
Else
mytext = mytext & n & " = fard" & vbNewLine
End If
Next i
MsgBox mytext
End Sub