Excelの式のような関数を使用する

Question

アルファベットの文字を取得するために数式を使用しようとしています。

式：

=Keytable(RANDOM,ROW()) 

機能：

Function KeyTable(seed As Long, position As Long) As String 
    Dim i As Long 
    Stop 
    Dim calpha(1 To 26) As String 
    Dim alpha(1 To 26) As String 

    For i = 1 To 26 
     alpha(i) = Chr(i + UPPER_CASE - 1) 
    Next i 

    For i = 1 To 26 
     calpha(i) = alpha(seed Mod 27 - i) 
    Next i 
    Stop 
    KeyTable = calpha(position) 
End Function 

結果：私は、関数をステップ実行すると

#Value! 

、それが第2の停止になることはありません。なにが問題ですか？

Answer 1

RANDOMはExcelの関数ではありません。 RAND()は0から1の間でfloatを返します。モジュラス計算を行うにはintegerが必要です。

ランダム整数、使用するには：

INT ((upperbound - lowerbound + 1) * RAND() + lowerbound) 

をseed Mod 27 - iが0以下になるとアレイはVBA（又はほとんどの言語）が0以下で索引付けすることができないため、そして、機能ダイ。

---

しかし、本当にあなたがランダムな文字を行うために必要なのはこれです：このコードは、アルファベットのランダムな文字を返します

=CHAR(RANDBETWEEN(65,90)) 

Answer 2

：

Function GetLetter() 
    Dim letters As String 
    Dim randomIndex As Byte 

    letters = "abcdefghijklmnopqrstuvwxyz" 
    randomIndex = Int((26 - 1 + 1) * Rnd() + 1) //Get random number between 1 and 26 

    GetLetter = VBA.Mid$(letters, randomIndex, 1) 
End Function