asal sayı bulma fonksiyon

[emrebengul]

merhaba

A1 sütununa 2,3,5,7,11 vs yani asal sayıları yazdığımda b1 sütununa asal sayı olduğunu, 2 4 6 8 9 gibi asal olmayan sayıları yazdığımda Asal sayı değildir. Yapmak istiyorum fakat bir türlü yapamadım yardımcı olur musunuz?

 

[muratboz06]

Deneyiniz.

Function AsalSayıMı(Numb As Single) As Boolean
'Updateby Extendoffice 20160614
    Dim X As Long
    If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
     Or Numb <> Int(Numb) Then Exit Function
    For X = 3 To Sqr(Numb) Step 2
        If Numb Mod X = 0 Then Exit Function
    Next
    AsalSayıMı= True
End Function

How to check if the number is prime number in Excel?

www.extendoffice.com

 

[leguminosea]

Dizi formülüdür.
B2 ye yapıştırın ve,
(Ctrl+Shift+Enter) ile formülü tamamlayıp, aşağı doğru çoğaltın.

=EĞER(A1="";"";EĞER(A1>1;EĞER(YADA(A1=2;TOPLA(EĞER(TAMSAYI(A1/--SATIR(KAYDIR($A$2;;;A1-2)))=A1/--SATIR(KAYDIR($A$2;;;A1-2));1;0))=0);"ASAL";"ASAL DEĞİL");"ASAL DEĞİL"))

 

[leguminosea]

Üstteki hatalı oldu;
Doğrusu altta.

=EĞER(A1="";"";EĞER(A1=2;"ASAL";EĞER(YADA(A1<2;TOPLA(EĞER(TAMSAYI(A1/--SATIR(KAYDIR($A$2;;;A1-2)))=A1/--SATIR(KAYDIR($A$2;;;A1-2));1;0))>0);"ASAL DEĞİL";"ASAL")))

 

[Merhum İdris SERDAR]

.

Buradaki formülü kullanın.

=EĞER(YADA(A1=2;A1=3);"Asal Sayıdır.";EĞER(VE((MOD(A1;SATIR(DOLAYLI("2:"&A1-1)))<>0));"Asal Sayıdır.";"Asal Sayı Değildir."))

Aslında bu dosyada bu konuda daha çok formül örneği var. İnceleyin.

ASAL ÇARPANLARA AYIRMA VE ASAL SAYILAR – Excel Gurusu

.

 

[Murat OSMA]

Buradaki formülü kullanın.

=EĞER(YADA(A1=2;A1=3);"Asal Sayıdır.";EĞER(VE((MOD(A1;SATIR(DOLAYLI("2:"&A1-1)))<>0));"Asal Sayıdır.";"Asal Sayı Değildir."))

@idris Bey selâmlar, formülde 1'i de "Asal Sayıdır" olarak sonuç döndürüyor.
Bildiğim kadarıyla Asal Sayı; kendinden ve 1'den başka sayıya tam bölünemeyen 1'den büyük sayılara denir.

 

[Merhum İdris SERDAR]

.

Murat bey,

Tamamen haklısınız.

1 Asal sayı değildir. Formülü düzelttim.

Teşekkür ederim.