VBA练习

oyzjo

Function drawone(rng As Range, Optional recalc As Boolean = False)
    Application.Volatile recalc
    drawone = rng(Int(rng.Count) * Rnd + 1)
End Function
可以用下面的SUB调用：
Sub iSub()
    Dim iRng As Range
    Set iRng = Range("a1:a5")
    MsgBox drawone(iRng)
End Sub