• 1 Mayıs 2022 tarihinden önce sitemizde kayıtlı bir üyeliğiniz varsa, yeni sistemine giriş yapmak için PAROLAMI UNUTTUM kısmına tıklayıp, e-posta adresinize gelen bağlantıyı kullanarak yeni parola belirlemeniz gerekmektedir.

Asal Sayı Bulma Fonksiyonu

  • Konuyu başlatan admin
  • Başlangıç tarihi
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı isimli kod, bir tarih değerini yazarken gün ve ay bilgisinden sonraki ayracı otomatik olarak kendisi ekler.
Kod:
Function Asalmi(xSayi As Double) As Boolean
 asalmi = False
 If (xSayi < 2) Or ((xSayi Mod 2 = 0) And (xSayi > 3)) Then Exit Function
 
 If (xSayi = 2) Or (xSayi = 3) Then
 asalmi = True
 Exit Function
 End If
 
 Dim i As Long
 For i = 3 To Int(Sqr(xSayi)) + 1 Step 2
 If xSayi Mod i = 0 Then Exit Function
 Next i
 Asalmi = True
 End Function

Uygulama Adımları​

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması​

Bir hücrede yazılı olan bir sayının asal sayı olup olmadığını üstteki kod ile öğrenebilirsiniz. Yapmanız gereken, boş bir hücreye =Asalmi(A1) şeklinde formülü yazmak. A1 olan kısım, sizin sayınızın olduğu hücrenin adresi olarak değişecektir.

Excel formülleri ile sayının asal olup olmadığını öğrenmek istiyorsanız, Excel Asal Sayı Hesaplama dosyamızı indirebilirsiniz.

Faydalanmanız temennisiyle.
 

Benzer İçerikler

B
Cevaplar
7
Görüntüleme
475
52779
5
B
Cevaplar
2
Görüntüleme
294
admin
A
B
Cevaplar
2
Görüntüleme
314
B
A
Cevaplar
0
Görüntüleme
299
admin
A
A
Cevaplar
0
Görüntüleme
121
admin
A
A
Cevaplar
0
Görüntüleme
110
admin
A
A
Cevaplar
0
Görüntüleme
126
admin
A
E
Cevaplar
1
Görüntüleme
68
mehmet230023
M
D
Cevaplar
3
Görüntüleme
128
admin
A
Üst
Konuşma Başlat
Sitemiz ile ilgili tüm soru(n)larınız için hızlı iletişim kurabilirsiniz. Excel sorularınız cevaplanmayacaktır.
Ekip üyelerimizden ilk müsait olan cevap verecektir.