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

Bagaimana cara menghasilkan semua bilangan prima di antara dua bilangan yang diberikan di Excel?

Di Excel, pernahkah Anda mencoba membuat daftar semua bilangan prima di antara dua bilangan tertentu? Artikel ini, saya akan berbicara tentang beberapa metode menarik untuk menangani tugas ini.

Hasilkan semua bilangan prima antara dua bilangan tertentu dengan rumus

Hasilkan semua bilangan prima antara dua bilangan yang diberikan dengan User Defined Function


panah gelembung kanan biru Hasilkan semua bilangan prima antara dua bilangan tertentu dengan rumus

Menggabungkan Tentukan Nama fungsi dan rumus, Anda dapat membuat daftar atau menghasilkan semua bilangan prima di antara dua bilangan tertentu. Harap lakukan sebagai berikut:

1. Harap buat nama rentang pertama dengan mengklik Rumus > Manajer nama, dan di Manajer nama kotak dialog, klik New tombol, lihat tangkapan layar:

doc daftar bilangan prima 1

2. di Nama baru kotak dialog, di Nama kotak teks, silakan masukkan Ping sebagai nama rentang, lalu masukkan rumus ini: = BARIS (TIDAK LANGSUNG (Sheet1! $ B $ 1 & ":" & Sheet1! $ B $ 2)) (Sheet1 adalah lembar kerja Anda saat ini yang Anda gunakan, B1 serta B2 adalah nomor awal dan akhir yang Anda tentukan) ke dalam Mengacu pada kotak teks, lalu klik OK tombol untuk kembali ke dialog sebelumnya. Lihat tangkapan layar:

doc daftar bilangan prima 2

3. Lanjutkan mengklik New tombol untuk membuat nama rentang lain, di Nama baru kotak dialog, masukkan nama perdana ke dalam Nama kotak teks, lalu masukkan rumus ini: =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))) (Ping adalah nama rentang pertama yang Anda buat di langkah2) ke dalam Mengacu pada kotak teks, lihat tangkapan layar:

doc daftar bilangan prima 3

4. Lalu klik OK dan tutup dialog, dan pilih satu kolom yang ingin Anda daftarkan semua bilangan prima, dan masukkan rumus ini: = IFERROR (prima, "")(perdana adalah nama rentang yang Anda buat di langkah 3) ke dalam bilah rumus, lalu tekan CTRL+SHIFT+ENTER bersama-sama, semua bilangan prima antara dua angka yang diberikan terdaftar seperti gambar berikut yang ditampilkan:

doc daftar bilangan prima 4


panah gelembung kanan biru Hasilkan semua bilangan prima antara dua bilangan yang diberikan dengan User Defined Function

Jika metode pertama agak sulit, di sini, Anda dapat menerapkan a Fungsi Buatan Pengguna untuk menyelesaikannya.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Hasilkan semua bilangan prima antara dua bilangan tertentu:

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. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja, masukkan rumus ini: = prime (10,100) (10 adalah nomor awal, dan 100 adalah bilangan akhir tempat Anda ingin mendapatkan bilangan prima, Anda dapat mengubahnya sesuai kebutuhan Anda), lalu tekan Enter kunci, dan semua bilangan prima ditampilkan ke dalam satu sel, lihat tangkapan layar:

doc daftar bilangan prima 5


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Sub generateprimenumbersbetween() starting_number = 1 'masukan nilai di sini last_number = 2000 'masukkan nilai di sini primenumbers = "" For a = starting_number Ke last_number For b = 2 To a If a - b * Int(a / b) = 0 Dan ab 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 Ke last_number For b = 2 To a Jika a - b * Int(a / b) = 0 Dan ab Kemudian Keluar Untuk Lain Jika a = b Kemudian bilangan prima = bilangan prima & " " & a End If End If Next b Next a primenumbersbetween = primenumbers End Function 'untuk memeriksa apakah bilangan prima Sub ISPRIME() number_to_be_checked = 102 'masukkan nilai disini Untuk b = 2 Ke number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 Dan _ number_to_be_checked b Kemudian MsgBox "Not Prime. Dibagi oleh " & b Keluar Sub Else If number_to_be_checked = b Maka MsgBox "Prime" End If End If Next b Akhiri Sub 'untuk memeriksa apakah suatu bilangan prima Fungsi ISPRIME2(bilangan_untuk_diperiksa) Untuk b = 2 Ke bilangan_yang_harus_dicentang Jika bilangan_yang_diperiksa - b * Int(nomor_untuk_diperiksa / b) = 0 Dan _ nomor_untuk_diperiksa b Kemudian ISPRIME2 = "Bukan Prima. Habis dibagi " & b Keluar Fungsi Lain Jika bilangan_to_be_centang = b Maka ISPRIME2 = "Utama" Berakhir Jika Berakhir Jika Berikutnya b Berakhir Fungsi
Komentar ini diminimalkan oleh moderator di situs




End Sub

Komentar ini diminimalkan oleh moderator di situs
Sub generateprimenumbersbetween3() starting_number = 1 'masukan nilai disini last_number = 10000' masukan nilai disini primenumbers = "" For a = starting_number Ke last_number c = a Untuk b = 2 Ke c Jika a Mod b = 0 Dan cb Kemudian Keluar Untuk Lain Jika b = c Maka bilangan prima = bilangan prima & " " & a Keluar Untuk Lain Jika Bulat(a / (b + 1)) + 1 > b Kemudian c = Bulat(a / (b + 1)) + 1 Berakhir Jika Berakhir Jika Berakhir If Next b Next a MsgBox primenumbers End Sub Fungsi 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 cb Kemudian Exit For Else If b = c Maka bilangan prima = bilangan prima & " " & a Keluar Untuk Lain Jika Bulat(a / (b + 1)) + 1 > b Kemudian c = Bulat(a / (b + 1)) + 1 Berakhir Jika Berakhir Jika Berakhir Jika Berikutnya b Selanjutnya a PRIMENUMBERSBETWEEN3 = bilangan prima End Function Sub ISPRIME3() number_to_be_checked = 15485863 'masukan nilai disini c = number_to_be_checked For b = 2 To c If number_to_be_checked Mod b = 0 Dan cb Kemudian MsgBox "Not Prime. Dibagi oleh " & bExit Sub Else If b = c Kemudian 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 Jika Selanjutnya b Berakhir Sub
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL