korela (Автор тем)

выбор таблицы для подстановки данных в зависимости от условия

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

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

14.11.2013 14:05:18

Здравствуйте, подскажите пожалуйста решение следующей проблемы: есть более 30 исходных таблиц (данные в них постоянно меняются), в зависимости от выбранного в ячейке числа необходимо подставлять данные (минимум 10 строк и два столбца) из соответствующих таблиц. Спасибо

Перейти

случайная выборка с условиями (как исправить макрос)

korela

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

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

08.11.2013 15:18:53

Доброго времени суток. Кое как написала макрос, конечно он кривой но как могла. Периодически всплывает ошибка не соблюдается условие If (n2 = n3) Then ..... Пожалуйста поправьте кому не трудно. Как я понимаю фраза On Error .......... должна быть в цикле, но не могу её туда засунуть. Спасибо.

Код

Range("H18" ;) .Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,9)"
On Error Resume Next
Set rRange = Range("H18" ;) 
If rRange Is Nothing Then Exit Sub
rRange = rRange.Value
 n2 = Range("H17" ;) 
 n3 = Range("H18" ;) 
 
If (n2 = n3) Then
Range("H18" ;) .Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,9)"
Else
End If

On Error Resume Next
Set rRange = Range("H18" ;) 
If rRange Is Nothing Then Exit Sub
rRange = rRange.Value

Перейти

случайный выбор чисел с заданными условиями

korela

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

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

05.11.2013 14:06:02

Здравствуйте, не могли бы помочь с решением следующей задачи: необходим случайный выбор чисел с заданными условиями:
интервал чисел от 1 до 9 положительные целые
количество чисел любое
первое и последние один
рядом не должны стоять одинаковые числа (столбик второе число)
сумма чисел в интервале 750 -800

Перейти