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

Bagaimana cara memeriksa apakah bilangan tersebut adalah bilangan prima di Excel?

Seperti yang kita semua ketahui, bilangan prima adalah bilangan asli yang hanya mengandung dua pembagi bilangan asli yang berbeda: Satu dan dirinya sendiri. Jika Anda memiliki daftar bilangan di lembar kerja, bagaimana Anda bisa memeriksa apakah bilangan tersebut adalah bilangan prima?

Periksa apakah suatu bilangan adalah bilangan prima dengan rumus array

Periksa apakah suatu bilangan adalah bilangan prima dengan User Defined Function


panah gelembung kanan biru Periksa apakah suatu bilangan adalah bilangan prima dengan rumus array

Rumus berikut dapat membantu Anda mengidentifikasi bilangan tersebut apakah itu bilangan prima atau bukan, lakukan seperti ini:

1. Masukkan rumus berikut ke dalam sel kosong - C2 misalnya di samping data Anda:

=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime")) (A2 adalah sel berisi nomor yang ingin Anda periksa), lalu tekan Ctrl + Shift + Enter kunci bersama-sama, dan Anda akan mendapatkan hasilnya, jika nomornya adalah bilangan prima, itu akan menampilkan "Perdana" di sel, jika tidak, "Bukan Perdana" akan ditampilkan, lihat tangkapan layar:

doc periksa apakah prime 1

2. Kemudian pilih sel C2, dan seret gagang isian ke sel yang ingin Anda terapkan rumus ini, dan semua angka akan diidentifikasi apakah bilangan prima atau bukan. Lihat tangkapan layar:

doc periksa apakah prime 2


panah gelembung kanan biru Periksa apakah suatu bilangan adalah bilangan prima dengan User Defined Function

Berikut ini Fungsi Buatan Pengguna juga dapat membantu Anda untuk memeriksa bilangan apakah bilangan prima atau tidak, lakukan hal berikut:

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

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

Kode VBA: Periksa apakah suatu bilangan prima atau tidak:

Function CheckPrime(Numb As Single) As Boolean
'Updateby Extendoffice
    Dim X As Long
    If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
     Or Numb <> Int(Numb) Then Exit Function
    For X = 3 To Sqr(Numb) Step 2
        If Numb Mod X = 0 Then Exit Function
    Next
    CheckPrime = True
End Function

3. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja, dan masukkan rumus ini: = checkprime (A2) ke dalam sel kosong di samping daftar nomor Anda, lalu seret pegangan isi ke sel yang ingin Anda isi rumus ini, jika nomornya adalah bilangan prima, itu akan menampilkan BENAR, jika tidak, itu akan menampilkan SALAH, lihat tangkapan layar:

doc periksa apakah prime 3


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-2019 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (21)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo, saya suka artikel Anda. Terima kasih banyak. Tes sederhana saya menunjukkan bahwa 99 adalah bilangan prima sedangkan 99 bukan karena 99 dibagi 3 dan 33 serta 1 dan 99. Bisakah Anda memberi tahu saya apa yang salah dengan operasi saya?
Komentar ini diminimalkan oleh moderator di situs
Rumus array di atas tidak berfungsi tetapi fungsi yang Ditentukan Pengguna berfungsi dan sangat membantu. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Rumus array tidak berfungsi tetapi fungsi yang ditentukan Pengguna berfungsi dan sangat membantu. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Fungsi yang ditentukan pengguna tampaknya tidak berfungsi untuk angka di atas ~16777213
Komentar ini diminimalkan oleh moderator di situs
Sub generateprimenumbersbetween() starting_number = 99990 'masukan nilai di sini last_number = 99999 '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
ini versi tercepat saya Sub generateprimenumbersbetween3() starting_number = 1 'masukan nilai disini last_number = 30000' masukan nilai disini primenumbers = "" Untuk 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 ISPRIME3() number_to_be_checked = 2000000000 'masukkan nilai disini c = number_to_be_checked For b = 2 To c If number_to_be_checked Mod b = 0 And cb Kemudian MsgBox "Not Prime. Dibagi oleh " & b Keluar 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 If Next b Akhir Sub
Komentar ini diminimalkan oleh moderator di situs
Formula Anda tidak berfungsi. Misalnya. 1681 BUKAN bilangan prima tetapi menurut rumusnya.
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime"))
Komentar ini diminimalkan oleh moderator di situs
Halo, Jan,
Rumus di atas benar, setelah menempelkan rumus ke dalam sel, Anda harus menekan tombol Ctrl + Shift + Enter secara bersamaan, bukan hanya tombol Enter.
Silakan coba lagi, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ya, itulah yang terjadi dengan CSE. Terima kasih (sudah diperbaiki sekarang).
https://superuser.com/questions/674566/when-to-use-ctrlshiftenter-and-when-to-use-enter-in-excel

