[حل شده] تشخیص اعداد زوج و فرد در vba

[میثم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 

[Amir Ghasemiyan]

سلام دوست عزيز
كد شما رو به اين صورت اصلاح كردم

Sub ddd()For Each cel In Range("A1:A10")
If (cel.Value Mod 2) = 0 Then
    cel.Offset(0, 1).Value = "zoj"
Else
    cel.Offset(0, 1).Value = "fard"
End If
Next cel
End Sub

[میثم66]

ممنون ولی اینجوری به ما یاد ندادن اگر ما از cel.Offset و mod استفاده نکنیم و عدد زوج به این صورت که من نوشتم باشه مثلا اگر i خارج قسمت تقسیم عدد بر 2 باشه انگاه باقیمانده اون عدد که صفر است مساوی است با خود عدد منهای خارج قسمت ضربدر 2 در این حالت عدد زوج است .
روشهای دیگه حلش چجوریه .

[Amir Ghasemiyan]

ممنون ولی اینجوری به ما یاد ندادن اگر ما از cel.Offset و mod استفاده نکنیم و عدد زوج به این صورت که من نوشتم باشه مثلا اگر i خارج قسمت تقسیم عدد بر 2 باشه انگاه باقیمانده اون عدد که صفر است مساوی است با خود عدد منهای خارج قسمت ضربدر 2 در این حالت عدد زوج است .
روشهای دیگه حلش چجوریه .

راه هاي رسيدن به خدا به تعداد عدد آدم هاست
بفرماييد اين هم بدون آفست و مود

Sub ddd()
For i = 1 To 3
    num = Range("A" & i).Value
    dev = num \ 2
    If num = dev * 2 Then
        Range("B" & i).Value = "zoj"
    Else
         Range("B" & i).Value = "fard"
    End If
Next i
End Sub

[میثم66]

راه هاي رسيدن به خدا به تعداد عدد آدم هاست
بفرماييد اين هم بدون آفست و مود

Sub ddd()
For i = 1 To 3
    num = Range("A" & i).Value
    dev = num \ 2
    If num = dev * 2 Then
        Range("B" & i).Value = "zoj"
    Else
         Range("B" & i).Value = "fard"
    End If
Next i
End Sub

مهندس من یه روش ساده تر میخوام .یکی که برنامه نویسی مقدماتی vba خونده .در اون حد. چون استاد مون اینجوری به ما نگفته .نگاه کن استادمون این تمرین چجوری حل کرد.

sub bbb()
m=5
n=2
w=m/n
k=m\n
z=m-k*n
cells(1,1)=w
cells(1,2)=k
cells(1,3)=z 

w تقسیم k خارج قسمت z باقیمانده هست.
اینجارو نگاه کن .برنامه ای بنویسید که مشخص کند عدد ورودی زوج است یا فرد . من اینو اینجوری حل کردم.

sub bbb()
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 

من میخوام این یکی هم اینجوری حل بشه.

[Amir Ghasemiyan]

مهندس من یه روش ساده تر میخوام .یکی که برنامه نویسی مقدماتی vba خونده .در اون حد. چون استاد مون اینجوری به ما نگفته .نگاه کن استادمون این تمرین چجوری حل کرد.

sub bbb()
m=5
n=2
w=m/n
k=m\n
z=m-k*n
cells(1,1)=w
cells(1,2)=k
cells(1,3)=z 

w تقسیم k خارج قسمت z باقیمانده هست.
اینجارو نگاه کن .برنامه ای بنویسید که مشخص کند عدد ورودی زوج است یا فرد . من اینو اینجوری حل کردم.

sub bbb()
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 

من میخوام این یکی هم اینجوری حل بشه.

باور كنيد چيزي كه من براتون فرستادم بسيار بسيار ساده و پيش پا افتادست. اما در هر صورت من با همين روشي كه شما نوشتين مينويسم:

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

[meisammb1366]

ممنون همینو میخواستم دستت درد نکنه

[Amir Ghasemiyan]

ممنون همینو میخواستم دستت درد نکنه

خواهش ميكنم
پس لطفا تاپيك رو حل شده كنيد