Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/случайные значения в диапазоне - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » случайные значения в диапазоне (Макросы/Sub)
случайные значения в диапазоне
Nik57 Дата: Среда, 29.11.2017, 22:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
Подскажите, можно ли прописать следующее: есть условный диапазон C4:С11. В нем прописаны вручную числа от 0,190 до 0,199. можно ли прописать макрос, при включении которого в диапазоне C4:С11 числа случайно генерировали бы в пределе от 0,190 до 0,199??
К сообщению приложен файл: 3522365.xlsx(8Kb)
 
Ответить
СообщениеЗдравствуйте!
Подскажите, можно ли прописать следующее: есть условный диапазон C4:С11. В нем прописаны вручную числа от 0,190 до 0,199. можно ли прописать макрос, при включении которого в диапазоне C4:С11 числа случайно генерировали бы в пределе от 0,190 до 0,199??

Автор - Nik57
Дата добавления - 29.11.2017 в 22:49
Karataev Дата: Среда, 29.11.2017, 23:01 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 910
Репутация: 338 ±
Замечаний: 0% ±

Excel
Макрос берет нижний и верхний предел из "E4":
[vba]
Код
Sub случайные()
    Dim dblMin As Double, dblMax As Double, i As Long
    dblMin = Split(Range("E4").Value, "-")(0)
    dblMax = Split(Range("E4").Value, "-")(1)
    For i = 4 To 11
        Cells(i, "C").Value = CDbl(Format((dblMax - dblMin) * Rnd + dblMin, "0.000"))
    Next i
End Sub
[/vba]


 
Ответить
СообщениеМакрос берет нижний и верхний предел из "E4":
[vba]
Код
Sub случайные()
    Dim dblMin As Double, dblMax As Double, i As Long
    dblMin = Split(Range("E4").Value, "-")(0)
    dblMax = Split(Range("E4").Value, "-")(1)
    For i = 4 To 11
        Cells(i, "C").Value = CDbl(Format((dblMax - dblMin) * Rnd + dblMin, "0.000"))
    Next i
End Sub
[/vba]

Автор - Karataev
Дата добавления - 29.11.2017 в 23:01
Nik57 Дата: Среда, 29.11.2017, 23:30 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Karataev, спасибо!
 
Ответить
СообщениеKarataev, спасибо!

Автор - Nik57
Дата добавления - 29.11.2017 в 23:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » случайные значения в диапазоне (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!