Определение делителей числа в excel

serega Дата: Пятница, 12.09.2014, 21:31 | Сообщение № 8
Nic70y Дата: Воскресенье, 14.09.2014, 08:11 | Сообщение № 9

serega, я думаю вам к макрописцам или туда:
http://www.excelworld.ru/forum/6

ну или на крайняк см. мой файл.
(косо как-то идет — не варит бошка сегодня)
[moder]А что это название темы у нас такое информативное?
Прозевали мы.
Однако, лучше поздно, чем никогда — serega, меняйте название согласно Правилам форума. Иначе тему закрою и Вам замечание влеплю.
Кстати, вполне возможно, что ответов поэтому и нет.

serega, я думаю вам к макрописцам или туда:
http://www.excelworld.ru/forum/6

ну или на крайняк см. мой файл.
(косо как-то идет — не варит бошка сегодня)
[moder]А что это название темы у нас такое информативное?
Прозевали мы.
Однако, лучше поздно, чем никогда — serega, меняйте название согласно Правилам форума. Иначе тему закрою и Вам замечание влеплю.
Кстати, вполне возможно, что ответов поэтому и нет. Nic70y

Сообщение serega, я думаю вам к макрописцам или туда:
http://www.excelworld.ru/forum/6

ну или на крайняк см. мой файл.
(косо как-то идет — не варит бошка сегодня)
[moder]А что это название темы у нас такое информативное?
Прозевали мы.
Однако, лучше поздно, чем никогда — serega, меняйте название согласно Правилам форума. Иначе тему закрою и Вам замечание влеплю.
Кстати, вполне возможно, что ответов поэтому и нет. Автор — Nic70y
Дата добавления — 14.09.2014 в 08:11

serega Дата: Воскресенье, 14.09.2014, 21:55 | Сообщение № 10
serega Дата: Воскресенье, 14.09.2014, 23:46 | Сообщение № 11
ikki Дата: Понедельник, 15.09.2014, 04:06 | Сообщение № 12
помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

ikki Дата: Понедельник, 15.09.2014, 04:31 | Сообщение № 13
помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

MCH Дата: Понедельник, 15.09.2014, 09:01 | Сообщение № 14

[/vba]
Саш, память не экономим, избыточное определение массивов

[/vba]
Саш, память не экономим, избыточное определение массивов

[/vba]
Саш, память не экономим, избыточное определение массивов

ikki Дата: Понедельник, 15.09.2014, 09:50 | Сообщение № 15
помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

shanemac51 Дата: Понедельник, 15.09.2014, 10:55 | Сообщение № 16

насколько мне помнится, есть еще какое то условие , типа зацепление
на каком то форуме тема решалась

насколько мне помнится, есть еще какое то условие , типа зацепление
на каком то форуме тема решалась shanemac51

насколько мне помнится, есть еще какое то условие , типа зацепление
на каком то форуме тема решалась Автор — shanemac51
Дата добавления — 15.09.2014 в 10:55

Источник

Как проверить делится ли число без остатка в excel

ЧАСТНОЕ (функция ЧАСТНОЕ)

В этой статье описаны синтаксис формулы и использование функции ЧАСТНОЕ в Microsoft Excel.

: Если вы хотите разделить числные значения, используйте оператор /, так как в Excel нет функции DIVIDE. Например, чтобы разделить 5 на 2, введите =5/2 в ячейку, которая возвращает 2,5. Функция QUOTIENT для этих же чисел =QUOTIENT(5;2) возвращает 2, так как функция QUOTIENT не возвращает остаток. Другие способы дележения чисел см. в этой теме.

Описание

Возвращает целую часть результата деления с остатком. Эта функция используется, когда нужно отбросить остаток от деления.

Синтаксис

Аргументы функции ЧАСТНОЕ указаны ниже.

Числитель Обязательный. Делимое.

Знаменатель Обязательный. Делитель.

Замечание

Если один из аргументов не является числом, то quotient возвращает #VALUE! значение ошибки #ЗНАЧ!.

Пример

Скопируйте пример данных из следующей таблицы и вставьте его в ячейку A1 нового листа Excel. Для переключения между формулами и их результатами нажмите клавишу F2. При необходимости измените ширину столбцов, чтобы видеть все данные.

Как проверить делится ли одно число нацело на другое? Функция в Excel

Даны целые числа М и N. Если число М делится нацело на число N,
то вывести в одной из ячеек частное от деления, в противном случае
вывести В ТОЙ же ячейке текст М на N нацело не делится.
Для решения задачи найдите в мастере функций в категории Математические функцию, с помощью которой можно определить делится ли одно число на другое без остатка.

