Как проверить, является ли число простым, в Excel?
Как известно, простое число — это натуральное число, имеющее ровно два различных натуральных делителя: единицу и само себя. Как проверить, являются ли числа из вашего списка простыми?
Проверка, является ли число простым, с помощью формулы массива
Проверка, является ли число простым, с помощью пользовательской функции
Проверка, является ли число простым, с помощью формулы массива
Следующая формула поможет вам определить, является ли число простым. Выполните следующие действия:
1. Введите следующую формулу в пустую ячейку — например, C2 рядом с вашими данными:
=IF(A2=2,«Prime»,IF(AND(MOD(A2,ROW(INDIRECT("2:"&,ROUNDUP(SQRT(A2),0))))<,>,0),«Prime»,«Not Prime»)) (A2 — это ячейка, содержащая число, которое вы хотите проверить). После ввода формулы нажмите одновременно клавиши Ctrl + Shift + Enter. В ячейке появится результат: «Prime», если число простое, и «Not Prime» — если нет. См. снимок экрана:
2. Затем выделите ячейку C2 и перетащите маркер заполнения вниз до нужных ячеек — формула автоматически применится ко всем им, и все числа будут проверены на простоту. См. снимок экрана:
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Проверка, является ли число простым, с помощью пользовательской функции
Следующая пользовательская функция также поможет вам определить, являются ли числа простыми. Выполните следующие действия:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно модуля.
Код VBA: Проверка, является ли число простым:
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. Затем сохраните и закройте этот код, вернитесь на лист и введите следующую формулу: =checkprime(A2) в пустую ячейку рядом со списком чисел, после чего перетащите маркер заполнения вниз до нужных ячеек. Если число простое, отобразится значение ИСТИНА, в противном случае — ЛОЖЬ. См. снимок экрана:
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек