Ana içeriğe atla

Excel'de verilen iki sayı arasındaki tüm asal sayılar nasıl oluşturulur?

Excel'de, verilen iki sayı arasındaki tüm asal sayıları listelemeyi hiç denediniz mi? Bu yazıda, bu görevin üstesinden gelmek için bazı ilginç yöntemlerden bahsedeceğim.

Formüller ile verilen iki sayı arasındaki tüm asal sayıları oluşturun

Kullanıcı Tanımlı İşlev ile verilen iki sayı arasındaki tüm asal sayıları oluşturun

ok mavi sağ balon Formüller ile verilen iki sayı arasındaki tüm asal sayıları oluşturun

Birleştirerek Adı Tanımla fonksiyon ve formüllerde, iki belirli sayı arasındaki tüm asal sayıları listeleyebilir veya üretebilirsiniz. Lütfen aşağıdaki işlemleri yapın:

1. Lütfen tıklayarak ilk aralık adını oluşturun Formüller > İsim YöneticisiVe içinde İsim Yöneticisi iletişim kutusunu tıklayın yeni düğmesi, ekran görüntüsüne bakın:

doc listesi asal sayılar 1

2. In Yeni isim iletişim kutusunda, Name metin kutusu, lütfen girin vMb aralık adı olarak ve ardından şu formülü girin: = SATIR (DOLAYLI (Sayfa1! $ B $ 1 & ":" & Sayfa1! $ B $ 2)) (Sheet1 şu an kullandığınız çalışma sayfanız mı, B1 ve B2 belirttiğiniz başlangıç ​​ve bitiş numaralarıdır) Anlamına gelir metin kutusu, ardından tıklayın OK Önceki iletişim kutusuna dönmek için düğmesine basın. Ekran görüntüsüne bakın:

doc listesi asal sayılar 2

3. Tıklamaya git yeni içinde başka bir aralık adı oluşturmak için düğme Yeni isim iletişim kutusu, bir ad girin asal içine Name metin kutusu ve ardından şu formülü girin: =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2))) (vMb 2. adımda oluşturduğunuz ilk aralık adıdır. Anlamına gelir metin kutusu, ekran görüntüsüne bakın:

doc listesi asal sayılar 3

4. Sonra tıklayın OK ve diyalogları kapatın ve tüm asal sayıları listelemek istediğiniz bir sütunu seçin ve şu formülü girin: = EĞERHATA (asal; "")(asal 3. adımda oluşturduğunuz aralık adıdır) formül çubuğuna ve ardından CTRL + ÜST KRKT + ENTER anahtarlar birlikte, verilen iki sayı arasındaki tüm asal sayılar gösterilen aşağıdaki ekran görüntüsü olarak listelenir:

doc listesi asal sayılar 4

ok mavi sağ balon Kullanıcı Tanımlı İşlev ile verilen iki sayı arasındaki tüm asal sayıları oluşturun

İlk yöntem biraz zorsa, burada bir Kullanıcı Tanımlı İşlev çözmek için.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: İki belirli sayı arasındaki tüm asal sayıları oluşturun:

Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
    For m = 2 To n - 1
        If n Mod m = 0 Then GoTo 20:
    Next m
    num = num & n & ","
20:
Next n
PRIME = num
End Function

3. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün, lütfen şu formülü girin: = asal (10,100) (10 başlangıç ​​numarasıdır ve 100 aradaki asal sayıları almak istediğiniz bitiş numarasıdır, bunları ihtiyacınıza göre değiştirebilirsiniz) ve ardından tuşuna basın Keşfet anahtar ve tüm asal sayılar tek bir hücrede görüntülenir, ekran görüntüsüne bakın:

doc listesi asal sayılar 5

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (3)
No ratings yet. Be the first to rate!
John Kennedy Aquino
John Kennedy Aquino
This comment was minimized by the moderator on the site
Sub generateprimenumbersbetween3() starting_number = 1 'input value here last_number = 10000 'input value here primenumbers = "" For a = starting_number To last_number c = a For b = 2 To c If a Mod b = 0 And c b Then Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Next a MsgBox primenumbers End Sub Function PRIMENUMBERSBETWEEN3(starting_number, last_number) primenumbers = "" For a = starting_number To last_number c = a For b = 2 To c If a Mod b = 0 And c b Then Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Next a PRIMENUMBERSBETWEEN3 = primenumbers End Function Sub ISPRIME3() number_to_be_checked = 15485863 'input value here c = number_to_be_checked For b = 2 To c If number_to_be_checked Mod b = 0 And c b Then MsgBox "Not Prime. Divisible by " & b Exit Sub Else If b = c Then MsgBox "Prime" Exit Sub Else If Round(number_to_be_checked / (b + 1)) + 1 > b Then c = Round(number_to_be_checked / (b + 1)) + 1 End If End If End If Next b End Sub
Reply
0
0
John Kennedy Aquino
John Kennedy Aquino
This comment was minimized by the moderator on the site
Sub generateprimenumbersbetween() starting_number = 1 'input value here last_number = 2000 'input value here primenumbers = "" For a = starting_number To last_number For b = 2 To a If a - b * Int(a / b) = 0 And a b Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a MsgBox primenumbers End Sub Function primenumbersbetween(starting_number, last_number) primenumbers = "" For a = starting_number To last_number For b = 2 To a If a - b * Int(a / b) = 0 And a b Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a primenumbersbetween = primenumbers End Function 'to check if a number is prime Sub ISPRIME() number_to_be_checked = 102 'input value here For b = 2 To number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _ number_to_be_checked b Then MsgBox "Not Prime. Divisible by " & b Exit Sub Else If number_to_be_checked = b Then MsgBox "Prime" End If End If Next b End Sub 'to check if a number is prime Function ISPRIME2(number_to_be_checked) For b = 2 To number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _ number_to_be_checked b Then ISPRIME2 = "Not Prime. Divisible by " & b Exit Function Else If number_to_be_checked = b Then ISPRIME2 = "Prime" End If End If Next b End Function
Reply
0
0
Lakshmi
Lakshmi     John Kennedy Aquino
This comment was minimized by the moderator on the site
<p>



End Sub

</p>
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations