Функция VBA для загрузки возможных значений из выпадающего списка

Question

У меня есть ячейка в Excel с проверкой данных в выпадающем списке.Этот список является переменной на основе других значений в электронной таблице.

Я должен сделать макрос в VBA, который вставляет случайное значение в ячейку, но толькосреди тех, которые возможны.Есть ли в VBA функция, позволяющая читать возможные значения для вставки в ячейку?

Извините за мой английский.
Заранее спасибо

Answer 1

• случайное значение от 1 до 4: = INT (RAND () * 4) + 1
• значение из вашего списка: = index (value_range, INT (RAND () * 4) +1)

в VBA:

Option Explicit
Sub getRand()
    Dim sampleString as string

    Range("A1").Value = "mele"
    Range("A2").Value = "pere"
    Range("A3").Value = "banane"
    Range("A4").Value = "albicocche"

    sampleString = (GetRandomValueFromList(Range("A1:A4")))
    debug.print sampleString
    'to set the cell to the random value
    'add the correct cell reference
    Range("X12").value = sampleString 
End Sub

Function GetRandomValueFromList(listRange As Range) As String
    Dim rCt As Integer
    Dim sStr As String
    rCt = Int(Rnd() * 4 + 1)
    sStr = listRange(rCt)
    GetRandomValueFromList = sStr
End Function