Функция, возвращающая три значения

[Invincible]

Всем привет. Может кто-нибудь помочь с написанием функции возвращающей случайным образом с равной вероятностью три
значения – 0, 1 или 2.

[Iska]

Коллега, образец приведён прямо в справке по функции 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]

=СЛУЧМЕЖДУ(0;2)
=ОКРУГЛТ(СЛЧИС()*2;1) »
Я не был уверен, что речь сугубо про Excel :).