есть таблица - достаточно для думаю будет 2х столбцов заполняю столбец 1 при активации макроса для заполненных строк - не пустых в столбце 1 заполнить столбец 2 рандномным числом от 50 до 900 шаг 50 (550, 100, 350 и т.д.) при заполнении чтобы соблюдалось условие чтобы сумма по столбцу 2 не превышала 4000
p.s. шапка форума у вас огонь)
Предобрейшего денёчка. Просьба помочь:
есть таблица - достаточно для думаю будет 2х столбцов заполняю столбец 1 при активации макроса для заполненных строк - не пустых в столбце 1 заполнить столбец 2 рандномным числом от 50 до 900 шаг 50 (550, 100, 350 и т.д.) при заполнении чтобы соблюдалось условие чтобы сумма по столбцу 2 не превышала 4000
Sub Range_Random_Sum_RUN() Range_Random_Sum Selection, 1, 18, 50, 4000 End Sub
Sub Range_Random_Sum( _ rnge As Range, _ min_ As Long, _ max_ As Long, _ step As Long, _ summ As Long) ' в ячейки ставит случайные числа, до суммы
Dim ceLL As Range Dim stor As Long Dim rand As Long
rnge.ClearContents
For Each ceLL In rnge.Cells rand = CLng(WorksheetFunction.RandBetween(min_, max_)) stor = stor + (rand * step) ceLL.Value2 = (rand * step) If stor >= summ Then Exit For End If Next
ceLL.Value2 = ceLL.Value2 + (summ - stor)
End Sub
[/vba]
Привет!
[vba]
Код
Option Explicit
Sub Range_Random_Sum_RUN() Range_Random_Sum Selection, 1, 18, 50, 4000 End Sub
Sub Range_Random_Sum( _ rnge As Range, _ min_ As Long, _ max_ As Long, _ step As Long, _ summ As Long) ' в ячейки ставит случайные числа, до суммы
Dim ceLL As Range Dim stor As Long Dim rand As Long
rnge.ClearContents
For Each ceLL In rnge.Cells rand = CLng(WorksheetFunction.RandBetween(min_, max_)) stor = stor + (rand * step) ceLL.Value2 = (rand * step) If stor >= summ Then Exit For End If Next
Спасибо за Feedback! прошу извинить, но я не правильно поставил условие задачи. нужно чтобы: "при заполнении чтобы соблюдалось условие чтобы сумма по столбцу 2 была РАВНА 4000 не могли бы поправить.
Спасибо за Feedback! прошу извинить, но я не правильно поставил условие задачи. нужно чтобы: "при заполнении чтобы соблюдалось условие чтобы сумма по столбцу 2 была РАВНА 4000 не могли бы поправить.nadomne
это вообще легально? сколько с меня? могу ещё кое-что попросить: не выполняется условие "для заполненных строк - не пустых в столбце 1 заполнить столбец 2" выделяю ячейки -> жму "Выделенные ячейки заполнить" -> происходит заполнение не всех выделенных ячеек сразу, а в произвольном порядке. надо чтобы все сразу заполнялись ["для заполненных строк - не пустых в столбце 1 заполнить столбец 2"]
это вообще легально? сколько с меня? могу ещё кое-что попросить: не выполняется условие "для заполненных строк - не пустых в столбце 1 заполнить столбец 2" выделяю ячейки -> жму "Выделенные ячейки заполнить" -> происходит заполнение не всех выделенных ячеек сразу, а в произвольном порядке. надо чтобы все сразу заполнялись ["для заполненных строк - не пустых в столбце 1 заполнить столбец 2"]nadomne
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
сколько с меня? 
