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 denediniz mi? Bu makalede, bu görevi gerçekleştirmek için bazı ilginç yöntemleri sizinle paylaşacağım.
Formüllerle iki verilen sayı arasındaki tüm asal sayıları oluşturun
Kullanıcı Tanımlı İşlev ile iki verilen sayı arasındaki tüm asal sayıları oluşturun
Formüllerle iki verilen sayı arasındaki tüm asal sayıları oluşturun
Ad Tanımla işlevini ve formülleri birleştirerek, iki belirli sayı arasındaki tüm asal sayıları listeleyebilir ya da oluşturabilirsiniz. Aşağıdaki adımları uygulayın:
1. İlk Hücre adı'nı oluşturmak için lütfen Formüller > Ad Yöneticisi seçeneğine tıklayın ve açılan Ad Yöneticisi iletişim kutusunda Yeni düğmesine tıklayın; ekran görüntüsüne bakın:
2. Yeni Ad iletişim kutusunda, Ad metin kutusuna lütfen rng adını Hücre adı olarak girin ve ardından şu formülü: =ROW(INDIRECT(Sheet1!$B$1&,":"&,Sheet1!$B$2)) (Sayfa1 kullandığınız Geçerli Çalışma Sayfası, B1 ve B2 belirttiğiniz başlangıç ve bitiş numarasıdır) Şuna Başvur metin kutusuna girin, ardından Tamam düğmesine tıklayarak önceki iletişim kutusuna dönün. Ekran görüntüsüne bakın:
3. Yeni bir hücre adı oluşturmak için Yeni düğmesine tıklayın; açılan Yeni Ad iletişim kutusunda, Ad metin kutusuna prime adını girin ve ardından şu formülü: =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))) (rng, 2. adımda oluşturduğunuz ilk hücre adı) Şuna Başvur metin kutusuna girin; ekran görüntüsüne bakın:
4. Ardından, Tamam düğmesine tıklayarak iletişim kutularını kapatın. Tüm asal sayıları listelemek istediğiniz bir sütunu seçin ve aşağıdaki formülü girin: =IFERROR(prime,"")) (prime, 3. adımda oluşturduğunuz hücre adıdır). Son olarak, CTRL + SHIFT + ENTER tuşlarına aynı anda basın; böylece verilen iki sayı arasındaki tüm asal sayılar aşağıdaki ekran görüntüsünde gösterildiği gibi listelenir:
Kullanıcı Tanımlı İşlev ile iki verilen sayı arasındaki tüm asal sayıları oluşturun
İlk yöntem biraz zor geliyorsa, bunu çözmek için burada bir Kullanıcı Tanımlı İşlev kullanabilirsiniz.
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
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 Kaydet ve Kapat, çalışma sayfasına dönün ve şu formülü girin: =prime(10,100) (10, başlangıç numarası ve 100, asal sayıları almak istediğiniz bitiş numarasıdır; bunları ihtiyacınıza göre değiştirebilirsiniz) ve ardından Enter tuşuna basın. Tüm asal sayılar tek bir hücrede görüntülenir; ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar