6 'nın katları

[tamer42]

Merhabalar;

Bir hücre içerisindeki değerin 6 'nın katları (6,12,18,24,.........) olup olmadığını kod yazarak nasıl kontrol edebiliriz,

eğer doğruyasa 1, yalışsa 0 verecek şekilde,

İyi Çalışmalar dilerim...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. A1 hücresindeki değere bakar ve sonucu A2 hücresine yazar.

[vb:1:f2d2f61e64]Sub ac()
[a2]=0
If [a1] Mod 6 = 0 Then [a2]= 1
End Sub[/vb:1:f2d2f61e64]

 

[iggydarsa]

A1 hucresindeki degerin 6nin kati olup olmadigini B1'de gostermesini istiyorsaniz, B1'e sunu yazin:

=IF(MOD(A1, 6)=0, 1, 0)

B1'e, Eger A1 6'nin katiysa "1", degilse "0" yazacaktir

 

[Haluk]

A1 hucresi için;

     MsgBox IIf((Range("A1") Mod 6 = 0), 1, 0)

 

[Haluk]

ehehe.... amma yavaşım yahu :mrgreen:

 

[tamer42]

çok teşekkürler...