=ЕСЛИ (ОСТАТ (M;N)=0;»делитсч»;»не делится»)

Источник

Применение деления в программе Microsoft Excel

В Microsoft Excel деление можно произвести как при помощи формул, так и используя функции. Делимым и делителем при этом выступают числа и адреса ячеек.

Способ 1: деление числа на число

Лист Эксель можно использовать как своеобразный калькулятор, просто деля одно число на другое. Знаком деления выступает слеш (обратная черта) – «/».

  1. Становимся в любую свободную ячейку листа или в строку формул. Ставим знак «равно»(=). Набираем с клавиатуры делимое число. Ставим знак деления (/). Набираем с клавиатуры делитель. В некоторых случаях делителей бывает больше одного. Тогда, перед каждым делителем ставим слеш (/).
  2. Для того, чтобы произвести расчет и вывести его результат на монитор, делаем клик по кнопке Enter.

После этого Эксель рассчитает формулу и в указанную ячейку выведет результат вычислений.

Если вычисление производится с несколькими знаками, то очередность их выполнения производится программой согласно законам математики. То есть, прежде всего, выполняется деление и умножение, а уже потом – сложение и вычитание.

Как известно, деление на 0 является некорректным действием. Поэтому при такой попытке совершить подобный расчет в Экселе в ячейке появится результат «#ДЕЛ/0!».

Способ 2: деление содержимого ячеек

Также в Excel можно делить данные, находящиеся в ячейках.

  1. Выделяем в ячейку, в которую будет выводиться результат вычисления. Ставим в ней знак «=». Далее кликаем по месту, в котором расположено делимое. За этим её адрес появляется в строке формул после знака «равно». Далее с клавиатуры устанавливаем знак «/». Кликаем по ячейке, в которой размещен делитель. Если делителей несколько, так же как и в предыдущем способе, указываем их все, а перед их адресами ставим знак деления.
  2. Для того, чтобы произвести действие (деление), кликаем по кнопке «Enter».

Можно также комбинировать, в качестве делимого или делителя используя одновременно и адреса ячеек и статические числа.

Способ 3: деление столбца на столбец

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

  1. Выделяем первую ячейку в столбце, где должен выводиться результат. Ставим знак «=». Кликаем по ячейке делимого. Набираем знак «/». Кликаем по ячейке делителя.
  2. Жмем на кнопку Enter, чтобы подсчитать результат.
  3. Итак, результат подсчитан, но только для одной строки. Для того, чтобы произвести вычисление в других строках, нужно выполнить указанные выше действия для каждой из них. Но можно значительно сэкономить своё время, просто выполнив одну манипуляцию. Устанавливаем курсор на нижний правый угол ячейки с формулой. Как видим, появляется значок в виде крестика. Его называют маркером заполнения. Зажимаем левую кнопку мыши и тянем маркер заполнения вниз до конца таблицы.

Как видим, после этого действия будет полностью выполнена процедура деления одного столбца на второй, а результат выведен в отдельной колонке. Дело в том, что посредством маркера заполнения производится копирование формулы в нижние ячейки. Но, с учетом того, что по умолчанию все ссылки относительные, а не абсолютные, то в формуле по мере перемещения вниз происходит изменение адресов ячеек относительно первоначальных координат. А именно это нам и нужно для конкретного случая.

Способ 4: деление столбца на константу

Бывают случаи, когда нужно разделить столбец на одно и то же постоянное число – константу, и вывести сумму деления в отдельную колонку.

  1. Ставим знак «равно» в первой ячейке итоговой колонки. Кликаем по делимой ячейке данной строки. Ставим знак деления. Затем вручную с клавиатуры проставляем нужное число.
  2. Кликаем по кнопке Enter. Результат расчета для первой строки выводится на монитор.
  3. Для того, чтобы рассчитать значения для других строк, как и в предыдущий раз, вызываем маркер заполнения. Точно таким же способом протягиваем его вниз.

Как видим, на этот раз деление тоже выполнено корректно. В этом случае при копировании данных маркером заполнения ссылки опять оставались относительными. Адрес делимого для каждой строки автоматически изменялся. А вот делитель является в данном случае постоянным числом, а значит, свойство относительности на него не распространяется. Таким образом, мы разделили содержимое ячеек столбца на константу.

Способ 5: деление столбца на ячейку

