Как посчитать простые числа в excel

Использование массивов позволяют упростить многие вычисления.
В частности все манипуляции, описанные в статье «Является ли число простым», можно заменить одной формулой.

Пусть в ячейке A1 находится число и нужно проверить простое ли оно. Достаточно в ячейку B1 ввести такую формулу:

=ЕСЛИ(МИН(ОСТАТ(A1;СТРОКА(ДВССЫЛ(«2:»&ОКРУГЛ(КОРЕНЬ(A1);)))))=0;»составное»;»простое»)

Можно пойти еще дальше и записать в ячейке C1 формулу:

=СУММ(—(ОСТАТ(A1;СТРОКА(ДВССЫЛ(«1:»&A1)))=0))

Эта формула покажет сколько у числа в ячейке A1 делителей.
Например, для числа 12 количество делителей будет 6, а именно 1, 2, 3, 4, 6 и само число 12.

Указанные формулы используют массивы, поэтому после окончания ввода нужно нажать CTRL+SHIFT+ENTER.

Пробовали ли вы когда-нибудь в Excel перечислить все простые числа между двумя заданными числами? В этой статье я расскажу о некоторых интересных методах решения этой задачи.

Генерация всех простых чисел между двумя заданными числами с помощью формул

Генерация всех простых чисел между двумя заданными числами с помощью функции, определяемой пользователем

Генерация всех простых чисел между двумя заданными числами с помощью формул

Комбинируя функцию Define Name и формулы, вы можете перечислить или сгенерировать все простые числа между двумя конкретными числами. Пожалуйста, сделайте следующее:

1 . Создайте имя первого диапазона, нажав Формулы > Диспетчер имен и в диалоговом окне Диспетчер имен нажмите New , см. снимок экрана:

2 . В диалоговом окне Новое имя в текстовом поле Имя введите rng в качестве имени диапазона, а затем введите эту формулу: = ROW (INDIRECT (Sheet1! $ B $ 1 & “:” & Sheet1! $ B $ 2)) ( Sheet1 – это ваш текущий рабочий лист, который вы использовали, и являются начальным и конечным числами, которые вы указали) в текстовое поле Относится к , затем нажмите кнопку OK , чтобы вернуться к предыдущему диалоговому окну. См. Снимок экрана:

3 . Нажмите кнопку Создать , чтобы создать другое имя диапазона, в диалоговом окне Новое имя введите имя prime в текстовое поле Имя , а затем введите эту формулу: = 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), в текстовое поле Относится к , см. снимок экрана:

4 . Затем нажмите OK , закройте диалоговые окна и выберите один столбец, в котором вы хотите перечислить все простые числа, и введите следующую формулу: = ЕСЛИОШИБКА (простое число, “”) ( prime – это имя диапазона, созданное на шаге 3) в строку формул, а затем нажмите CTRL + SHIFT + Вместе с клавишами ENTER все простые числа между заданными двумя числами отображаются, как показано на следующем снимке экрана:

Создает все простые числа между двумя заданные числа с функцией, определяемой пользователем

Если первый метод несколько сложен, здесь вы можете применить функцию, определяемую пользователем , чтобы решить эту проблему.

1 . Удерживая нажатыми клавиши ALT + F11 , откройте окно Microsoft Visual Basic для приложений .

2 . Нажмите Вставить > Module и вставьте следующий код в окно Module .

Код VBA: генерировать все простые числа между двумя определенными числами:

3 . Затем сохраните и закройте этот код, вернитесь на рабочий лист, введите следующую формулу: = prime (10,100) ( 10 – это начальный номер, а – конечный номер, между которыми вы хотите получить простые числа, вы можете изменить их по своему усмотрению), а затем нажмите клавишу Enter , и все простые числа отобразятся в одной ячейке, см. снимок экрана:

A number greater than 1 with no positive divisors besides 1 and the number itself is referred to as a prime number. In this article, we will be discussing two approaches for generating all prime numbers between two given numbers in excel. In the first approach, we are creating formulas for generating prime numbers between two numbers, and in the second approach, we are creating a new user-defined function that is simple and easy in comparison to the first approach.

Approach 1: Using Formulas

The Define Name function and formulas can be used to list or generate every prime number between two certain values.

Step 1: Follow, the below steps for creating the first range name

1. Click on the Formulas tab
2. Click on Name Manager
3. Once we click on Name Manager, a new pop-up will be opened. Now, Click New Button.

Step 2: In the New Name popup window, Enter “range” as the range name in the “Name” text field. Now, Enter this formula: 

=ROW(INDIRECT(Sheet1!$B$1&”:”&Sheet1!$B$2))

Sheet1 is the name of the worksheet we are now using, and B1 and B2 are the start and finish numbers we selected in the Refers to the text box.

Press the “OK” button and close the pop window.

Step 3: Now, Again click New Button for creating another range name. Enter “prime” as a name in Name Field in the New Name pop window. Enter this below formula in refers to the field.

=SMALL(IF(MMULT(–(IF(range>TRANSPOSE(range-Sheet1!$B$1+2),MOD(range,(range>TRANSPOSE(range-Sheet1!$B$1+2))*TRANSPOSE(range-Sheet1!$B$1+2)))=0), range-Sheet1!$B$1+2)=0,range),ROW(INDIRECT(“1:”&Sheet1!$B$2)))

range variable is created in step 2.

Click the “OK” button and close the pop window.  

Step 4: Now, Write any two numbers or ranges (B1 and B2 Column) in which range we want to print or list prime numbers as start and end numbers. We need to select any column in which we want to list or print prime numbers and we need to enter this formula in the formula bar:

=IFERROR(prime,””)

prime is a function that is created in step 3. Once we entered the formula in the formula bar and then press CTRL + SHIFT + ENTER keys together, all prime numbers will be listed in the selected column between the mentioned range.

Approach 2: Using User-Defined Functions

The first method is a little bit difficult, so, in this approach, we will apply a user-defined function for generating a prime number between two numbers. 

Step 1: Click the ALT + F11 keys together for opening the Microsoft Visual Basic for Applications window.

Step 2: First, Click on Insert Button and then click the Module button. 

Step 3: Once we clicked on the Module button, a new dialog box will open. Just copy and paste this below code to open the dialog box. 

Function PRIME(Start_val, End_val As Long)

‘Updateby Extendoffice 20160613

Dim val As String

For i = Start_val To End_val

   For j = 2 To i – 1

       If i Mod j = 0 Then GoTo 20:

   Next j

   val = val & i & “,”

20:

Next i

PRIME = val

End Function

Screenshot:

Step 4: Press CTRL + S to save this file and the dialog box will be closed, go back to our worksheet. Now, Select any cell and enter this below formula with two numbers as parameters such as =prime(10, 50) where 10 is starting number and 50 is the ending number. Press ENTER Key and prime numbers will be displayed to our selected cell.