Note: The other languages of the website are Google-translated. Back to English

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, İsim-Soyisim 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 İsim-Soyisim 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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (3)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sub createprimenumbersbetween() startup_number = 1 'buraya giriş değeri last_number = 2000 'buraya giriş değeri primenumbers = "" a = startup_number için last_number için b = 2 için a If a - b * Int(a / b) = 0 And ab Sonra Exit For Else Eğer a = b Sonra asal sayılar = asal sayılar & " " & a End If End If Sonraki b Sonraki a MsgBox primenumbers End Sub Function primenumbersbetween(starting_number, last_number) primenumbers = "" için a = startup_number to last_number For b = 2 To a Eğer a - b * Int(a / b) = 0 Ve ab Sonra Else İçin Çık Eğer a = b Sonra asal sayılar = asal sayılar & " " & a End If End If Next b Sonraki a primenumbersbetween = asal sayılar End Function ' eğer kontrol etmek için a number is asal Sub ISPRIME() number_to_be_checked = 102 'buraya değer girin İçin b = 2 için number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 Ve _ number_to_be_checked b Sonra MsgBox "Asal Değil. İle Bölünebilir" & b Sub Else Eğer number_to_be_checked = b Sonra MsgBox "Prime" End If End If Nextse b End S ub 'bir sayının asal olup olmadığını kontrol etmek için İşlev ISPRIME2(number_to_be_checked) için b = 2 için number_to_be_checked'e number_to_be_checked ise - b * Int(number_to_be_checked / b) = 0 Ve _ number_to_be_checked b Sonra ISPRIME2 = "Asal Değil. " & b ile bölünebilir Exit Function Else Eğer number_to_be_checked = b O zaman ISPRIME2 = "Prime" Eğer Bittiyse Sonsa Sonraki b End Function
Bu yorum sitedeki moderatör tarafından en aza indirildi




End Sub

Bu yorum sitedeki moderatör tarafından en aza indirildi
sub createprimenumbersbetween3() startup_number = 1 'buraya giriş değeri last_number = 10000 'buraya giriş değeri primenumbers = "" a = startup_number için last_number için c = a için b = 2'ye cb Eğer a Mod b = 0 Ve cb O halde Exit For Else If b = c Sonra asal sayılar = asal sayılar & " " & a Else For Else If Round(a / (b + 1)) + 1 > b Sonra c = Round(a / (b + 1)) + 1 End If End If End Eğer Sonraki b Sonraki a MsgBox primenumbers End Sub Function PRIMENUMBERSBETWEEN3(starting_number, last_number) primenumbers = "" a = startup_number için last_number için c = a için b = 2 için c a Mod b = 0 ise Ve cb Eğer b = ise Exit For Else c Sonra asal sayılar = asal sayılar & " " & a Exit For Else Eğer Yuvarlaksa(a / (b + 1)) + 1 > b Sonra c = Yuvarlak(a / (b + 1)) + 1 End If End If End If Next b Sonraki a PRIMENUMBERSBETWEEN3 = asal sayılar End Function Sub ISPRIME3() number_to_be_checked = 15485863 'buraya giriş değeri c = number_to_be_checked b = 2 İçin c Eğer number_to_be_checked Mod b = 0 Ve cb Sonra MsgBox "Asal Değil. İle Bölünebilir" & bExit Sub Else Eğer b = c ise MsgBox "Prime" Exit Sub Else If Round(number_to_be_checked / (b + 1)) + 1 > b Sonra c = Round(number_to_be_checked / (b + 1)) + 1 End If End If End Sonraki b End Sub ise
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır