Как сгенерировать все простые числа между двумя заданными числами в Excel?
Пробовали ли вы когда-нибудь в Excel составить список всех простых чисел между двумя заданными значениями? В этой статье я поделюсь несколькими интересными способами решения этой задачи.
Генерация всех простых чисел между двумя заданными числами с помощью формул
Генерация всех простых чисел между двумя заданными числами с помощью пользовательской функции
Генерация всех простых чисел между двумя заданными числами с помощью формул
Объединив функцию Определение имени и формулы, вы сможете создать список или сгенерировать все простые числа между двумя заданными числами. Выполните следующие действия:
1. Создайте первое имя ячейки: перейдите на вкладку Формулы → Менеджер имен, а затем в диалоговом окне Менеджер имен нажмите кнопку Создать. См. снимок экрана:
2. В диалоговом окне Новое имя в поле Имя введите rng как имя ячейки, а затем введите следующую формулу в поле Ссылка на: =ROW(INDIRECT(Sheet1!$B$1&,":"&,Sheet1!$B$2)) (Лист1 — это текущий лист, который вы используете; B1 и B2 — начальное и конечное числа, которые вы указали). После этого нажмите кнопку 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, закройте диалоговые окна, выберите столбец, в котором хотите отобразить все простые числа, и введите следующую формулу в строку формул: =IFERROR(prime,«»)) (prime — это имя, присвоенное ячейке на шаге 3), а затем одновременно нажмите клавиши CTRL + SHIFT + ENTER. Все простые числа в заданном диапазоне появятся в столбце, как показано на следующем снимке экрана:
Генерация всех простых чисел между двумя заданными числами с помощью пользовательской функции
Если первый метод покажется вам сложным, воспользуйтесь пользовательской функцией, чтобы легко справиться с этой задачей.
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуль.
Код VBA: генерация всех простых чисел между двумя заданными числами:
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. Сохраните и закройте этот код, вернитесь на лист и введите следующую формулу: =prime(10,100) (10 — начальное число, а 100 — конечное число, между которыми вы хотите найти простые числа; вы можете изменить их по своему усмотрению), затем нажмите клавишу Enter. Все простые числа появятся в одной ячейке. См. снимок экрана:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек