2013

Iska · Отправлено: **19:03, 06-12-2016** | #2

Коллега, образец приведён прямо в справке по функции Rnd.

Вот Вам болванка кода с примером:

Код:

Option Explicit

Function GetRandom(intStart As Integer, intEnd As Integer)
    Randomize Timer
    
    GetRandom = Int((intEnd - intStart + 1) * Rnd() + intStart)
End Function

Sub Sample()
    Dim i As Integer
    
    For i = 1 To 20
        Debug.Print GetRandom(0, 2)
    Next i
End Sub

okshef · Конфигурация компьютера

Код:

=СЛУЧМЕЖДУ(0;2)
=ОКРУГЛТ(СЛЧИС()*2;1)

Iska · Отправлено: **03:35, 07-12-2016** | #4

Цитата okshef:

Код:

=СЛУЧМЕЖДУ(0;2)
=ОКРУГЛТ(СЛЧИС()*2;1)

»

Я не был уверен, что речь сугубо про Excel

.