Btw varian Ceko ke:
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime"))
adalah:
=KDYŽ(A2=2;"Prime";KDYŽ(A(MOD(A2;ŘÁDEK(NEPŘÍMÝ.ODKAZ("2:"&ROUNDUP(ODMOCNINA(A2);0))))<>0);"Prime";"Not Prime"))

Bandingkan: https://imgur.com/a/4MgeV
Komentar ini diminimalkan oleh moderator di situs
baik 4095 bukan prima. tetap saja memberikan hasil sebagai no prima. itu tidak benar.
Komentar ini diminimalkan oleh moderator di situs
Halo, vaibhav,
Saat Anda menempelkan rumus di atas, Anda harus menekan tombol Ctrl + Shift + Enter secara bersamaan, bukan hanya tombol Enter, silakan coba lagi.
Komentar ini diminimalkan oleh moderator di situs
Ada kesalahan referensi saat Anda mengetikkan angka yang memiliki lebih dari 12 digit.
Komentar ini diminimalkan oleh moderator di situs
Halo, Nathan,
Seperti yang Anda katakan, ketika angka lebih dari 12 digit, itu akan menjadi notasi ilmiah. Rumus tidak diterapkan untuk pemformatan ini.
Komentar ini diminimalkan oleh moderator di situs
Ya itu berhasil jika saya lakukan Ctrl+Shift+Enter... !! Terima kasih ..: D dan Tolong jelaskan algoritmanya.
Komentar ini diminimalkan oleh moderator di situs
Hai.

Saya menggunakan Excel versi Italia, jadi rumusnya tidak berfungsi dan saya mengalami kesalahan. Bisakah kamu membantuku?

Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Hai, Gian,
Jika rumus tidak bekerja dengan benar untuk Anda, Anda dapat menerapkan metode kedua-Fungsi yang Ditentukan Pengguna. Silakan dicoba, semoga bisa membantu Anda!
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai skyyang.
Jika dapat bermanfaat bagi peneliti lain, saya informasikan bahwa saya telah menemukan solusi untuk masalah saya di sini => http://www.riolab.org/index.php?option=com_content&view=article&id=172&Itemid=68

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Pasti ada masalah dengan persamaan ini. Saya melakukan salin/tempel langsung dan memeriksa itu adalah salinan yang setia tetapi masih memiliki 9, 15, 21, 25, 33, 35 dan 39 sebagai bilangan prima padahal jelas bukan. Pada pemeriksaan cepat sepertinya faktor 3 dan 5 menimbulkan semacam masalah. Ini adalah formula yang sangat rumit untuk satu sel - begitu banyak, saya tidak tahu apa yang coba dilakukan. Saya biasanya memecah hal-hal seperti itu menjadi beberapa sel untuk membuat debugging lebih mudah (yang, saya yakini adalah praktik terbaik Excel).
Komentar ini diminimalkan oleh moderator di situs
Pasti ada masalah dengan persamaan ini. Saya melakukan salin/tempel langsung dan memeriksa itu adalah salinan yang setia tetapi masih memiliki 9, 15, 21, 25, 33, 35 dan 39 sebagai bilangan prima padahal jelas bukan. Pada pemeriksaan cepat sepertinya faktor 3 dan 5 menimbulkan semacam masalah. Ini adalah formula yang sangat rumit untuk satu sel - begitu banyak, saya tidak tahu apa yang coba dilakukan. Saya biasanya memecah hal-hal seperti itu menjadi beberapa sel untuk membuat debugging lebih mudah (yang, saya yakini adalah praktik terbaik Excel). Fungsinya tampaknya berfungsi.
Komentar ini diminimalkan oleh moderator di situs
JANGAN MASUKKAN FORMULA DI SEL. Pilih sel lalu tempel rumus di bilah rumus dan tekan ctrl+shft+Enter. itu harus menempatkan { di sekitar rumus} jika tidak, itu salah.
Komentar ini diminimalkan oleh moderator di situs
Craig, Terima kasih - itu berhasil! Maaf, saya tidak membaca instruksi dengan cukup hati-hati.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan