Insert module
Function RandomSelection(aRng As Range)
Dim index As Integer
Randomize
Index=Int(aRng.Count * Rnd + 1)
RandomSelection = aRng.Cells(index) .Value
End Function
=INDEX(A1: A8, RANDBETWEEN(1, COUNTA(A1: A8)))
tools > options > chart > plot empty cells as
set cell as a value
Range('B3') .Value = 2
try to use
someVariable = Range('A1') .Text
instead
someVariable = Range('A1') .Value
This poem has not been translated into any other language yet.
I would like to translate this poem
beautiful poem and i like it. please read my poems and comment.