Bölünebilme yardımı

[Tankut SAZLI]

Selam;
bir türlü ayarlayamadığım bir formül hakkında yardıma ihtiyacım var.Sorun şu;
bir X değerinin n ile bölümü tamsayı ise a değerini,tamsayı değil ise b değerini kullanmak istiyorum,tabiki macro ile.
Yani;

if x/n...tamsayı ise then
sonuc=a
else
sonuc=b
end if

gibi bir çözüm arıyorum.
Hemen belirteyim X değeri combo yada textbox text değeridir.

 

[veyselemre]

Sub dene()
x = 30
n = 5
a = "tamsayı"
b = "tamsayı değil"
    If x \ n = x / n Then
        sonuc = a
    Else
        sonuc = b
    End If
    MsgBox sonuc
    
End Sub

 

[Tankut SAZLI]

Teşekkür ederim.
\ ile / farkını bilmiyordum öğrenmiş oldum.

 

[Levent Menteşoğlu]

Alternatif,

deg = IIf(Int(x / n) = x / n, a, b)

yada

deg = IIf(x \ n = x / n, a, b)

Not: Sn Veysel beye bu kullanım şeklini hatırlatması için teşekküler.

 

[Tankut SAZLI]

Sayın Levent bey sizede çok teşekkür ederim.

 

[aliakgul]

deg = IIf(x \ n = x / n, a, b)[/code]

Not: Sn Veysel beye bu kullanım şeklini hatırlatması için teşekküler.

Bunu biraz daha açar mısınız?