Но, что делать, если нужно разделить столбец на содержимое одной ячейки. Ведь по принципу относительности ссылок координаты делимого и делителя будут смещаться. Нам же нужно сделать адрес ячейки с делителем фиксированным.

  1. Устанавливаем курсор в самую верхнюю ячейку столбца для вывода результата. Ставим знак «=». Кликаем по месту размещения делимого, в которой находится переменное значение. Ставим слеш (/). Кликаем по ячейке, в которой размещен постоянный делитель.
  2. Для того, чтобы сделать ссылку на делитель абсолютной, то есть постоянной, ставим знак доллара ($) в формуле перед координатами данной ячейки по вертикали и по горизонтали. Теперь этот адрес останется при копировании маркером заполнения неизменным.
  3. Жмем на кнопку Enter, чтобы вывести результаты расчета по первой строке на экран.
  4. С помощью маркера заполнения копируем формулу в остальные ячейки столбца с общим результатом.

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

Способ 6: функция ЧАСТНОЕ

Деление в Экселе можно также выполнить при помощи специальной функции, которая называется ЧАСТНОЕ. Особенность этой функции состоит в том, что она делит, но без остатка. То есть, при использовании данного способа деления итогом всегда будет целое число. При этом, округление производится не по общепринятым математическим правилам к ближайшему целому, а к меньшему по модулю. То есть, число 5,8 функция округлит не до 6, а до 5.

Посмотрим применение данной функции на примере.

  1. Кликаем по ячейке, куда будет выводиться результат расчета. Жмем на кнопку «Вставить функцию» слева от строки формул.
  2. Открывается Мастер функций. В перечне функций, которые он нам предоставляет, ищем элемент «ЧАСТНОЕ». Выделяем его и жмем на кнопку «OK».
  3. Открывается окно аргументов функции ЧАСТНОЕ. Данная функция имеет два аргумента: числитель и знаменатель. Вводятся они в поля с соответствующими названиями. В поле «Числитель» вводим делимое. В поле «Знаменатель» — делитель. Можно вводить как конкретные числа, так и адреса ячеек, в которых расположены данные. После того, как все значения введены, жмем на кнопку «OK».

После этих действий функция ЧАСТНОЕ производит обработку данных и выдает ответ в ячейку, которая была указана в первом шаге данного способа деления.

Эту функцию можно также ввести вручную без использования Мастера. Её синтаксис выглядит следующим образом:

Как видим, основным способом деления в программе Microsoft Office является использование формул. Символом деления в них является слеш – «/». В то же время, для определенных целей можно использовать в процессе деления функцию ЧАСТНОЕ. Но, нужно учесть, что при расчете таким способом разность получается без остатка, целым числом. При этом округление производится не по общепринятым нормам, а к меньшему по модулю целому числу.

Источник

Adblock
detector

 

dalton

Пользователь

Сообщений: 32
Регистрация: 27.01.2013

Здравствуйте!
Нужно извлечь из заданного числа, все его значения целых делителей.
Формулой у меня не получается.

Прикрепленные файлы

  • Книга1.xls (48.5 КБ)

 

Вообще-то, делители — простые числа. Так, для 20 делителями являются 2 и 5, но не являются 4 и 10…

 

dalton

Пользователь

Сообщений: 32
Регистрация: 27.01.2013

Понятно, но нужно именно как в примере, разве что возможно кроме единицы и наибольшего делителя.

 

Первую половину делителей можно как в файле; вторую — получить частные от деления числа на делители.

 

dalton

Пользователь

Сообщений: 32
Регистрация: 27.01.2013

#5

30.06.2013 19:16:17

Спасибо, подкорректирую.

MyExcel_17

Заблокирован

1

27.03.2017, 00:42. Показов 13783. Ответов 5

Метки нет (Все метки)


Студворк — интернет-сервис помощи студентам

Всем доброй ночи!

Прошу помощи. Как правильно показать в ячейках Excel все делители заданного числа? Именно в ячейках Excel!
Пусть число 34, тогда его делители: 1; 2; 17; 34.

Прошу не предлагать: MsgBox и Debug.Print — эти способы мне известны.

На картинке, ниже, код Excel неверно выводит делители у меня: 34; 34; 34; 34. Как исправить?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Перечислить_все_делители_в_ячейках()
n = InputBox("N=")
[A1] = n
For i = 1 To n
  If n Mod i = 0 Then s = s + i
Next i
[B1] = s
'где s сумма всех делителей числа 34
Debug.Print s
For i = 1 To n Step 1
    If n Mod i = 0 Then Debug.Print "i ="; i
        'перечисляются все делители числа 34
    Next i
For j = 1 To n Step 1
    If n / j = n  j Then
      Range("C1:C4") = j
    End If
    Next j
End Sub

Миниатюры

Как показать в ячейках Excel все делители заданного числа?
 



0



k61

85 / 82 / 31

Регистрация: 13.10.2014

Сообщений: 167

27.03.2017, 03:16

2

