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

Вход

Регистрация

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

 

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

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

Excel 2007
Здравствуйте!
Подскажите, можно ли прописать следующее: есть условный диапазон C4:С11. В нем прописаны вручную числа от 0,190 до 0,199. можно ли прописать макрос, при включении которого в диапазоне C4:С11 числа случайно генерировали бы в пределе от 0,190 до 0,199??
К сообщению приложен файл: 3522365.xlsx(8.2 Kb)
 
Ответить
СообщениеЗдравствуйте!
Подскажите, можно ли прописать следующее: есть условный диапазон 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 1247
Репутация: 479 ±
Замечаний: 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]


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
СообщениеМакрос берет нижний и верхний предел из "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
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 0 ±
Замечаний: 0% ±

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

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

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