Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Деление числа на равные части
 
#1
01.11.2017 11:37:35
Здравствуйте
Такая задача
в ячейке А1 есть число, сумма, грн
В ячейке В1 есть чило, кол-во платежей
Необходимо сделать так, чтоб в ячейках C1, G1, K1 и. т.д. (каждая 4я) выводилось число - результат деления А1/В1
Чтоб это были равные части, без копеек  (а последнее, примером остаток)
и значение выводилось только в том кол-ве ячеек которое указано в ячейке В1
 
 
 
#2
01.11.2017 12:00:58
Добрый день.

Приложите файл-пример (что есть, что надо)
 
 
 
#3
01.11.2017 12:15:39
вот он)
 
 
 
#4
01.11.2017 12:28:17
=ЦЕЛОЕ($A$2/$B$2) - для всех платежей, кроме последнего,
=ОСТАТ($A$2;$B$2) или =ЦЕЛОЕ($A$2/$B$2)+ОСТАТ($A$2;$B$2) - для последнего платежа в зависимости от надобности выбираете.
Изменено: Irregular Expression - 01.11.2017 12:32:21
 
 
 
#5
01.11.2017 12:32:05
но это вручную.
Так ведь?
а вот можно ли сделать так, что просто при вводе цифры в "Количество платежей" сразу же заполнялись  определенные ячейки?
 
 
 
#6
01.11.2017 12:33:44
Цитата
nataliadabalu написал:
в ячейке А1 есть число, сумма, грн
В ячейке В1 есть чило, кол-во платежей
В этих ячейках - нет чисел :)

М.б. не то, что Вам нужно, но я бы на Вашем месте располагал платежки не в строку, а в столбик
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#7
01.11.2017 12:39:15
nataliadabalu, автоматически переформатировать Вашу таблицу, добавляя к ней ещё колонки или убирая лишние, - можно только макросом. Обычные функции Excel на это чисто технически неспособны, они только вычисляют значения для своих ячеек.
Ваш пример - в формате .xlsx, который макросы не поддерживает, поэтому я решил, что Вам макрос не нужен и надо отталкиваться от таблицы в примере.
Если хотя бы максимальное возможное количество платежей Вам известно, то формулу сделать можно, т.к. известны ячейки, куда её надо вставить. Оно известно?

+1 к расположению платежей в столбик :).
Изменено: Irregular Expression - 01.11.2017 12:49:30
 
 
 
#8
01.11.2017 12:55:43
Цитата
Михаил Лебедев написал: В этих ячейках - нет чисел
это было тогда сказано образно. в примере не А1 а А2

Цитата
Irregular Expression написал: Ваш пример - в формате .xlsx
конкретно мой файл, с макросами, но другой, по связке ворда и экселя

Цитата
максимальное возможное количество платежей... известно?
максимальное кол-во платежей 12.
 
 
 
#9
01.11.2017 12:58:49
в столбик не могу разместить
ибо в столбик идут клиенты
и эта процедура (деление) будет для каждого кл повторяться
 
 
 
#10
01.11.2017 13:17:11
см. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
01.11.2017 17:32:54
скопировав данную Вами формулу, подставив свои значения, у меня не считает(
Скажите. с чем мб связано?
открытая вкладка 30
 
 
 
#12
01.11.2017 19:00:10
а связано это с тем, что:
1. расположение формул в файле из #11 не совпадает с описанием задачи в #1
Цитата
Необходимо сделать так, чтоб в ячейках C1, G1, K1 и. т.д. (каждая 4я) выводилось число...
2. Вы не понимаете того, что написано в формуле
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#13
02.11.2017 09:55:02
Цитата
Ігор Гончаренко написал:
2. Вы не понимаете того, что написано в формуле
Объясните, помогите. Буду благодарна...
К сожалению все абсолютно забыла...
 
 
 
#14
02.11.2017 11:40:28
в строке 3, в колонках Платежи, формулы исправлены (собственно, это 1 формула)
и... я стесняюсь такое обьяснять...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#15
02.11.2017 12:02:15
nataliadabalu, можно оформить в виде UDF. Функция не привязана к конкретным столбцам, точкой отсчета является столбец второго аргумента (число частей):
Код
Function Nata(rSum As Double, rN As Range)
Dim i&, part#
  part = WorksheetFunction.Round(rSum / rN, -2) 'часть с округлением до сотен
  i = (Application.Caller.Column - rN.Column) \ 4 + 1 'относительный номер ячейки с функцией
  Select Case i - rN
  Case Is < 0
    Nata = part
  Case 0
    Nata = rSum - (i - 1) * part
  Case Else
    Nata = vbNullString
  End Select
End Function
Изменено: Казанский - 02.11.2017 12:06:46
 
 
 
Страницы: 1
Наверх