Лучший ответ Сообщение было отмечено MyExcel_17 как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
.......
For j = 1 To n Step 1
  If n / j = n  j Then
  Range("C1").Offset(f) = j
  f = f + 1
  End If
Next j
End Sub



1



MyExcel_17

Заблокирован

27.03.2017, 08:28

 [ТС]

3

Цитата
Сообщение от k61
Посмотреть сообщение

Range(«C1»).Offset(f) = j f = f + 1

k61, спасибо. Ещё вопрос. Как можно сделать, чтобы показывались делители по столбцам (C3:F3), заданное число 34, код ниже. Смотрите строку 21.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Александр9797_делители_числа()
Dim n, i, imax As Integer
n = InputBox("Введите натуральное число? ") + 0
If n < 1 Then
  MsgBox "Плохое число"
  Exit Sub  'досрочный выход из процедуры
End If
imax = Int(n ^ 0.5)
For i = 1 To imax
  If n / i = n  i Then
    koldev = koldev + 2
    sumdev = sumdev + i + n  i
  End If
Next i
If imax = n ^ 0.5 Then 'случай целого значения корня из n
  koldev = koldev - 1
  sumdev = sumdev - imax
End If
Cells(1, 1) = "Число:": Cells(1, 3) = n
Cells(2, 1) = "Кол-во делителей:": Cells(2, 3) = koldev
Cells(3, 1) = "Делители числа:": Cells(3, 3) = "не знаю, как показать для ячеек Excel"
Cells(4, 1) = "Сумма делителей:": Cells(4, 3) = sumdev
End Sub



0



85 / 82 / 31

Регистрация: 13.10.2014

Сообщений: 167

27.03.2017, 09:10

4

Нужны делители не превышающие значения переменной imax ?



0



MyExcel_17

Заблокирован

27.03.2017, 16:05

 [ТС]

5

Цитата
Сообщение от k61
Посмотреть сообщение

Нужны делители не превышающие значения переменной imax ?

k61, наверно Вы ошибаетесь.

Кто понимает, подскажите пожалуйста, как сделать смещение делителей числа 34 не вниз по строкам, а вправо по столбцам (C4:F4). Картинка и код ниже.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Александр9797_делители_числа()
Dim n, i, imax As Integer
n = InputBox("Введите натуральное число? ") + 0
If n < 1 Then
  MsgBox "Плохое число"
  Exit Sub  'досрочный выход из процедуры
End If
imax = Int(n ^ 0.5)
For i = 1 To imax
  If n / i = n  i Then
    koldev = koldev + 2
    sumdev = sumdev + i + n  i
  End If
Next i
If imax = n ^ 0.5 Then 'случай целого значения корня из n
  koldev = koldev - 1
  sumdev = sumdev - imax
End If
For J = 1 To n Step 1
  If n / J = n  J Then
  Range("C4").Offset(f) = J
  f = f + 1
  End If
Next J
Cells(1, 1) = "Число:": Cells(1, 3) = n
Cells(2, 1) = "Кол-во делителей:": Cells(2, 3) = koldev
Cells(3, 1) = "Сумма делителей:": Cells(3, 3) = sumdev
Cells(4, 1) = "Делители числа:": Cells(4, 5) = "не знаю, как задать код для ячеек (C4:F4) Excel"
 
End Sub

Миниатюры

Как показать в ячейках Excel все делители заданного числа?
 



0



k61

85 / 82 / 31

Регистрация: 13.10.2014

Сообщений: 167

28.03.2017, 02:26

6

Лучший ответ Сообщение было отмечено MyExcel_17 как решение

Решение

Добавьте запятую перед счётчиком «f»:

Visual Basic
1
2
3
...
 Range("C4").Offset(, f) = J
...



1



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

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

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

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

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

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

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

Похожие по тематике посты — еще почитать:

Формулировка задачи:

Всем доброй ночи!
Прошу помощи. Как правильно показать в ячейках Excel все делители заданного числа? Именно в ячейках Excel!
Пусть число 34, тогда его делители: 1; 2; 17; 34.

Прошу не предлагать: MsgBox и Debug.Print — эти способы мне известны.

На картинке, ниже, код Excel неверно выводит делители у меня: 34; 34; 34; 34. Как исправить?

Код к задаче: «Как показать в ячейках Excel все делители заданного числа?»

textual

...
 Range("C4").Offset(, f) = J
...

Полезно ли:

8   голосов , оценка 3.875 из 5

Like this post? Please share to your friends:
  • Определение выходных дней в excel
  • Определение всех знаков в excel
  • Опр в excel что это такое
  • Оплата электроэнергии таблица excel скачать
  • Оплата сотрудников таблица excel